evet beyler bildiginiz gibi bir port tarayıcı saglamdır calışmama ihtimali yok
linkler buradan:

http://www.upload.gen.tr/d.php/s15/2...__c__.rar.html
http://uploaded.to/file/dai7lh

kaynak kod buradan:

forma 1 listbox
4 command buton
3 textbox
3 timer

command1 başlatacak
command2 durduracak
command3 list temizleyecek
command4 kaydedecek
text1 ip
text2 port baslangıcı
text3 timer hızı
timer1 ve timer2 interval 100
timer3 interval ise 1 olacak

ve kodlar:

HTML Code:
Private Sub Command1_Click() Timer1.Enabled = True Timer2.Enabled = True Text2.Enabled = False End Sub Private Sub Command2_Click() Timer1.Enabled = False Timer2.Enabled = False Text2.Enabled = True End Sub Private Sub Command3_Click() List1.Clear End Sub Private Sub Timer1_Timer() Winsock1.Close Winsock1.RemoteHost = Text1.Text Winsock1.RemotePort = Text2.Text Winsock1.Connect End Sub Private Sub Timer2_Timer() Text2.Text = Val(Text2.Text + 1) End Sub Private Sub Timer3_Timer() If Text2.Text = "65535" Then Timer1.Enabled = False Timer2.Enabled = False Winsock1.Close End If End Sub Private Sub Winsock1_Connect() List1.AddItem (Winsock1.RemotePort) End Sub

__________________