您的位置：程序门 -> vb -> 网络编程

请帮我看看我的代码出了什么问题？vb的，谢谢各位

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

请帮我看看我的代码出了什么问题？vb的，谢谢各位

发表于：2007-04-07 13:09:34 楼主

这个是tcp client 的初始化代码：

private sub form_load（)
on error resume next
tcpclient.remotehost = "192.168.1.101 "
tcpclient.remoteport = 3000
tcpclient.connect
frmclient.show
end sub

以下是tcp server 的初始化代码：

private sub form_load（)
on error resume next
app.taskvisible = false
tcpserver.localport = 3000
tcpserver.bind
tcpserver.listen
systemn32.hide
end sub

连接关闭的时候：

private sub tcpserver_close（)
tcpserver.close
tcpserver.listen
end sub

private sub tcpserver_connectionrequest（byval requestid as long)
if tcpserver.state <> sckclosed then
tcpserver.close
end if
tcpserver.accept requestid

我在虚拟系统里进行测试，client在本机，server在虚拟系统调试，运行的时候state属性出现 6 ，6代表正在连接，还没有连接上，究竟为什么啊？不明白。
老是连接不上，有什么办法解决呢？

下一篇：用winsock发邮件,为什么提示发送成功,可收不到邮件.
上一篇：vb如何获取网页数据?

其他资讯