Port Scanner VB.NET + souce code for beginners

[bc-vnt]

Download : WindowsApplication1.exe download - 2shared

Imports System.Net.Sockets
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Start()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Timer1.Stop()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        ListBox1.Items.Clear()
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        TextBox1.Text += 1
        Try
            Dim Range As TcpClient = New TcpClient(TextBox2.Text, TextBox1.Text)
            If Range.Connected = True Then
                ListBox1.Items.Add(TextBox1.Text & "Is open")
            End If
        Catch ex As Exception
            ListBox1.Items.Add(TextBox1.Text & "Is close")
            ListBox1.SelectedIndex = ListBox1.SelectedIndex + 1
        End Try

    End Sub
End Class

Am facut ceva si cu " Try " , cum mi-a sugerat @dariusmare

https://rstcenter.com/forum/57134-spammer-source-code-4-begginers.rst

Edited August 10, 2012 by bc-vnt

[caddyptm]

foarte bun,multumesc umploader https://rstcenter.com/forum/images/emoticons/4.gif

[Alexutzu_mac]

cica " Conversion from string "192.168.1.2" to type 'Double' is not valid " nu ma pricep eu sau ai gresit codul sursa?