AcceptSocket有问题？ Me.listener = New TcpListener(port) Me.listener.Start() Dim socket As Socket = Me.listener.AcceptSocket Me.clientsocket = socket Me.clientservice = New Thread(New ThreadStart(AddressOf Me.ServiceClient)) Me.clientservice.IsBackground = True Me.clientservice.Start() ‘ MsgBox( ...yes,MsgBoxStyle.OkOnly) 为何来到AcceptSocket后，下面的语句就没动作了似的。。什么也不执行的？ __________________________________________________________________________ lz 用try catch 扑获一下异常 看看是什么问题 __________________________________________________________________________ 没有异常，我try过的。就是来到这就不执行下面的了，可能是只有监听，没有客户端连接。。 可是我的是用GPRS传过来的数据，怎么就没胡客户端连接呢？？ __________________________________________________________________________ AcceptSocket 阻塞在那里监听，等待连接，没有连接自然不会返回，至于为什么没有客户端连接，你后面也说了，你是用GPRS传过来的，都开始传数据了，那连接不是早就应该建立了吗？ __________________________________________________________________________ 请问有解决的方法么？ __________________________________________________________________________ 检查一下你GPRS设备的设置，以及检查一下使用GPRS设备的连接代码 __________________________________________________________________________ 一切都是正常的．就是不知道为何会这样．．我被卡在这了．．汗． __________________________________________________________________________ 对的是正常的，因为没有数据传送到这个端口，如果有的话就会继续执行下面的程序 __________________________________________________________________________ AcceptSocket 是一个阻塞方法，它返回可用来发送和接收数据的 Socket。如果希望避免阻塞，您可以使用 Pending 方法来确定传入连接队列中是否有连接请求。 返回的 Socket 是使用远程主机的 IP 地址和端口号初始化的。您可以使用 Socket 类中任何可用的 Send 和 Receive 方法与远程主机进行通信。使用 Socket 后，请确保调用其 Close 方法。如果应用程序相对简单，请考虑使用 AcceptTcpClient 方法代替 AcceptSocket 方法。TcpClient 提供了一些通过网络在阻塞同步模式下发送和接收数据的简单方法。 示例 __________________________________________________________________________