مشکل این برنامه وینسوک چیه؟

[m_vb66]

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

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

[keihancpu]

کد:

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

Private Sub send_Click()
[color=#FF0000]Form1.Winsock1.Connect[/color]
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

شکل درست کد

کد:

Winsock1.connect "127.0.0.1",1000