listening to AIM

[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:

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..

[imbue]

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

[BuggyProgrammer]

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

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:

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?

[R.a.B.B.i.T]

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

[R.a.B.B.i.T]

*bump*

[BuggyProgrammer]

??????

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

[R.a.B.B.i.T]

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

[imbue]

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.