amirsajjadi
سه شنبه 09 مهر 1387, 00:43 صبح
با سلام
مثال براي برقراري ارتباط ميان دو برنامه از طريق Socket و فرستادن اطلاعات ميان آن دو برنامه
برنامه ي كامپيوتر كلاينت :
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Winsock1.Connect("127.0.0.1", 1000)
End Sub
Private Sub Winsock1_Connected(ByVal sender As Object, ByVal e As System.EventArgs) Handles Winsock1.Connected
MsgBox("Connected")
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Winsock1.Send(TextBox1.Text)
End Sub
Private Sub Winsock1_ConnectionRequest(ByVal sender As Object, ByVal e As Winsock2005DLL.WinsockClientReceivedEventArgs) Handles Winsock1.ConnectionRequest
Winsock1.Accept(e.Client)
End Sub
Private Sub Winsock1_DataArrival(ByVal sender As Object, ByVal e As Winsock2005DLL.WinsockDataArrivalEventArgs) Handles Winsock1.DataArrival
Dim s As String = ""
Winsock1.Get(s)
MsgBox(s)
End Sub
End Class
برنامه ي كامپيوتر سرور :
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Winsock1.Listen(1000)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Winsock1.Send(TextBox1.Text)
End Sub
Private Sub Winsock1_ConnectionRequest(ByVal sender As Object, ByVal e As Winsock2005DLL.WinsockClientReceivedEventArgs) Handles Winsock1.ConnectionRequest
Winsock1.Accept(e.Client)
End Sub
Private Sub Winsock1_DataArrival(ByVal sender As Object, ByVal e As Winsock2005DLL.WinsockDataArrivalEventArgs) Handles Winsock1.DataArrival
Dim s As String = ""
Winsock1.Get(s)
MsgBox(s)
End Sub
End Class
به خاطر درخواست هاي زياد دوستان اين مثال رو توي يك تاپيك جديد انداختم اميدوارم به دردتون بخوره
با تشكر
مثال براي برقراري ارتباط ميان دو برنامه از طريق Socket و فرستادن اطلاعات ميان آن دو برنامه
برنامه ي كامپيوتر كلاينت :
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Winsock1.Connect("127.0.0.1", 1000)
End Sub
Private Sub Winsock1_Connected(ByVal sender As Object, ByVal e As System.EventArgs) Handles Winsock1.Connected
MsgBox("Connected")
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Winsock1.Send(TextBox1.Text)
End Sub
Private Sub Winsock1_ConnectionRequest(ByVal sender As Object, ByVal e As Winsock2005DLL.WinsockClientReceivedEventArgs) Handles Winsock1.ConnectionRequest
Winsock1.Accept(e.Client)
End Sub
Private Sub Winsock1_DataArrival(ByVal sender As Object, ByVal e As Winsock2005DLL.WinsockDataArrivalEventArgs) Handles Winsock1.DataArrival
Dim s As String = ""
Winsock1.Get(s)
MsgBox(s)
End Sub
End Class
برنامه ي كامپيوتر سرور :
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Winsock1.Listen(1000)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Winsock1.Send(TextBox1.Text)
End Sub
Private Sub Winsock1_ConnectionRequest(ByVal sender As Object, ByVal e As Winsock2005DLL.WinsockClientReceivedEventArgs) Handles Winsock1.ConnectionRequest
Winsock1.Accept(e.Client)
End Sub
Private Sub Winsock1_DataArrival(ByVal sender As Object, ByVal e As Winsock2005DLL.WinsockDataArrivalEventArgs) Handles Winsock1.DataArrival
Dim s As String = ""
Winsock1.Get(s)
MsgBox(s)
End Sub
End Class
به خاطر درخواست هاي زياد دوستان اين مثال رو توي يك تاپيك جديد انداختم اميدوارم به دردتون بخوره
با تشكر