|
#2
wmf20142015-12-15 08:39
|
程序代码：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代码，但是依旧会报错弹出，怎么办？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
我加入了winsock控件，listener控件数组就是一个Winsock。
报错信息为实时错误："10048"