Gönderen Konu: VB.NET SISTEM PORTLARINI TARAMA UYGULAMASI YAPALIM  (Okunma sayısı 1575 defa)

Çevrimdışı sametkocak

  • Samet KOÇAK
  • Yönetici
  • Kahraman Üye
  • *****
  • İleti: 536
  • www.sametkocak.com
    • Profili Görüntüle
    • Samet KOÇAK
Merhabalar buy azımda sizlere visual basic.net programlama dili ila bilgisayrımızdaki portları tarama uygulaması yapmayı göstereceğim.uygulamamız bilgisayarımzıdaki açık portları tesbit ederek lisboxa ekleyecek.Uygulamanın kaynak kodlarını aşağıdaki bağlantıdan indirebliriniz.Bize gerekli kontroller 2 TİMER,2 LİSTBOX,2 BUTON,2TEXTBOX
Ekran Görüntümüz


 
Private Sub Timer1_Tickc
Counter = counter + 1
TextBox2.Text = counter
host = TextBox1.Text
port = TextBox2.Text       
Dim hostadd As System.Net.IPAddress = System.Net.Dns.GetHostEntry(host).AddressList(0)
Dim EPhost As New System.Net.IPEndPoint(hostadd, port)
Dim s As NewSystem.Net.Sockets.Socket(System.Net.Sockets.AddressFamily.InterNetwork,
System.Net.Sockets.SocketType.Stream, System.Net.Sockets.ProtocolType.Tcp)
        Try
        s.Connect(EPhost)
        Catch
End Sub
Private Sub Button1_Click
        ListBox1.Items.Add("Taranıyor: " + TextBox1.Text)

        ListBox1.Items.Add("-------------------")

        Button2.Enabled = True

        Button1.Enabled = False

        Timer1.Enabled = True

        Timer1.Start()
    End Sub

    Private Sub Button2_Click
        Timer1.Stop()

        Timer1.Enabled = False

        Button1.Enabled = True

        Button2.Enabled = False

    End Sub

    Private Sub Timer2_Tick
        If My.Computer.Network.IsAvailable = True Then

            Label5.Text = "Bağlı"
            Label5.ForeColor = Color.Green
        Else
            Label5.Text = "Bağlantı Yok!"
            Label5.ForeColor = Color.Red
        End If
    End Sub

Mühendis Forum