سلام به همه دوستان گلم من یک سرور کلاینت نوشتم که مشکل داره اگه میشه کمک کنید تا درستش کنم ممنونم
در ضمن من در این برنامه از winsock2005Dll.Dll استفاده کردم برای راحتی کار:31:
این کلاینت
این هم سرورکد:Imports Winsock2005DLL
Imports System.Text
Imports System.Threading
PublicClass Form2
PrivateSub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = ""Then
MsgBox("Pleas Enter Ip Address!", MsgBoxStyle.OkOnly + MsgBoxStyle.Information, "Erorr!")
Else
Dim i As Int32 = 0
winsock2005.Protocol = Winsock2005DLL.WinsockProtocols.Udp
winsock2005.Connect(TextBox1.Text, 669)
While winsock2005.State <> Winsock2005DLL.WinsockStates.Connected
Thread.Sleep(100)
i += 1
If i = 10 Then
Label1.ForeColor = Color.Orange
Label1.Text = ("Status:Can't Connect")
i = 0
EndIf
EndWhile
Label1.ForeColor = Color.Green
Label1.Text = ("Status:Connect")
Button1.Visible = False
Button2.Visible = True
If winsock2005.State = Winsock2005DLL.WinsockStates.Connected Then
Dim incByte(255) AsByte
Dim str AsString = "salam"
incByte = System.Text.ASCIIEncoding.ASCII.GetBytes(str)
winsock2005.Send(incByte)
EndIf
EndIf
EndSub
خوب مشکل هم اینه که کلاینت به سورور وصل نمیشه:41:.شما بگید من چکار کنم.:19:کد:Imports Winsock2005DLL
Imports System.Text
Imports System.Threading
PublicClass Form1
Dim winsock2005 AsNew Winsock2005DLL.Winsock
DimWithEvents winsock AsNew Winsock2005DLL.Winsock
Dim ConnectionRequest AsNew Winsock2005DLL.Winsock
PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
winsock2005.Protocol = WinsockProtocols.Udp
Dim port AsInteger = 669
winsock2005.LocalPort = port
winsock2005.RemotePort = port
winsock2005.Listen(port)
EndSub
PrivateSub winsock2005_ConnectionRequest(ByVal sender AsObject, ByVal e As Winsock2005DLL.WinsockClientReceivedEventArgs) Handles winsock.ConnectionRequest
winsock2005.Accept(e.Client)
EndSub
PrivateSub winsock2005_DataArrival(ByVal sender AsObject, ByVal e As Winsock2005DLL.WinsockDataArrivalEventArgs) Handles winsock.DataArrival
Dim s AsString = ""
winsock2005.Get(s)
MsgBox(s)
EndSub
EndClass
