KILLVSCAN端口扫描器

Dim Tim As Integer
Private Sub Command1_Click()
List1.Clear
If Text2.Text = "" And Text3.Text = "" Then MsgBox "扫描的端口范围!!": Exit Sub
Timer1.Enabled = True
If Text2.Text <> "" Then
    Tim = Val(Text2.Text)
Else
    Tim = Val(Text3.Text)
End If
Winsock1.Close
End Sub
Private Sub Command2_Click()
MsgBox "Welcom WWW.KILL-V.COM  BY BUXCHANG"
End
End Sub
Private Sub Command3_Click()
Winsock1.Close
Timer1.Enabled = False
End Sub
Private Sub Form_Load()
Text1.Text = Winsock1.LocalIP
Winsock1.Close
End Sub
Private Sub Timer1_Timer()
Text4.Text = "正在扫描....." & Tim & "完成!"
On Error GoTo star
Winsock1.Close
Winsock1.Connect Text1.Text, Tim
DoEvents
DoEvents
star:
Tim = Tim + 1
    If Tim >= Val(Text3.Text) Then Winsock1.Close: Timer1.Enabled = False

网管bitscn_com

End Sub
Private Sub Winsock1_Connect()
    List1.AddItem Tim
    Winsock1.Close
End Sub