ดูโค้ดให้หน่อยครับ
set protocol เป็น UDP ครับ โค้ดฝั่ง server Private Sub Form_Load() winSck.RemoteHost = "225.255.255.255" winSck.RemotePort = 50000 winSck.SendData "Hello!!!" End Sub โค้ดฝั่ง client Private Sub Form_Load() winSck.Bind 50000 End Sub
Private Sub winSck_DataArrival(ByVal bytesTotal As Long) Dim aStr As String winSck.GetData aStr MsgBox aStr End Sub
พอรันโปรแกรมแล้วไม่มี message ในฝั่ง client ขึ้นเลยครับ ผิดที่โค้ดตรงครับ ช่วยดูให้หน่อยครับ
|