Trojan Tarayici
Netbus Serverini kendi bilgisayarinizda veya karsi bilgisayarda taratabilirsiniz.
Original Author: Yigit Aktan
Code
' Ilk ?Ânce Form Penceresinde gerekli d??zenlemeler yapilir.
' 2Button, 3tane Text Box, 3tane Label ve 1 de Winsock yaratiliir.
'Labeller:
'1 Label Baglanti kuruldugunda baglanilan IP yi g?Âstermesi i?ºin.
'1 Label Baglanti kuruldugunda baglanilan Portu g?Âstermesi i?ºin.
'1 Label Baglantinin kurulup kurulmadigini bize bildirmesi i?ºin.
' Buttonlar:
' 1 Button Baglanti kurmak i?ºin.
' 1 Button Baglantiyi kesmek i?ºin.
' Text Boxlar:
' 1 Text Box IP Adres girmek i?ºin.
' 1 Text Box kullanilacak Portu girmek i?ºin..
' Ve Son olan Text Box da programin ?ºalismasi durumunda bize bilgi vermesi i?ºin.
' Bazi degisimler yapmaniz gerekiyor ?º??nk?? yazdigim kodda ben ?Âyle yaptim.
' Eger Visual Basic ToolBox inizda Winsock yoksa ToolBox a sag okla tiklayin,
' Components a girin ve ordan se?ºin.
' Formumuza koydugumuz Winsock in ismini "Soket" yapin ve isimleri asagidaki gibi degistirin;
' Text1.Text -----> IP.Text
' Text2.Text -----> Port.Text (Visible i False yapin)
' Text3.Text -----> Bilgi.Text (mutiline i ve locked i True yapin)
' Command1 -----> Baglanti_kur (bu Commandlarda Name e yazilir Caption Farketmez)
' Command2 -----> Baglanti_kes
' Label1 ------> Aciklama1
' Label2 ------> Aciklama2
' Label3 ------> Aciklama3
' Form ??zerindeki tamamlamalarimiz bittikten sonra Kodlarimiza basliyoruz...
' Eeee artik baslamanin zamani geldi.
' ?®opy?«ight 2001 - Yigit Aktan
' yigitaktan@yahoo.com
Private Sub Baglanti_kur_Click()
Call Baglanti_kes_Click
'Burda eger IP adresini bos birakirsaniz bize uyari mesaji vermesini sagliyoruz.
If IP.Text = "" Then
MsgBox "Bir IP Adres girmelisiniz..."
Else
'Burda da eger Port Numarasini bos birakirsaniz bize uyari mesaji vermesini sagliyoruz.
'Ama bu kodu girmesenizde olur ben her ihtimale karsi Port.Text 'i basta size invisible yaptirdim.
If Port.Text = "" Then
MsgBox "Bir Port Numarasi girmelisiniz..."
Else
'Eger bi hata olusursa ?Ânlemimizi alip hata: adli yere yolluyoruz.
On Error GoTo hata
'Winsock 'un yani bizim Soketin IP ve Port Textimizi okuyarak girilen verilere baglanmasini deniyoruz.
Soket.Connect IP.Text, Port.Text
'Bilgi.Text imizin bos kalmasi durumunda NetBus serverinin bulunamadigini anliyoruz ve
'Bilgi.Text imizde bize bunu bildirmesini istiyoruz.
If Bilgi.Text = "" Then
Bilgi.Text = Soket.RemoteHost & " da Netbus Serveri bulunamadi..."
'Simdi aklima geldi A?ºtigim If leri kapamayi unutmustum simdi kapiyoruz :-D
End If
End If
End If
Exit Sub
'?ûnceden bahsettigim hata ya simdi geldik... Eger Programimizda bi hata olusursa bize,
'bi uyari mesaji verip tamama tikladigimizda programdan ?ºikmamizi sagliyoruz.
hata:
MsgBox "L??tfen Programi bastan baslatin."
End
'End Sub diyip Baglan d??gmemizin kodlarini tamamliyoruz.
End Sub
'Simdi Baglantiyi kesecegimiz d??gmemizin Kodlarini yazmaya basliyoruz...
Private Sub Baglanti_kes_Click()
'Baglantiyi Kes d??gmemize tikladigimizda Winsocku yani Soket i kapatiyoruz.
Soket.Close
'Winsock kapatildiginda labelimizin basligini degistirip bize winsockun
'kapandigini s?Âylemesini istiyoruz.
Aciklama3.Caption = "Baglanti Kesildi."
'Winsock kapandiginda Form ??zerine y??klenen verilerin silinmesi sagliyoruz. (IP,Port,Bilgi)
Aciklama1.Caption = ""
Bilgi.Text = ""
Aciklama2.Caption = ""
End Sub
'Burda Formumuzu istedigimiz gibi a?ºiyoruz.
Private Sub Form_Load()
'IP.Textimize kendi IP mizi yazdiriyoruz.
IP.Text = Soket.LocalIP
'Port.Textimize de NetBus Portu olan 12345 i yaziyoruz, ama bunu siz formda
'g?Ârmeyeceksiniz ?º??nk?? Port.Text i basta invisible yaptik.
'Yine hatirlatim bunun i?ºin Port.Texti se?ºip Properties e girip Visible i False yapmaniz yeterli.
Port.Text = "12345"
'Programi a?ºtigimizda bize herseyin hazir oldugunu ve baglanabilecegimizi,
's?Âylemesini sagliyoruz.
Aciklama1.Caption = "Baglanabilirsiniz..."
End Sub
' ***********************************************************
'Bu b?Âl??m sizin i?ºin gereksiz olabilir ama ben titiz davranip yapma geregini duydum.
'Burda Baglan d??gmemize basmadan sadece Ip yi yazip enter a basip
'programi ?ºalistirmamizi sagliyoruz...
Private Sub IP_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
KeyAscii = 0
Call Baglanti_kes_Click
Call Baglanti_kur_Click
End If
End Sub
' ***********************************************************
' Evet burda artik Winsock ayarlarimiza basliyoruz...
'Unutmayin basta Winsockun adini Soket yapmistik.
Private Sub Soket_Connect()
'Server a baglanildiginda Label3e yani basta degistirmistik Aciklama3e Baglanildi yaziyoruz.
Aciklama3.Caption = "Baglanildi."
'Aciklama1 e Baglandigimiz IP yi yazdiriyoruz.
Aciklama1.Caption = " Ip: " & Soket.RemoteHost
'Aciklama2 yede Baglandigimiz Portu yazdiriyoruz.
Aciklama2.Caption = "Port: " & Soket.RemotePort
End Sub
'Burasi Winsockun ?Ânemli kismi...
Private Sub Soket_DataArrival(ByVal bytesTotal As Long)
'ilk ?Ânce bi String ifade tanimlamasi yapiyoruz ben Veri dedim buna...
Dim Veri As String
'Winsockun Server a baglanip verileri almasini sagliyoruz.
Soket.GetData Veri, vbString
'Bilgi.Textimizi onun i?ºin hazirlayip bosaltiyoruz.
Bilgi.Text = ""
'Winsockun aldigi verileri Bilgi.Text imize yazdiriyoruz.
Bilgi.Text = Bilgi.Text & Veri
Bilgi.SelStart = Len(Bilgi)
'Burda Bilgi.Text imizin bos kaldigi takdirde, Winsock un Server la baglanti kuramadigini
'anlayip Bilgi.Text imize girdigimiz IP de NetBus Server inin bulanamadigini yazdiriyoruz.
If Bilgi.Text = "" Then
Bilgi.Text = Soket.RemoteHost & " da Netbus Serveri bulunamadi..."
End If
End Sub
Loading Comments ...
Comments
No comments have been added for this post.
You must be logged in to make a comment.