.net 开发wce程序socket接口的问题
下列代码,在模拟器上运行良好,但在实机上报无法找到资源程序及错误,还请高手们多多指教
Try
Dim LocalHost As System.Net.IPHostEntry = System.Net.Dns.Resolve("127.0.0.1")
Dim RmoteHost As System.Net.IPHostEntry = System.Net.Dns.Resolve("199.0.0.67")
Dim LocalIP As System.Net.IPAddress = LocalHost.AddressList(0)
Dim RmotePint As System.Net.IPEndPoint
Dim RmoteIP As System.Net.IPAddress = RmoteHost.AddressList(0)
Dim mySender As New System.Net.Sockets.Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
Dim sendMsg As String = "hello world"
Dim Msg() As Byte
RmotePint = New System.Net.IPEndPoint(RmoteIP, 7575)
mySender.Connect(RmotePint)
Msg = System.Text.Encoding.UTF8.GetBytes(sendMsg)
If mySender.Connected() Then
mySender.Send(Msg)
End If
mySender.Shutdown(Net.Sockets.SocketShutdown.Both)
mySender.Close()
Catch err As SocketException
Dim bld As New StringBuilder
bld.Append((ControlChars.Cr & " Source : " & err.Message))
MessageBox.Show(bld.ToString())
bld.Remove(0, bld.Length)
End Try