[原创]用VBA做的word中的聊天程序（开放源程序）

skyya · 发表于 2006-12-21 13:13

最近学学做网络程序，因为平时对VBA比较喜爱，做了一个简易的聊天程式，server为服务端要先开，cilent为客户端，用时你改一下IP，期待大家完善！

iHaiITkd.rar (77.04 KB, 下载次数: 255)

liustar123 · 发表于 2006-12-21 13:49

不会用啊楼主解释一下

是否要在两台机器上使用呢？我把 cilent 拷贝到了虚拟机上面，然后虚拟机和本机的IP都设置在了一个网段上了，但是好像数据喘不过来~

skyya · 发表于 2006-12-21 15:12

也可以在一个机子用，不过你要改一下程式中的IP，先打开server,然后运行client，在编辑框中输入文字，就可以了，现在忙，一会我详细介绍！

liustar123 · 发表于 2006-12-21 15:34

ok

在程序中改了IP 可以传送数据了，但是两台机器之间还没有搞成功，期待楼主中，呵呵

skyya · 发表于 2006-12-21 15:49

"server 的窗体“

Private Sub UserForm_Initialize()

TCPServer.LocalPort = 8080 ‘连接端口”
TCPServer.Listen
End Sub

"client 的窗体“

Private Sub UserForm_Initialize()

tcpClient.RemoteHost = "192.168.0.88" '这个很重要，设为你的IP，如

果你在本机用，就改为127.0.0.1
tcpClient.RemotePort = 8080

End Sub

skyya · 发表于 2006-12-21 15:52

看看你机子有没有防火墙,因为没加出错处理，所以请你多试几次，也可改进，我们再交流。

andysky · 发表于 2006-12-21 19:46

好想法

skyya · 发表于 2006-12-22 14:19

呵呵，大家不是很感兴趣哟

守柔 · 发表于 2007-2-16 06:58

QUOTE:

以下是引用skyya在2006-12-21 15:49:30的发言：

"server 的窗体“

Private Sub UserForm_Initialize()

TCPServer.LocalPort = 8080 ‘连接端口”
TCPServer.Listen
End Sub

"client 的窗体“

Private Sub UserForm_Initialize()

tcpClient.RemoteHost = "192.168.0.88" '这个很重要，设为你的IP，如

果你在本机用，就改为127.0.0.1
tcpClient.RemotePort = 8080

End Sub

为何我测试时，总是出现8080的端口正在使用的错误呢？

请楼主描述一下这个程序的意义，我对此不太明白，但我感觉意义很大，正如您申请的精华一样，我需要加以测试。

谢谢！

liustar123 · 发表于 2007-2-16 10:29

想问一下连接主机其他的端口也应该可以吧只要使用 TCP协议来传输数据就应该行吧

有点晕了因为你运行的某些程序总是会监听着 8080端口的，这个端口一直在处于占用状态

[em06]

		自动登录	找回密码
密码			免费注册