利用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

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件         54  2012-01-09 21:21  端口扫描.vbw

     文件        193  2012-01-09 20:57  MSSCCPRJ.SCC

     文件      45056  2012-01-09 21:06  端口扫描.exe

     文件       5407  2012-01-09 21:06  端口扫描.frm

     文件      10150  2012-01-09 21:06  端口扫描.frx

     文件        839  2012-01-09 21:21  端口扫描.vbp

     文件     108336  1998-06-24 00:00  MSWINSCK.OCX

     文件         49  2012-01-09 21:07  首先注册控件，WIN7下以管理员身份运行.bat

----------- ---------  ---------- -----  ----

               170084                    8