İlk olarak Foruma Winsock Nesnesi Ekleyelim.
2 Adet Timmer
2 Adet Buton
1 Adet List Box
1 Adet Textbox
Gorunuşu Benim YAptığım Gibi Yapabilirsiniz:
http://img30.**************/img30/6392/aaaaaaaaam.jpg
Yerleştirme İşlemi Bittikden Sonra Aşadaki Kodları Projeye Kopylayın....
Forum:
Dim port As Integer
Private Sub Command1_Click()
port = 0
Text1_DblClick
End Sub
Private Sub Command2_Click()
On Error Resume Next
List1.Clear
port = 0
End Sub
Private Sub Form_Load()
port = 0
End Sub
Private Sub Form_Resize()
On Error Resume Next
Form1.ScaleHeight = 4125
Form1.ScaleLeft = 4125
Form1.ScaleLeft = 0
Form1.ScaleTop = 0
Form1.Width = 4755
Form1.Height = 4635
End Sub
Private Sub Text1_DblClick()
On Error Resume Next
Form1.Show
For i = 1 To 20000
If port = f Then port = ""
Winsock1.Close
Winsock1.Connect Text1.Text, port
f = List1.List(0)
port = port + 1
DoEvents
Next i
End Sub
Private Sub Timer2_Timer()
On Error Resume Next
Form1.Show
For i = 1 To 20000
Winsock1.Close
Winsock1.Connect Text1.Text, port
port = port + 1
DoEvents
Next i
End Sub
Private Sub Winsock1_Connect()
List1.AddItem ("Open Port : " & Winsock1.RemotePort)
End Sub
Bir Kısmı Alıntıdır....
Yorumlarınızı Bekliyorum
__________________