msn/vb

[Viperrr]

Hallo mensen die van beide verstand hebben (MSN en VB)
Ik ben een beetje aan het klooien en probeer te verbinden met die server... ik haal mijn informatie van http://www.hypothetic.org/docs/msn/connecting.php .
Nu volg ik die stappen, maar ik krijg geen antwoord van die server.
Dit is wat ik doe:
Module:
Public Const cDispatchServer = "Messenger.hotmail.com"
Public Const cDispatchPort = 1863

Frmconnect:

Private Sub cmdDispatch_Click()
wskDispatch.Connect cDispatchServer, cDispatchPort
End Sub

Private Sub wskDispatch_Connect()
iDataNr = 0
Dim sSend As String
sSend = "VER " & iDataNr & " MSNP7 MSNP6 MSNP5 MSNP4 CVRO"
wskDispatch.SendData sSend
End Sub

Private Sub wskDispatch_DataArrival(ByVal bytesTotal As Long)
Dim sData As String
wskDispatch.GetData sData
If sData = "VER " & iDataNr & " MSNP7 MSNP6 MSNP5 MSNP4 CVR0" Then
iDataNr = iDataNr + 1
wskDispatch.SendData "INF" & iDataNr
ElseIf sData = "INF " & iDataNr & " MD5" Then
iDataNr = iDataNr + 1
wskDispatch.SendData "MD5 " & iDataNr & txtAdres.Text
End If
End Sub

Maar er komt niks aan... hij verzend VER 0 MSNP7 etc nog, maar daarna gebeurt er niks (Het programma w8 dan op antwoord van de server, maar dat komt niet)
Voor het hele project (Wat ik hier laat zien is ingekort) moet je de bijlage downloaden.

 

[Viperrr]

SOrry,
Nog ff wat research gedaan op Inet en ben dr al achter denk ik... delete deze thread maar

 

[Hugoboy22]

Plz tell me

eey

wil je vertellen waar je het hebt gevonden plzzz
ik heb de zelfde vraag :thumb: