Wenn ich einen Shell Aufruf mache bekomme ich Error Code -2 (bspw. Ping)
Ich habe gelesen man soll AddHandler dafür werwenden. Meine Frage hierzu wäre jetzt wie nutze ich AddHandler richtig, ich komm selbst beim Beispiel nicht dahinter.
Dim s As Shell
s = New Shell
s.Mode =
Dim cmd as text
cmd = “ping google.de”
s.Execute(cmd)
If s.ErrorCode = 0 Then
Window1.TextField1.Text = s.Result
Else
MsgBox("Error code: " + Str(s.ErrorCode))
End If
Hier fehlt mir der AddHandler.
das nützt ja nichts, solange s lokal definiert wäre.
Mach doch besser direkt eine Unterklasse von Shell und bau da den Event ein.
Oder zieh eine Shell in ein Fenster um da eine Instanz zu haben mit Events.
Frage ist dann auch, wenn der Handler dann klappt, wie verwertet man die in der Luft stehenden Daten. Bisher spuckt er bei mir immer den Error Code -2 aus. Dazu habe ich leider keine Beschreibung gefunden.
If you’re on Windows then -2 means the shell timed out. The default timeout period is two seconds, which is not long enough for ping to finish. Try setting the timeout to -1:
Dim s As Shell
s = New Shell
s.TimeOut = -1