'Merhaba,
'Aþaðýdaki kodlar ile internet veya yerel að uzerindeki herhangibir
'bilgisayarýn acýk portlarýný tarayabilirsiniz.
'Kodlamaya baþlamadan once form uzerine ;
'1 adet ListBox
'1 adet TextBox
'2 adet CommandButon
'1 adet WinSock
'nesnesi yerleþtirin. TextBox nesnesinin MultiLine ozelliðine True deðeri verin.
'Bu yazýyý birebir VB editor´e copy/paste edebilirsiniz.

Dim PortSay As Long
Dim IpAdd As String

Private Sub Command2_Click()
PortSay = 65531
Winsock1.Close
End Sub

Private Sub Form_Load()
List1.Left = 120
List1.Top = 120
List1.Height = 1815
List1.Width = 4695
Command1.Left = 120
Command1.Top = 2040
Command1.Height = 495
Command1.Width = 1095
Command1.Caption = "&Baþlat"
Command2.Left = 1320
Command2.Top = 2040
Command2.Height = 495
Command2.Width = 1095
Command2.Caption = "&Durdur"
Text1.Text = ""
Text1.Left = 120
Text1.Top = 2640
Text1.Height = 975
Text1.Width = 4695
Text1.Locked = True
Command1.Enabled = True
Command2.Enabled = False
End Sub
Private Sub Command1_Click()
IpAdd = InputBox("Lutfen bir ip adres veya bilgisayar adý yazýnýz:", "Uzak PC")
Text1.Text = Text1.Text & "Port Scanner 1.01" & vbCrLf & "Portlar taranýyor..." & vbCrLf
Command1.Enabled = False
Command2.Enabled = True
Winsock1.Close
While Not PortSay = 65531
DoEvents
If Winsock1.State = 0 Then Winsock1.Connect IpAdd, PortSay
If Winsock1.State = 9 Then
Winsock1.Close
PortSay = PortSay + 1

End If
If Winsock1.State = 7 Then
Winsock1.Close
List1.AddItem IpAdd & " : " & PortSay
Text1.Text = Text1.Text & IpAdd & " uzerinde " & PortSay & " portu acýk." & vbCrLf
PortSay = PortSay + 1
End If
Wend
Text1.Text = Text1.Text & "Ýþlem tamamlandý." & vbCrLf
Command1.Enabled = True
Command2.Enabled = False
End Sub
__________________