hey!
habe nen netsend tool zum empfangen und senden von net send nachrichten geschrieben, nun möchte ich noch ne funktion haben, die überprüft ob der rechner an den die nachricht geht online ist!
habe auch schon ne funktion geschrieben, nur leider wird mein shell befehl nicht / nicht richtig ausgeführt, bzw die datei wird nicht erzeugt!
kann mir jemand weiter helfen?
oder habt ihr vielleicht ne bessere idee?
die funktion sieht so aus:
Private Function checkonline()
Dim commandO As String
Dim tmp As String
commandO = "c:\winnt\system32\ping " + txtname.text + " >c:\ping.txt"
Shell (commandO)
Open "c:\ping.txt" For Input As #1
Line Input #1, tmp
If Not EOF(1) Then
Line Input #1, tmp
Else
tmp = ""
End If
If tmp = "" Or tmp = "unbekannter host " + txtname.text Then
MsgBox ("user nicht online")
online = False
Else
online = True
End If
Close #1
End Function
habe nen netsend tool zum empfangen und senden von net send nachrichten geschrieben, nun möchte ich noch ne funktion haben, die überprüft ob der rechner an den die nachricht geht online ist!
habe auch schon ne funktion geschrieben, nur leider wird mein shell befehl nicht / nicht richtig ausgeführt, bzw die datei wird nicht erzeugt!
kann mir jemand weiter helfen?
oder habt ihr vielleicht ne bessere idee?
die funktion sieht so aus:
Private Function checkonline()
Dim commandO As String
Dim tmp As String
commandO = "c:\winnt\system32\ping " + txtname.text + " >c:\ping.txt"
Shell (commandO)
Open "c:\ping.txt" For Input As #1
Line Input #1, tmp
If Not EOF(1) Then
Line Input #1, tmp
Else
tmp = ""
End If
If tmp = "" Or tmp = "unbekannter host " + txtname.text Then
MsgBox ("user nicht online")
online = False
Else
online = True
End If
Close #1
End Function
