Question

高手帮忙解释一段vb代码。关于winsock1.close。。。

On Error GoTo viriio:
Do
portnum = portnum + 1
DoEvents
If start = True Then
Winsock1.Close
DoEvents
Winsock1.LocalPort = portnum
DoEvents
txtcon.Text = portnum
Winsock1.Listen
DoEvents
Else
portnum = 0
Exit Sub
End If
Winsock1.Close
DoEvents
Loop Until portnum >= porttwo
portnum = 0
viriio:
If Err.Number = 10048 Then
lstOpenPorts.Text = lstOpenPorts.Text & vbCrLf & "端口" & Winsock1.LocalPort & "开放中"
Resume Next
End If
End Sub

Answer 1

嗯，朋友，首先要说的是这段程序很多错误，
On Error GoTo viriio:
Do
portnum = portnum + 1 ‘这是用遍历法搜寻所有电脑端口是否有开放的
DoEvents
If start = True Then ’这句没有说明白，start没有定义，我估计你要表达的是Winsock1.State
Winsock1.Close
DoEvents
Winsock1.LocalPort = portnum
DoEvents
txtcon.Text = portnum
Winsock1.Listen ‘这是监听
DoEvents
Else
portnum = 0 ’这句话不知道什么意思
Exit Sub
End If
Winsock1.Close ‘断开连接
DoEvents
Loop Until portnum >= porttwo ’做循环到porttwo
portnum = 0
viriio:
If Err.Number = 10048 Then ‘这里有问题，出错应该直接退出
lstOpenPorts.Text = lstOpenPorts.Text & vbCrLf & "端口" & Winsock1.LocalPort & "开放中"
Resume Next
End If
End Sub

追问

你没看懂On Error GoTo 语句。。。 错误号10048，表示此端口正在使用中，判断该端口开放，输出数据到lstopenports文本框，显示内容为“**端口开放中”。其他参数都是提前定义好的，这只是一部分代码，我只有中间winsock1.close不太懂。。。

Answer 2

如果winsock1已经在使用 那你不 close 则后面的附值和方法 都会报错

如果对winsock1要更改属性后再启用
我们一般:
winsock1.close '关闭连接

在设置新值
再启用

Answer 3

在没有调试好的时候要把On Error GoTo viriio:去掉
出错的提示是一种调试的帮助
有了这一句等于失去了帮助
就不知道出了什么错，哪句出了错

Answer 4

设一个功能键 Command1
2.Private Sub Command1_Click()
Text2.Text = Text1.Text
End Sub

Answer 5

能不能把问题再说明白点