jeaman 发表于 2008-6-19 13:23:32

局域网聊天的问题

我想实现在局域网上的A机器和B机器聊天,但是A机器和B机器之间无法建立连接。
以下的做法是否正确?
在A机器上用TCPListen(@IPAddress1,65432)创建一个套接字(socket)监听,B机器用TCPConnect( $Server_IP,65432 )连接。($Server_IP为A机器的IP。)
但是发现B机器连接不上A机器。@error的值为10061

服务端(A机器)

;服务器的IP
$g_IP = "192.168.1.1"

TCPStartUp()

$MainSocket = TCPListen($g_IP, 65432,100 )
If $MainSocket = -1 Then Exit
While 1
$ConnectedSocket = TCPAccept( $MainSocket)
If $ConnectedSocket >= 0 Then
    msgbox(0,"", "我的服务器 - 客户端已经连接")
    exit
EndIf
Wend


客户端(B机器)

$Server_IP = "192.168.1.1"

TCPStartUp()

$socket = TCPConnect( $g_IP, 65432 )
If $socket = -1 Then Exit


[ 本帖最后由 jeaman 于 2008-6-19 13:26 编辑 ]

zjg2003 发表于 2009-3-16 14:51:51

客户端(B机器)

The au3 Code:
关于插件打印代码保存代码复制代码普通浏览
$Server_IP = "192.168.1.1"

TCPStartUp()

$socket = TCPConnect( $Server_IP, 65432 )
If $socket = -1 Then Exit


这样就可以,刚好这几天在看这个东西,发现你这个,也让我明白了一些

ueiayz 发表于 2009-8-31 04:03:50

我现在也需要这方面的资料

bbip 发表于 2009-10-12 16:46:32

这个还有点难啊

yongyuan527 发表于 2009-10-12 22:47:39

这也可以?飞鸽行不!

kodin 发表于 2009-10-14 22:09:42

论坛有相应源码,善用搜索。
页: [1]
查看完整版本: 局域网聊天的问题