端口扫描器程序 txtIP.Text = wskSocket.LocalIP,获取本机的IP地址(VB6.0源代码编写)Sub SCanningPorts() '自定义的过程 Dim porttwo As Long portnum = txtUB.Text porttwo = Text3.Text On Error GoTo viriio: Do portnum = portnum + 1 DoEvents If start = True Then wskSocket.Close DoEven