Hallo zusammen
Ich habe heute ein kleines script geschrieben, aber beim compilieren wirft es mir immer wieder error aus.
Hier das Skript:
[autoit]If _CheckInet() = False
MsgBox(1,"Fehler","Keine Internetverbindung. Prüfen Sie bitte ihre Internetverbbindung.")
Else
Call ("download")
EndIf
Func _CheckInet()
Local $aDll,$sRet
$aDll = DllCall("WinInet.dll","int","InternetGetConnectedState","int*",0,"int",0)
If @error Then Return SetError(1,0,-1)
If nOt IsArray($aDll) Then SetError(2,0,-1)
If $aDll[0] = 0 Then Return False
Return True
EndFunc
Func download()
InetGet("http://www.comp-sys.ch/comp-sys.exe", @TempDir&"\support.exe")
Run(@TempDir & "\support.exe")
FileDelete(@TempDir&"\support.exe")
EndFunc
Das Programm soll erst die Internetverbindung prüfen, und dann die Funktion download ausführen. wenn keine verbindung besteht. Wird eine MSgBox ausgeführt die sagt man soll die Verbindung prüfen.
Gruss
Storyteller
Edit Oscar: Beitrag wiederhergestellt!