ايران ويج

Private Sub Form_Load()
Form1.Winsock1.Close
Form1.Winsock1.RemoteHost = "127.0.0.1"
Form1.Winsock1.RemotePort = 1000
End Sub

Private Sub send_Click()
Form1.Winsock1.Connect
Form1.Winsock1.SendData txtsend.Text
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim strdata As String
strdata = Form1.Winsock1.GetData
txtresev.Text = strdata
End Sub

میگه پروتکل اشتباه انتخاب شده

شکل درست کد