编程论坛 → VB6论坛

用WINSOCK做了一个聊天工具，请指导

beyondlwm 发布于 2006-11-25 02:31， 1260 次点击

做了一个聊天工具，但是有些地方不甚理想，还望指教：

1 如果在开始输入IP的地方不输入，或者在未连接成功的情况下发送消息。系统会提示有错误，然后自动关闭程序。我希望错误出现后能发生自己设置的事件，且不自动关闭程序，就象如果连接失败时的反复提示一样。

2 聊天内容出来以后，你说的话，和别人说的话分别用红色和蓝色来表示

3 TEXT的聊天内容实现自动换行

4 连接成功后，在发送消息的对话框中，即使点取消也能发送一个空消息，如何纠正？

5 INPUTBOX的乱码可以修正吗？？

谢谢！

只有本站会员才能查看附件，请登录

5 回复

#2

beyondlwm2006-11-25 02:47

还有一个问题就是想知道

Private Sub myServer_ConnectionRequest(ByVal requestID As Long)
If myserver.State <> sckClosed Then
myserver.Close
End If
myserver.Accept requestID
End Sub

这段代码的意思。是不是我们每说一句话的时候，实际上客户端和服务端都重新建立了一次连接呢？

[此贴子已经被作者于2006-11-25 2:50:35编辑过]

#3

flyly2006-11-27 14:24

要程序的找我 xx5865@163.com

#4

redice2006-12-11 13:50

（我没能下载下来你的源文件）请问你用的是什么协议，写聊天程序用UDP是相当简单的。你可以发邮件给我，我把以前写的局域网聊天程序的源代码发给你。
我的e-mail: xiaopeng.qi@126.com

[此贴子已经被作者于2006-12-11 13:50:48编辑过]

#5

学习VB才2天2006-12-11 14:44

Private Sub myServer_ConnectionRequest(ByVal requestID As Long)
If myserver.State <> sckClosed Then 如果mysever的状态不为关闭则..
myserver.Close
End If
myserver.Accept requestID 接受连接请求
End Sub

#6

jiaqiyao20012012-10-14 20:04

打不开，真的打不开

1