Visual Basic Forum

Oberxil · Coder Anmeldedatum: 14.06.2008 Beiträge: 87

Ich hab schon so viel probiert aber irgendwie bekomm ichs nicht hin,kann mir einer von euch helfen?

Visual Basic: [code]
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
winsock.CloseSck
winsock.RemoteHost = server
winsock.RemotePort = 80
winsock.Connect

send = "GET " & server & "/bla.php" & " HTTP/1.0" & vbCrLf & "Accept: */*" & _
vbCrLf & "Accept: text/html" & vbCrLf & vbCrLf

winsock.SendData send
End Sub
[/code]

Das mit dem senden geht soweit,nur halt beim form unload nicht^^
_________________

Administrator · Poster Anmeldedatum: 16.04.2008 Beiträge: 153

Versuch mal vor dem ganzen "Cancel = 1" und danach "Cancel = 0"

Oberxil · Coder Anmeldedatum: 14.06.2008 Beiträge: 87

meinst du so?

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
cancel = 1
winsock.CloseSck
winsock.RemoteHost = server
winsock.RemotePort = 80
winsock.Connect

send = "GET " & server & "/bla.php" & " HTTP/1.0" & vbCrLf & "Accept: */*" & _
vbCrLf & "Accept: text/html" & vbCrLf & vbCrLf

winsock.SendData send
cancel = 0
End Sub

geht leider auch nicht

sollniss · Überflieger Anmeldedatum: 01.05.2008 Beiträge: 699

Visual Basic: [code]Private Sub Form_Unload(Cancel As Integer)
winsock.CloseSck
winsock.RemoteHost = server
winsock.RemotePort = 80
winsock.Connect

send = "GET " & server & "/bla.php" & " HTTP/1.0" & vbCrLf & "Accept: */*" & _
vbCrLf & "Accept: text/html" & vbCrLf & vbCrLf

winsock.SendData send
End Sub[/code]
_________________

dcm · Poster Anmeldedatum: 03.05.2008 Beiträge: 101

was is eigentlich der unterschied zwischen unload und queryunload?