Gerekenler:
1 textbox
1 listbox
2 button
1 timer
textbox1 in text ine 0 yazın.
button 1 e başla yazın
button 2 ye durdur yazın
timer interval özelliğini 5 yapın.
Kodlarımız:
Button1_Click
Timer1.Enabled = True
Button2_Click
Timer1.Enabled = False
timer_tick
TextBox1.Text += 1
Try
Dim Range As TcpClient = New TcpClient("127.0.0.1", TextBox1.Text)
If Range.Connected = True Then
ListBox1.Items.Add(TextBox1.Text & " Açık")
End If
Catch ex As Exception
ListBox1.Items.Add(TextBox1.Text & " Kapalı")
ListBox1.SelectedIndex = ListBox1.SelectedIndex + 1
End Try
programımız hazır isterseniz siz geliştirebilirsiniz.
not: Bu sadece sizin portlarınızı tarar textbox1.text 0 değeri yazdık çünkü 1 den başlayarak bütün portları tarasın diye isterseniz değiştirebilirsiniz.
bi teşekkürü çok görmeyin.
1 textbox
1 listbox
2 button
1 timer
textbox1 in text ine 0 yazın.
button 1 e başla yazın
button 2 ye durdur yazın
timer interval özelliğini 5 yapın.
Kodlarımız:
Button1_Click
Timer1.Enabled = True
Button2_Click
Timer1.Enabled = False
timer_tick
TextBox1.Text += 1
Try
Dim Range As TcpClient = New TcpClient("127.0.0.1", TextBox1.Text)
If Range.Connected = True Then
ListBox1.Items.Add(TextBox1.Text & " Açık")
End If
Catch ex As Exception
ListBox1.Items.Add(TextBox1.Text & " Kapalı")
ListBox1.SelectedIndex = ListBox1.SelectedIndex + 1
End Try
programımız hazır isterseniz siz geliştirebilirsiniz.
not: Bu sadece sizin portlarınızı tarar textbox1.text 0 değeri yazdık çünkü 1 den başlayarak bütün portları tarasın diye isterseniz değiştirebilirsiniz.
bi teşekkürü çok görmeyin.
