کمک برای ارسال دستورات از طریق اینترنت

[ahadgd]

سلام
من زیاد به بیسیک وارد نیستم ولی می خوام از طریق اینترنت یک سری اطلاعات رو از طریق ویژال بیسیک ارسال کنم تو انجمن گشتم چند موردی بود ولی مشکل داشتن
می خوام از طریق Winscok با پروتکل tcp/ip یک سری دستورات رو که بصورت متن هستند از طریق اینترنت به یک کامپیوتر دیگه ارسال کنم
یه برنامه پیدا کردم ولی نمیدونم درسته یا نه و نمی دونم چطوری کامپیوتر سرور و کامپیوتر مقصد رو مشخص کنم:گریه:
مثلا کامپیوتر سرور آی پیش هست 95.80.120.0
و کامپیوتر مقصد هم 95.80.130.2

Private Sub Form_Load()
tcpserver.LocalPort = 1000
tcpserver.Listen
End Sub

Private Sub send_Click()
tcpserver.SendData txtsenddata.Text
End Sub

Private Sub tcpserver_ConnectionRequest(ByVal requestID As Long)
If tcpserver.State <> sckClosed Then tcpserver.Close
tcpserver.Accept requestID
End Sub
Private Sub tcpserver_DataArrival(ByVal bytesTotal As Long)
Dim strdata As String
strdata tcpserver.GetData
txtreceivedata.Text = strdata
End Sub

[ahadgd]

کسی نیست کمک کنه:گریه::گریه:
در ضمن هر دو کامپیوتر adsl دارن و مودمشون TP-LINK هست