資源簡介
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
-----------?---------??----------?-----??----
?????文件?????????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
評論
共有 條評論