تشکر می کنم
یک سوال: برای ارسال پیغام در روم من از این دستور استفاده می کنم
Dim msg As String
msg = txtWhoto.Text
Winsock2.SendData YRoomText(Id.Text, Chatroom.Text, msg)
Public Function YRoomText(YID As String, RoomName As String, TheRoomText As String) As String
Dim Data As String
Data = Assemble(168, "1À€" & YID & "À€104À€" & RoomName & "À€117À€" & TheRoomText & "À€124À€1À€")
Debug.Print Data
YRoomText = Data
End Function
Public Function chatjoin(YahooID As String, Chatroom As String)
If Chatroom = vbNullString Then
chatjoin = Header("109" & YahooID & "1" & YahooID & "6abcde98us1359.0.0. 2152", String(4, Chr(0)), String(4, Chr(0)), 150)
Else
chatjoin = Header("1À€" & YahooID & "À€104À€" & Chatroom & "À€129À€" & "À€62À€2À€", String(4, Chr(0)), String(4, Chr(0)), 152)
End If
End Function
اما تو این سورس این کد رو هر جور می زارم جواب نمی ده یکم گیج شدم می شه یک توضیحی بدین و یا سورسی در این راستا بهم بدین
ممنون