Super Moderator
Data inscrierii: 29/Aug/2007
Mesaje: 34
|
|
Credite lui: Ras
Intra in VB fa un proiect nou.
Adauga Winsock Control (apesti CTRL + T si selectezi acolo).
Creeaza 2 textboxes, 2 buttons, 1 timer, 1 listbox, 1 winsock
Primul Textbox este pt IP, al doilea pt port, întâiul buton pt start, al doilea pt stop.
Pune timerul False si pune intervalu 1.
| Cod: |
In primul buton scrii:
Private Sub Command1_Click()
Winsock1.RemoteHost = Text1.Text
Winsock1.RemotePort = Text2.Text
Winsock1.Connect
Timer1.Enabled = True
End Sub
In timer scrii:
Private Sub Timer1_Timer()
Winsock1.Close ' closes the last connection
Text2.Text = Int(Text2.Text) + 1
Winsock1.RemoteHost = Text1.Text
Winsock1.RemotePort = Text2.Text
Winsock1.Connect
End Sub
In winsock scrii:
Private Sub Winsock1_Connect()
List1.AddItem "Port " & Winsock1.RemotePort & " is having a yard sale."
End Sub
In al doilea buton scrii:
Private Sub Command2_Click()
Timer1.Enabled = False ' stops the scanning timer
Winsock1.Close ' closes any open winsock connection that was still open.
End Sub |
|
_________________
Ras - RO Team |
|
