İp Scanner (: yapımı

' CoDeR ßy*CaGLaR

Private Sub Command1_Click()
Select Case Command1.Caption
Case "GO"
List1.Clear
Timer1.Interval = delay
Timer3.Interval = delay
Timer4.Interval = delay
Timer5.Interval = delay
Timer1.Enabled = True
Timer3.Enabled = True
Timer4.Enabled = True
Timer5.Enabled = True
Command1.Caption = "STOP"
Case "STOP"
Timer1.Enabled = False
Timer3.Enabled = False
Timer4.Enabled = False
Timer5.Enabled = False
Command1.Caption = "GO"
End Select
End Sub

Private Sub Command2_Click()
Form2.Show
End Sub

Private Sub Form_Load()
Timer1.Enabled = False
porttoscan = 5900
delay = 20
End Sub

Private Sub sock_Close()
sock.Close
End Sub

Private Sub sock_Connect()
List1.AddItem sock.RemoteHostIP
sock.Close
End Sub

Private Sub sock_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
sock.Close
End Sub

Private Sub sock1_Close()
sock1.Close
End Sub

Private Sub sock1_Connect()
List1.AddItem sock1.RemoteHostIP
End Sub

Private Sub sock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
sock1.Close
End Sub

Private Sub sock2_Close()
sock2.Close
End Sub

Private Sub sock2_Connect()
List1.AddItem sock2.RemoteHostIP
End Sub

Private Sub sock2_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
sock2.Close
End Sub

Private Sub sock3_Close()
sock3.Close
End Sub

Private Sub sock3_Connect()
List1.AddItem sock3.RemoteHostIP
End Sub

Private Sub sock3_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
sock3.Close
End Sub

Private Sub Timer1_Timer()
sock.Close
sock.Connect getip, porttoscan

End Sub

Private Sub Timer2_Timer()
Label1.Caption = "Port = " & porttoscan
Label2.Caption = "Delay = " & delay
End Sub

Private Sub Timer3_Timer()
sock1.Close
sock1.Connect getip, porttoscan

End Sub

Private Sub Timer4_Timer()
sock2.Close
sock2.Connect getip, porttoscan

End Sub

Private Sub Timer5_Timer()
sock3.Close
sock3.Connect getip, porttoscan

End Sub

' CoDeR ßy*CaGLaR

Private Sub Command1_Click()
porttoscan = Text2.Text
delay = Text1.Text
Unload Me

End Sub

Global porttoscan As Integer
Global delay As Integer

Public Function getip() As String
getip = Form1.ip1.Text & "." & Form1.ip2.Text & "." & Form1.ip3.Text & "." & Form1.ip4.Text
If Form1.ip4.Text < 255 Then
    Form1.ip4.Text = Form1.ip4.Text + 1
ElseIf Form1.ip4.Text = 255 Then
    Form1.ip4.Text = 0
        If Form1.ip3.Text < 255 Then
            Form1.ip3.Text = Form1.ip3.Text + 1
        ElseIf Form1.ip3.Text = 255 Then
            Form1.ip3.Text = 0
                If Form1.ip2.Text < 255 Then
                Form1.ip2.Text = Form1.ip2.Text + 1
                ElseIf Form1.ip2.Text = 255 Then
                Form1.ip2.Text = 0
                'stopcancel ping, False
                End If
        End If
End If
End Function