Port Scanner

ابتدا کلاس زیر را تعریف می کنیم (کد سراسری
imports system.net.sockets
---------------------------------------------
حال شیئ زیر را ایجاد می کنیم

Timer

---------------------------------------------
شیئ زیر هم ایجاد می کنیم و در رویداد کلیک  آن تابع زیر را می نویسیم
Timer1.Enable=True
---------------------------------------------
اشیاء زیر هم ایجاد می کنیم
TextBox1.Text
TextBox2.Text
LisBox1.Text
---------------------------------------------
حال در رویداد تایمر کد زیر را می نویسیم
Try
            TextBox1.Text = TextBox1.Text + 1
            Dim range As TcpClient = New TcpClient("127.0.0.1", TextBox1.Text)
            If range.Connected = True Then
                ListBox1.Items.Add(TextBox1.Text & "  is Open")
                ListBox1.SelectedIndex = ListBox1.SelectedIndex + 1
            End If
        Catch ex As Exception
            ListBox1.Items.Add(TextBox1.Text & "  is Closed")
            ListBox1.SelectedIndex = ListBox1.SelectedIndex + 1
        End Try

-------------------------------------------

only Number In Textbox

برای این که تکست باکس شما فقط اعداد را قبول کنید باید کد زیر را در قسمت ........... آن بنویسد
 ........... : Key Press

  If e.KeyCode = Keys.D0 Or e.KeyCode = Keys.D1 Or e.KeyCode = Keys.D2 Or e.KeyCode = Keys.D3 Or e.KeyCode = Keys.D4 Or e.KeyCode = Keys.D5 Or e.KeyCode = Keys.D6 Or e.KeyCode = Keys.D7 Or e.KeyCode = Keys.D8 Or e.KeyCode = Keys.D9 Then
        Else
            e.SuppressKeyPress = True
        End If

VB.NET شروع آموزش

دوستان برای شروع آموزش و تبادل فکری و تبادل کد های دات نت بیاید به هم کمک کنیم

زمانی که آموزش شروع شد می توانید در قسمت نظرات وبلاگ یا همون کامنت مطالب خود را به اشتراک بذارید و اگر سوالی در زمینه ویبی دات نت داشتید من در خدمتم تا جواب بدم

آموزش VB.NET

•