| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 947 人关注过本帖
标题:On error的问题
只看楼主 加入收藏
renxiaoyao36
Rank: 9Rank: 9Rank: 9
来 自:七宝中学
等 级:贵宾
威 望:31
帖 子:347
专家分:1077
注 册:2014-9-18
结帖率:92.31%
收藏
已结贴  问题点数:20 回复次数:1 
On error的问题
程序代码:
For i = 0 To 65536
Debug.Print i
On Error GoTo sss
Load Listener(i)
Listener(i).LocalPort = i
Listener(i).Listen
DoEvents
Text1.Text = Text1.Text & vbCrLf & Now & " 监视" & i & "端口"
Text1.SetFocus
On Error GoTo 0
sss2:
Next i
这是程序代码,其中我知道Listener(i).Listen这一句会出错,所以设置了On error goto代码,但是依旧会报错弹出,怎么办?
我加入了winsock控件,listener控件数组就是一个Winsock。
报错信息为实时错误:"10048"
2015-12-14 16:19
wmf2014
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:216
帖 子:2039
专家分:11273
注 册:2014-12-6
收藏
得分:20 
如果只想找空闲端口或测试本机哪些端口被占用的话,不需要控件数组。

能编个毛线衣吗?
2015-12-15 08:39
快速回复:On error的问题
数据加载中...
 
   



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

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