Posted: Tue Nov 15, 2005 4:16 pm Post subject: Retriving Status
hello ive been trying for about 2 weeks now to get a users status...
ive got
Code:
Private Sub Messenger_DataArrival(ByVal bytesTotal As Long)
On Error Resume Next
' This sub handles all incoming traffic from the
' Dispatch Server (DS) and Notification Server (NS)
'-----------------------------
Dim Linenum As Integer
Dim strRawData As String, strInput As String
Dim strHashParams As String
Dim strResponse As String
Dim SplitData As Variant
Dim varParams As Variant
Case "CHL":
'CHL - Challenge - MSN Sends This, You must reply with an MD5 Dump
Dim strChallenge As String
strChallenge = Replace(Split(strInput, " ")(2), vbCrLf, "")
dataout "QRY " & intTrailid & " msmsgs@msnmsgr.com 32" & vbCrLf & MD5String(strChallenge & "Q1P7W2E4J9R8U3S5")
Case "NLN":
MsgBox "s"
Case "ILN":
MsgBox "d"
Case "CHG":
'CHG - Change - Your Status has changed, Time to Sync List
dataout "SYN " & intTrailid & " 0" & vbCrLf
If SplitData(4) = BSY Then
Text7.Text = Text7.Text + 1
End If
If SplitData(3) = NLN Then
Text3.Text = Text3.Text + 1
End If
If SplitData(2) = AWY Then
Text9.Text = Text9.Text + 1
End If
If SplitData(1) = BRB Then
Text8.Text = Text8.Text + 1
End If
Case "BLP":
'BLP - N/A - Used to tell the server how to handle your messages
If SplitData(1) = "BL" Then
dataout "BLP " & intTrailid & " AL" & vbCrLf
End If
Case "RNG":
temp = Split(SplitData(2), ":")
sock = NextSock
PRVSck(sock).Close
PRVSck(sock).RemoteHost = temp(0)
PRVSck(sock).RemotePort = temp(1)
AuthString = SplitData(4)
SessionID = SplitData(1)
PRVSck(sock).Connect
Case "LST":
'Contact Lists
If SplitData(3) >= 10 Then
Text2.Text = Text2.Text + 1
ElseIf SplitData(3) = 2 Then
Text2.Text = Text2.Text + 1
dataout "ADD " & intTrailid & " FL " & SplitData(1) & " " & SplitData(1) & vbCrLf
' conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=nexgaming.co.uk;DATABASE=cronoleg_MSN;UID=cronoleg_MSN;PWD=MSN;"
' DoEvents
' conn.Open
' DoEvents
' conn.Execute "INSERT INTO Contacts(MID,Email,Date) values('','" & SplitData(1) & "','')"
ElseIf SplitData(3) = "4" Or SplitData(3) = "3" Or SplitData(3) = "8" Then
Text2.Text = Text2.Text + 1
dataout "ADD " & intTrailid & " AL " & SplitData(1) & " " & SplitData(1) & vbCrLf
End If
Case "ADD":
'Someone Added You
If SplitData(2) = "RL" Then
dataout "ADD " & intTrailid & " AL " & SplitData(3) & " " & SplitData(3) & vbCrLf
conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=nexgaming.co.uk;DATABASE=cronoleg_MSN;UID=cronoleg_MSN;PWD=MSN;"
DoEvents
conn.Open
DoEvents
conn.Execute "INSERT INTO Contacts(MID,Email,Date) values('','" & SplitData(3) & "','')"
End If
End Select
Next
End If
but all i see in the debug is :
Code:
DS In: CHG 5 AWY 0
DS Out: SYN 8 0
DS In: CHG 7 NLN 0
DS Out: SYN 9 0
DS In: REA 6 johnwalshbot@hotmail.co.uk John%20Bot%20Version%200.6.5%20-%20http://www.mapsdb.com/text.php%20(Check%20Your%20MSN%20Details%20ONLINE)
User Control Panel
please help tahnsk 
