| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1040 人关注过本帖
标题:请帮忙,关于网络使用的问题
只看楼主 加入收藏
zfjyyzycl
Rank: 2
等 级:论坛游民
帖 子:239
专家分:10
注 册:2006-4-15
结帖率:28.57%
收藏
 问题点数:0 回复次数:2 
请帮忙,关于网络使用的问题
客户端和服务器

一个测试网络和服务器状态的表单,
Private Sub Form_Load()
    Winsock1.RemoteHost = "46.0.180.153"
    Winsock1.RemotePort = 5000
    Winsock1.Connect
End Sub
Private Sub Command2_Click()
    If Text1.Text = "" Or Text2.Text = "" Then
        Call MsgBox("服务器IP地址和端口不能为空,请重新输入!", vbonlyok, "警告")
        Exit Sub
    End If
    On Error GoTo errhandle:
    Winsock1.SendData "001"
errhandle:
    If Err.Number = 40006 Then
        MsgBox "网络不通、与服务器失去联系或者服务器没有启动111!"
    End If
End Sub
以上可以成功的从服务器根据客户端发送的信息,获取返回的相应的信息

但是如果我这样做,将联接的部分放到按钮里
Private Sub Command2_Click()
    Winsock1.RemoteHost = "46.0.180.153"
    Winsock1.RemotePort = 5000
    Winsock1.Connect

    If Text1.Text = "" Or Text2.Text = "" Then
        Call MsgBox("服务器IP地址和端口不能为空,请重新输入!", vbonlyok, "警告")
        Exit Sub
    End If
    On Error GoTo errhandle:
    Winsock1.SendData "001"
errhandle:
    If Err.Number = 40006 Then
        MsgBox "网络不通、与服务器失去联系或者服务器没有启动111!"
    End If
End Sub
执行到 发送测试数据的时候就出现了
实时错误‘40006’
所需事物或请求的错误协议或联接状态

到底怎么回事啊
请帮忙,不胜感激
搜索更多相关主题的帖子: 网络 服务器 Sub GoTo MsgBox 
2008-08-05 10:43
octillion
Rank: 1
等 级:新手上路
帖 子:195
专家分:0
注 册:2008-7-24
收藏
得分:0 
Winsock1.Connect
......
    Winsock1.SendData "001"


请你理解,Winsock的SendData不是在Connect方法之后这样使用的。
具体用法见使用成功的程序。
2008-08-05 11:37
simpson
Rank: 3Rank: 3
等 级:论坛游民
威 望:7
帖 子:863
专家分:17
注 册:2006-11-16
收藏
得分:0 
需要检测连接状态    待成功连接再发送

全国最大的 Java专业电子书免费分享[url]http:///in.asp?id=xrmao[/url]
2008-08-05 20:59
快速回复:请帮忙,关于网络使用的问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.037621 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved