S-off:
Ich habe den Quelltext geändert:
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
Var ConID : DWORD;
Errorcode : Integer;
begin
conid:=0;
errorcode:=0;
Timer1.Enabled:=False;
label2.caption:=booltostr(IsInternetConnected);
if Isinternetconnected then label1.caption:='Internet aktiv';
if not Isinternetconnected then label1.caption:='Internet wird angewählt';
if not IsInternetConnected then DialDFUE('****',Errorcode,ConID);
Timer1.Enabled:=True;
end;
Vorher bekam ich mit
if not IsInternetConnected then DialDFUE('****',Errorcode,ConID);
keine Verbindung. Ich habe die Verbindung gekappt und mit Code funzt es nun, nachdem ich schon zwei Std. probiert habe.
Probiert es mal aus, ob es passt. Achtung! Der Code funktioniert nicht immer! Es gibt ellenlange Threads dazu. Bei einer Direktverbindung zum Internet (nicht über Lan oder Router) müsste es ohne Probleme gehen.
Verbesserungen sind jederzeit willkommen.