socket调试工具怎么用(安卓socket调试工具)

你装防火墙没 你的那一大段总结一下 只要人家连你就失败 你连接别人就OK 是吧 防火墙一般不防出站 放进站关闭一下防火墙试试看 或者你在你的防火墙上添加一个规则 针对你的server程序不做监控(既TCP UDP双向通讯 所有端口 对方任意IP地址 数据包均放行)

你好，其实测试的时候就用本机地址127.0.0.1进行就可以了，服务器和客户端都用一个IP，但端口不同，一般服务器端是固定端口，而多个客户端用其他的多个端口进行连接。 当然你想模拟更真实的效果，又没有多台机器，可以搭建虚拟机，比如vmware，把客户端或服务器放到虚拟机里去。
ServerSocket ss是一个监听程序，调用accept()方法开始监听，当有连接接过来的时候 这个监听程序将收到并包装成Socket对象传递回来，以上程序使用变量Socket so来接收这个返回对象。misfy520考虑采纳一下。有空到软件测试基地,365testing。baidu/。www.365testing.com 。CAAA

客户端添服务器的ip和端口，服务器端添自己的ip和端口。记得关掉俩机器的防火墙

用VB5中WinSock控件编写网上聊天程序 Sockets是在Unix系统上提出来的，一开始主要是用于本地通讯，但很快就应用到C/S体系上。MicroSoft公司在此基础上创建了WinSock控件，专门用于Windows接口，与Sockets完全兼容。Winsock控件对用户来说是不可见的，它提供了访问 TCP 和 UDP 网络服务的方便途径。Microsoft Access、Visual Basic、Visual C++ 或 Visual FoxPro 的开发人员都可使用它。为编写客户或服务器应用程序，不必了解 TCP 的细节或调用低级的 Winsock APIs。通过设置控件的属性并调用其方法就可轻易连接到一台远程机器上去，并且还可双向交换数据。下面就利用VB5中的WinSock控件编写一个网上聊天程序。一）网络通信协议的基础和选择1．1 TCP（数据传输协议）基础数据传输协议允许创建和维护与远程计算机的连接。连接两台计算机就可彼此进行数据传输。如果创建客户应用程序，就必须知道服务器计算机名或者 IP 地址（RemoteHost 属性），还要知道进行“侦听”的端口（RemotePort 属性），然后调用 Connect 方法。如果创建服务器应用程序，就应设置一个收听端口（LocalPort 属性）并调用 Listen 方法。当客户计算机需要连接时就会发生 ConnectionRequest 事件。为了完成连接，可调用 ConnectionRequest 事件内的 Accept 方法。建立连接后，任何一方计算机都可以收发数据。为了发送数据，可调用 SendData 方法。当接收数据时会发生 DataArrival 事件。调用 DataArrival 事件内的 GetData 方法就可获取数据。1．2 UDP（用户数据文报协议）基础用户数据文报协议 (UDP) 是一个无连接协议。跟 TCP 的操作不同，计算机并不建立连接。另外 UDP 应用程序可以是客户机，也可以是服务器。为了传输数据，首先要设置客户计算机的 LocalPort 属性。然后，服务器计算机只需将 RemoteHost 设置为客户计算机的 Internet 地址，并将 RemotePort 属性设置为跟客户计算机的 LocalPort 属性相同的端口，并调用 SendData 方法来着手发送信息。于是，客户计算机使用 DataArrival 事件内的 GetData 方法来获取已发送的信息。1．3 选择通讯协议在使用 WinSock 控件时，首先需要考虑使用什么协议。可以使用的协议包括 TCP 和 UDP。两种协议之间的重要区别在于它们的连接状态：TCP 协议是有连接的协议，可以将它同电话系统相比。在开始数据传输之前，用户必须先建立连接。UDP 协议是一种无连接协议，两台计算机之间的传输类似于传递邮件：消息从一台计算机发送到另一台计算机，但是两者之间没有明确的连接。另外，单次传输的最大数据量取决于具体的网络。到底选择哪一种协议通常是由需要创建的应用程序决定的。下面的几个问题将有助于选择适宜的协议：1. 在收发数据的时候，应用程序是否需要得到客户端或者服务器的确认信息？如果需要，使用 TCP 协议，在收发数据之前先建立明确的连接。2. 数据量是否特别大（例如图象与声音文件）？在连接建立之后，TCP 协议将维护连接并确保数据的完整性。不过，这种连接需要更多的计算资源，因而是比较“昂贵”的。3. 数据发送是间歇的，还是在一个会话内？例如，如果应用程序在某个任务完成的时候需要通知某个计算机，UDP 协议是更适宜的。UDP 协议适合发送少量的数据。通讯协议的选择是通过设置WinSock的Protocol属性来实现的。下面选择TCP通讯协议编写网上聊天程序，在此之前必须知道一个极其重要的参数---服务器端的IP地址或计算机名。二）确定计算机的名字1. 在计算机的桌面上，右键单击“网上邻居”。2. 选择“属性”。3. 单击“标识”选项卡。4. 在“计算机名称”框中可以找到计算机的名称。确定计算机的 IP地址1. 单击“任务条”上的“启动”。2. 选择“运行”。3. 若服务器端操作系统为win95则在“打开”中填入“winipcfg”，若服务器端操作系统为winnt则在“打开”中填入“ipconfig”。4. 按下“确定”键。上面找到的计算机名称或IP地址可以作为WinSock的RemoteHost 属性的值。三） winsock控件的State属性。state 属性的设置值是： 常 数值 描 述sckclosed 0 缺省的。关闭sckopen 1 打开scklistening 2 侦听sckconnectionpending 3 连接挂起sckresolvinghost 4 识别主机sckhostresolved 5 已识别主机sckconnecting 6 正在连接sckconnected 7 已连接sckclosing 8 同级人员正在关闭连接sckerror 9 错误下面主要要用到sckClosed.sckConnected两个State属性的值。四）网上聊天程序的编制4．1 程序中服务器端所起的作用。从图示中可以看到服务器端的两个winsock控件之间并不存在直接的通讯，同时sckServer1和sckClient2及sckServer2和sckClient1之间是不能直接通讯的。这也即是说若sckClient1向sckClient2发出信息，信息首先被sckServer1接受，sckServer1再将信息传给程序的信息处理部分，信息处理部分再将处理好的信息传给sckServer2，再由sckServer2传给sckClient2。反之亦然。那么服务器端的信息处理部分又进行什么工作呢？1. 对通讯的通道数作一些限制。2. 对使用后已关闭的通道，必须能够重新使用以节省资源。3. 必须对所传递的数据包信息作甑别，从而作出不同的处理。通过解开数据的包头就可区分不同的信息。网上聊天有两种方式：第一种，以广播方式；第二种，以点对点的方式。广播方式即所有客户都能收到某一客户发出的信息。点对点的方式即想说“悄悄话”的一对客户专门开辟了一间谈话的“小屋”，别的客户不能“听”到他们的谈话。在下面的程序中将看到如何利用数据的不同包头来区分用户是想以广播方式还是以点对点的方式进行谈话的（点对点方式数据的包头为“PT”,广播方式则无包头）。4．2 客户端的程序1. 在客户端创建一个新的工程将其命名为“ClientPrj”2. 将缺省窗体命名为 frmClient。3. 将窗体的标题改为“Client”。4. 在窗体中添加一个 WinSock 控件，并将其命名为 tcpClient。5. 在 frmClient 中添加一个ListBox 控件。将其命名为lstReceive。6. 在 frmClient 中添加一个 TextBox 控件。将其命名为 txtSend。7. 在窗体上放两个 CommandButton 控件，并将其命名为 cmdConnect和cmdSent。8. 将cmdConnect控件的标题改为 Connect, 将cmdSent控件的标题改为 Sent。9. 在窗体中添加如下的代码。Private Sub cmdConnect_Click()On Error GoTo ErrorProsckClient.ConnectExit SubErrorPro:MsgBox "服务器未开或网络出错！"EndEnd SubPrivate Sub cmdSent_Click()sckClient.SendData txtSent.TextEnd SubPrivate Sub Form_Load()' RemoteComputerName为服务器端的计算机名或IP地址。sckClient.RemoteHost = "RemoteComputerName"sckClient.RemotePort = 1000End SubPrivate Sub sckClient_Close()MsgBox "服务器通道已关闭！"EndEnd SubPrivate Sub sckClient_Connect()MsgBox "连接成功！"cmdConnect.Enabled = FalseEnd SubPrivate Sub sckClient_DataArrival(ByVal bytesTotal As Long)Dim s As StringsckClient.GetData slstReceive.AddItem sEnd SubPrivate Sub sckClient_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, _ ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)sckClient.ClosecmdConnect.Enabled = TrueEnd Sub4．3 服务器端的程序1. 在服务器端创建一个新的工程将其命名为“ServerPrj”。2. 将缺省窗体命名为“frmServer”。3. 在窗体中添加一个ListBox控件，将其命名为“lstReceive”。4. 在窗体中添加三个WinSock控件，将其分别命名为“sckListen”，sckBusy和“sckServer”并将“sckServer”的“Index”属性设置为0。5. 在窗体中添加如下代码.。'最大通道数Private MaxChan As IntegerPrivate Sub Form_Load()Dim i As IntegerMaxChan = 10For i = 1 To MaxChan - 1Load sckServer(i)Next isckListen.LocalPort = 1000sckListen.ListenEnd SubPrivate Sub sckBusy_Close()sckBusy.CloseEnd SubPrivate Sub sckBusy_DataArrival(ByVal bytesTotal As Long)sckBusy.SendData "服务器忙，请稍后再连接！"DoEventsEnd SubPrivate Sub sckListen_ConnectionRequest(ByVal requestID As Long)Dim i As Integer'决定由哪一Winsock接受请求For i = 0 To MaxChan - 1If sckServer(i).State = 0 ThenExit ForEnd IfNext iIf sckServer(i).State = 0 ThensckServer(i).Accept requestIDExit SubEnd If'如果所有Winsock都用完则由专门的“忙”Winsock接受请求，以免用户要求得不到响应sckBusy.ClosesckBusy.Accept requestIDEnd SubPrivate Sub sckListen_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, _ ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)sckListen.ClosesckListen.LocalPort = 1000sckListen.ListenEnd SubPrivate Sub sckServer_Close(Index As Integer)sckServer(Index).CloseEnd SubPrivate Sub sckServer_DataArrival(Index As Integer, ByVal bytesTotal As Long)Dim s As StringDim i As IntegersckServer(Index).GetData sIf UCase(Left(Trim(s), 2)) = "PT" Then '判断是否为悄悄话，点对点方式If IsNumeric(Mid(Trim(s), 3, 1)) Theni = Mid(Trim(s), 3, 1)sckServer(i).SendData "Channel " & Index & " " & Right(Trim(s), Len(Trim(s)) - 3)DoEventsEnd IfElse '广播方式For i = 0 To MaxChan - 1'利用winsock的State属性给所有连接在服务器上的客户发消息If sckServer(i).State = 7 ThensckServer(i).SendData "Channel " & Index & " " & Trim(s)DoEventsEnd IfNext iEnd IflstReceive.AddItem "Channel " & Index & " " & Trim(s)End SubPrivate Sub sckServer_Error(Index As Integer, ByVal Number As Integer, Description As String, _ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As _Long, CancelDisplay As Boolean)sckServer(Index).CloseEnd Sub从程序中可以看到：第一，程序中限制了通道数（10路）。第二，通过判断WinSock控件的State属性是否为0（关闭状态），来重新使用已关闭的WinSock控件。第三，通过给WinSock控件传递的信息加上包头，来对信息进行不同的处理（程序中若信息前加上了“PT"（Private Talk）+"通道数”的包头，由此就知道客户想要同拥有此“通道数”的另一客户进行“悄悄话”，否则就以广播方式将信息发给所有客户）。五） 结束语 WinSock控件不仅仅是用来编制网上聊天程序，而且可以用来编制各种网络游戏或网络通信程序。实际上WinSock控件是编制各种C/S程序的利器。在实际使用中通常是将WinSock控件封装在Activex DLL（进程内）、Activex EXE（进程外）部件的类中（类中引用）来使用的。通过区分所传信息前的不同的包头，用RaiseEvent命令引发不同 的事件，再对事件分别进行处理。这样不仅增加了程序的可调试性和安全性，而且更符合事件驱动编程方法的特点。
VB使用 WinSock 控件可以与远程计算机建立连接，并通过用户数据文报协议 (UDP)或者传输控制协议(TCP)进行数据交换。这两种协议都可以用来创建客户与服务器应用程序。与 Timer 控件类似，WinSock 控件在运行时是不可见的。使用 WinSock 控件时，首先需要考虑使用什么协议。可以使用的协议包括 TCP 和 UDP。两种协议之间的重要区别在于它们的连接状态.在与远程计算机相连接的时候，需要知道它的 IP 地址或者它的“好听的名字”。IP 地址是一串数字，每三个数字为一组，中间用点隔开（形如xxx.xxx.xxx.xxx）。通常，最易记住的是计算机的“好听的名字”。TCP 连接初步如果应用程序要使用 TCP协议，那么首先必须决定应用程序是服务器还是客户端。如果要创建一个服务器端，那么应用程序需要“监听”指定的端口。当客户端提出连接请求时，服务器端能够接受请求并建立连接。在连接建立之后，客户端与服务器端可以自由地互相通讯。创建一个 TCP 服务器：1.在窗体中放入一个 Winsock 控件，并将它的名字改为 tcpServer。2.在窗体上添加两个 TextBox 控件。将第一个命名为 txtSendData，第二个为 txtOutput。3.窗体添加如下的代码。Private Sub Form_Load()'将 LocalPort 属性设置为一个整数。'然后调用 Listen 方法。tcpServer.LocalPort = 1001tcpServer.ListenfrmClient.Show '显示客户端的窗体。End SubPrivate Sub tcpServer_ConnectionRequest _(ByVal requestID As Long)'检查控件的 State 属性是否为关闭的。'如果不是，'在接受新的连接之前先关闭此连接。If tcpServer.State <> sckClosed Then _tcpServer.Close'接受具有 requestID 参数的'连接。tcpServer.Accept requestIDEnd SubPrivate Sub txtSendData_Change()'名为 txtSendData 的 TextBox 控件中'包含了要发送的数据。当用户往文本框中'键入数据时，使用 SendData 方法'发送输入的字符串。tcpServer.SendData txtSendData.TextEnd SubPrivate Sub tcpServer_DataArrival _(ByVal bytesTotal As Long)'为进入的数据声明一个变量。'调用 GetData 方法，并将数据赋予名为 txtOutput'的 TextBox 的 Text 属性。Dim strData As StringtcpServer.GetData strDatatxtOutput.Text = strDataEnd Sub创建 TCP 客户端：1.在窗体中添加一个 Winsock 控件，并将其命名为 tcpClient。2.在 frmClient 中添加两个 TextBox 控件。将第一个命名为 txtSend，第二个为 txtOutput。3.在窗体上放一个 CommandButton 控件，并将其命名为 cmdConnect。4.将 CommandButton 控件的标题改为 Connect。5.窗体中添加如下的代码。Private Sub Form_Load()'Winsock 控件的名字为 tcpClient。'注意：要指定远程主机，可以使用' IP 地址（例如："121.111.1.1"），也可以使用'计算机的“好听的名字”如下所示。tcpClient.RemoteHost = "RemoteComputerName"tcpClient.RemotePort = 1001End SubPrivate Sub cmdConnect_Click()'调用 Connect 方法，初始化连接。tcpClient.ConnectEnd SubPrivate Sub txtSendData_Change()tcpClient.SendData txtSend.TextEnd SubPrivate Sub tcpClient_DataArrival _(ByVal bytesTotal As Long)Dim strData As StringtcpClient.GetData strDatatxtOutput.Text = strDataEnd Sub上面的代码创建了一个简单的客户/服务器模式的应用程序。我们可以将两者都运行起来：运行工程，然后单击“连接”。在两个窗体之一的 txtSendData文本框中键入文本，可以看到同样的文字将出现在另一个窗体的 txtOutput 文本框中。

这类软件各有千秋，基本功能都差不多，区别在于数据处理和管理功能的强弱。功能强一点的有格西烽火通信软件，传统的有网络调试助手等。