Mohsen6558
یک شنبه 19 اردیبهشت 1389, 03:04 صبح
با سلام
دوستان برنامه ای نوشتم که به یه پورت از آی پی با TCP گوش می ده
اینم تکه کدش:
Try
client = listener.AcceptTcpClient()
Dim pi As PropertyInfo = client.GetStream.GetType.GetProperty("Socket", BindingFlags.NonPublic Or BindingFlags.Instance)
Dim PublicIP As String = pi.GetValue(client.GetStream, Nothing).RemoteEndPoint.ToString.Split(":")(0)
Dim ipend As Net.IPEndPoint = client.Client.RemoteEndPoint
If Not ipend Is Nothing Then
PublicIP = ipend.Address.ToString
End If
netStream = client.GetStream()
'Console.WriteLine("Status: 1 Handling client...")
Dim totalByteRcvd As Integer = 0
While ((byteRcvd = netStream.Read(byteBuffer, totalByteRcvd, byteBuffer.Length - totalByteRcvd)) > 0)
netStream.Write(byteBuffer, 0, byteRcvd)
totalByteRcvd += byteRcvd
End While
حالا برنامه می آد و تو سطر client = listener.AcceptTcpClient() متوقف می شه تا اطلاعاتی از پورت برسه در اون حالت رابط کاربری برنامه هنگ می کنه!
من می خوام این مشکل پیش نیاد باید چیکار کنم؟
مرسی
دوستان برنامه ای نوشتم که به یه پورت از آی پی با TCP گوش می ده
اینم تکه کدش:
Try
client = listener.AcceptTcpClient()
Dim pi As PropertyInfo = client.GetStream.GetType.GetProperty("Socket", BindingFlags.NonPublic Or BindingFlags.Instance)
Dim PublicIP As String = pi.GetValue(client.GetStream, Nothing).RemoteEndPoint.ToString.Split(":")(0)
Dim ipend As Net.IPEndPoint = client.Client.RemoteEndPoint
If Not ipend Is Nothing Then
PublicIP = ipend.Address.ToString
End If
netStream = client.GetStream()
'Console.WriteLine("Status: 1 Handling client...")
Dim totalByteRcvd As Integer = 0
While ((byteRcvd = netStream.Read(byteBuffer, totalByteRcvd, byteBuffer.Length - totalByteRcvd)) > 0)
netStream.Write(byteBuffer, 0, byteRcvd)
totalByteRcvd += byteRcvd
End While
حالا برنامه می آد و تو سطر client = listener.AcceptTcpClient() متوقف می شه تا اطلاعاتی از پورت برسه در اون حالت رابط کاربری برنامه هنگ می کنه!
من می خوام این مشکل پیش نیاد باید چیکار کنم؟
مرسی