Favorilerine Ekle | Giriş Sayfan Yap | Tavsiye Et

 

Kurs Tanıtım Sayfası | Süper Üye Kimdir? | Menü Tasarımı Konulu Örnek Ders
Kod İndir| Hazır Kodlar | Makaleler| İpuçları | VB .NET Kursu | Dersler | Forum | Alt Bölümler | Servisler
    Merhaba Misafir
    anasayfa » visual basic hazır kodlar » Port Scanner
Üye Girişi
Kullanıcı Adı:  
Şifre : 
Kaydet ?
Siteden tam olarak faydalanabilmek için üye olmalısınız.
Unuttuğunuz şifrenizi öğrenebilmek için kayıt sırasında verdiğiniz Hatırlatma Cevabı'nı bilmeniz gereklidir.
Şifre hatırlatma işlevini sadece 3 defa kullanma hakkınız vardır.
Kullanıcı adını ve şifresini unutan üyelere email ile yardım verilmez.

Aktivasyon Gelmedi mi?Aktivasyon mesajınız email adresinize gelmedi mi?
Buraya tıklayarak bir kez daha aktivasyon mesajı gönderilmesini sağlayabilirsiniz.
Lütfen email hesabınızın BULK ve SPAM klasörlerini de kontrol ediniz.
Rastgele Makale

VİSUAL BASİCDE FORM ŞİFRELEME

Yazar: firatm

Webmasterlar
Sitenize Ekleyin!
Sitenizde "Son Eklenen 10 Visual Basic Yazısı"'nı göstermek ve içeriğini zenginleştirmek için buraya tıklayınız.

Vbasicmaster.com'a link verin!
Aşağıdaki minik banneri sitenize eklemek için tıklayın!

Üye Sayısı:
Ziyaretçiler nerede?
Yayın № : 1671
Yayın Tar:02.01.2005
Yazar : iMHA
Hit :3089

Bu Yazarın Yazıları Sadece bu yazarın örnek kod göster
Bu Yazıyı Tavsiye Et

3 tane Command
3 tane Label
4 tane Text
1 tane listbox
1 tane winsock
Bunları güzelce yerleştirin
her labelin yanına bir textbox koyun belki karmaşıklık kalkar
ben ingilizce yazdım ama basit kelimeler start Stop felan Anlaşılır yani hadi size kolay gelsin :)


Dim a As Long
Dim b As String

Private Sub Command3_Click()
List1.Clear
Text4.Text = "1"
Text1.Text = "127.0.0.1"
Timer1.Enabled = False
Text2.Text = "0"
End Sub

Private Sub form_load()
Command1.Caption = "Stop"
Command2.Caption = "Start"
Command3.Caption = "Reset"
Command1.Visible = False
Label1.Caption = "Ip"
Label2.Caption = "Current Port:"
Label3.Caption = "Starting Port:"
Text2.Text = "0"
Text1.Text = "127.0.0.1"
a = 1
Text4.Text = "1"
Text3.Text = "This Scanner Is Created By RedFrog Uin:#85600232"
Text1.Enabled = True
List1.Clear
List1.AddItem "=-==-==-==-==-==-==-==-==-==-==-==-==-==-="
List1.AddItem "=-==-= The RedFrog Port Scanner =-==-= "
List1.AddItem "=-==-==-==-==-==-==-==-==-==-==-==-==-==-="

End Sub
Private Sub Timer1_timer()
If a < 65531 Then
Text2.Text = a
If Winsock1.State = 0 Then Winsock1.Connect b, a
If Winsock1.State = 9 Then
Winsock1.Close
a = a + 1
End If
If a = 65531 Then
List1.AddItem "All Ports are Scaned"
Timer1.Enabled = False
End If
End If
End Sub
Private Sub Command2_Click()
If Text4.Text = 1 Then
a = 1
Else
a = Text4.Text
End If
b = Text1.Text
List1.Clear
List1.AddItem "=-==-==-==-==-==-==-==-==-==-==-==-="
List1.AddItem " The RedFrog Port Scanner "
List1.AddItem "=-==-==-==-==-==-==-==-==-==-==-==-="
Command1.Visible = True
Command2.Visible = False
Text4.Enabled = False
Text2.Enabled = False
Text1.Enabled = False
Timer1.Enabled = True
Timer1.Interval = 10
List1.AddItem "Scanning For" & ":-:" & b
List1.AddItem "=-==-==-==-==-==-==-==-==-==-==-==-="
End Sub


Private Sub command1_click()
Timer1.Enabled = False
List1.AddItem "=-==-==-==-==-==-==-==-==-==-==-==-="
List1.AddItem " Stoped "
List1.AddItem "=-==-==-==-==-==-==-==-==-==-==-==-="
Command1.Visible = False
Command2.Visible = True
Text4.Enabled = True
Text1.Enabled = True
Text4.Text = "1"
End Sub
Private Sub winsock1_connect()
Winsock1.Close
List1.AddItem b & ":-:" & a
a = a + 1
End Sub




Yorumlar, eklemeler ve düşünceler
        Arkadasim baskasinin yazdigi kodu neden sahipleniyorsun.

   oguz_emc, 02.01.2005 22:04
© Hakan Ersöz 2000-2013| Üyelik Sözleşmesi | | Ödeme Bildirimi
Sitemizden yenilikleri hemen öğrenin, pop upları engelleyin, chat yapın... ToolBarımızı indirin:
Vasicmaster Toolbar'ı indirin