文件名称：利用Winsock写的端口扫描程序，有简单注释
文件大小：63KB
文件格式：RAR
更新时间：2015-01-29 15:09:40
winsock 端口扫描
Private Sub Command1_Click() List1.Clear If Text2.Text = "" Or Text3.Text = "" Then MsgBox "没有端口扫什么扫啊！" & vbCrLf & "输入从1到65535的端口号。", 0 + 48, "端口号不能为空！" ElseIf Text2.Text > "65535" Or Text3.Text > "65535" Then MsgBox "没有这么大的端口号的！" & vbCrLf & "正确的端口号从1到65535。", 0 + 48, "端口号错了！" End If Winsock1.Close Start = True Call SCanningPorts '调用自定义过程 List1.AddItem "端口" & Text2.Text & "-" & Text4.Text & "已扫描完成！" '扫描结束了 List1.Text = List1.List(List1.NewIndex) End Sub
【文件预览】：
端口扫描.frm
MSSCCPRJ.SCC
首先注册控件，WIN7下以管理员身份运行.bat
端口扫描.vbp
端口扫描.frx
端口扫描.vbw
端口扫描.exe
MSWINSCK.OCX