listening to AIM

searched:no finds
what im trying to do (basically) is just bind a sock to port 5190, and listen for incoming AIM chat...from an im not a room..
my code is:

VB Code:

Public Sub Form_Load()
    sckAIM.LocalPort = 5190
    sckAIM.Bind
    sckAIM.Listen
End Sub
 
Public Sub sckAIM_DataArrival(ByVal bytesTotal As Long)
    Dim strTemp As String
    sckAIM.GetData strTemp, vbString
    ParseAIM strTemp
End Sub

nothing happens tho..

You're not accepting the connection. Try adding something like:

Private Sub sckAIM_ConnectionRequest(ByVal requestID As Long)
sckAIM.Close
sckAIM.Accept requestID
End Sub

well i think it is UDP, which doesn't need to accept.

Quote:

---

Originally posted by R.a.B.B.i.T
searched:no finds
what im trying to do (basically) is just bind a sock to port 5190, and listen for incoming AIM chat...from an im not a room..
my code is:

VB Code:

Public Sub Form_Load()
    sckAIM.LocalPort = 5190
    sckAIM.Bind
    sckAIM.Listen
End Sub
 
Public Sub sckAIM_DataArrival(ByVal bytesTotal As Long)
    Dim strTemp As String
    sckAIM.GetData strTemp, vbString
    ParseAIM strTemp
End Sub

nothing happens tho..

---

Are you sure that it is sent by UDP though?

hah..i forgot 2 look at it
its tcp :\

*bump*

??????

so did you change it to TCP and change the code to reflect that?

im not sure how i have to change the code..ive never worked with TCP before..just UDP :|

Sorry for not posting. I thought you had the problem solved. Anyway, to use TCP you will need to add the code I posted above. You will also need to make sure that sckAIM.Protocol = 0

TCP also has some other concepts that UDP doesn't, but that should get you started. There are plenty of tutorials online for this too, so I suggest you do a search for more info.