طراحی فرم ارتباط با دیگران مثلا از طریق اینترنت و آی پی

[TAMIZI]

سلام به همه دوستان
سال نو مبارک
من داشتم یه فرم ارتباط با دیگران طراحی میکردم به این شکل :
دو صفحه کاملا مجزا طراحی کردم و
در یکی یک textbox و یک Winsock قرار دادم این میشه گیرنده
در دیگری یک textbox و دو دکمه و یک Winsock قرار دادم که یک دکمه برای برقراری ارتباط است و دیگری برای ارسال متن textbox


کد صفحه اول (گیرنده):

Private Sub Form_Load()
Winsock1.LocalPort = 10300
Winsock1.Listen

End Sub

Private Sub Winsock1_connectionrequest(ByVal requestid As Long)
If Winsock1.State <> sckConnected Then
Winsock1.Close
Winsock1.Accept requestid
End If
End Sub
Private Sub Winsock1_dataarrival(ByVal bytestotal As Long)
Dim mydata As String
Winsock1.GetData mydata, vbString
Text1.Text = mydata
End Sub





کد صفحه دوم (فرستنده):

Private Sub Command1_Click()
Winsock1.RemoteHost = "127.0.0.1"
Winsock1.RemotePort = 10300
Winsock1.Connect
End Sub

Private Sub Command2_Click()
Winsock1.SendData Text1.Text

End Sub



حالا نمی دونم مشکل کجاست وقتی run میکنم و کلید ارتباط رو می زنم ارور زیر رو می ده :

run-time error '40020':
Invalid operation at current state


کسی میتونه من رو کمک کنه یا مشکل کار رو بگه
خیلی خیلی ممنون میشم
در ضمن اگه مقاله ای هم میشناسید که به این کارها مربوط میشه خوشحال میشم یه لینک بدید
خلاصه بگم خیلی وقته دنبال یه همچنین برنامه ای هستم ...
ممنون و متشکر