Port scaner in retea

In jos

Port scaner in retea

Mesaj Scris de Max la data de Dum Sept 07, 2008 7:16 pm

Sa incepem ....

Deschidem visual basic New "Standard EXE".

Dupa plasam in acest Standard exe:

2 Text boxes

Le vom numii "Text1" si "Text2".

Dupa plasam un List box in form si il vom numii "List1" .

Acuma punem 3 butoane care le numim "Command1" "Command2" "Command3"

Punem o componenta winsocks si o vom denumii "Winsock1".

Sa punem nume butoanelor command1 punem "Start Scan" command2 scriem "Stop Scan" si command3 vom pune "Clear".

Adaugam urmatorul cod:

Private Sub Form_Load()
Timer1.Interval = 1
Timer1.Enabled = False
Text2.Text = "0"
End Sub
Private Sub Timer1_Timer()
On Error Resume Next
Winsock1.Close
Text2.Text = Text2.Text + 1
Winsock1.RemoteHost = Text1.Text
Winsock1.RemotePort = Text2.Text
Winsock1.Connect
End Sub
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
Text2.Text = "0"
End Sub
Private Sub Command3_Click()
List1.Clear
End Sub
Private Sub Winsock1_Connect()
List1.AddItem Winsock1.RemotePort & " Este Deschis!"
End Sub




Succes.

Max
Moderator
Moderator

Numarul mesajelor : 53
Varsta : 30
Localitate : Confidential
Stare de spirit : Rakiu
Data de inscriere : 23/08/2008

Vezi profilul utilizatorului

Sus In jos

Sus


 
Permisiunile acestui forum:
Nu puteti raspunde la subiectele acestui forum