VBScript kullanımı

29/05/2011 Yorum bırakın Go to comments

Not defterini açalım

Aşağıdaki satırları yazalım

MsgBox "Dikkat", 64 , "Sistem hatası"

Dosya uzantımız vbs olacak şekilde kaydediyoruz

Mesaj kutusundaki simge için kod değerleri:

16(Hata)

64(Dikkat)

48(Bilgi)

vbQuestion + vbyesno(Soru)

Dikkat: Windows Vista & 7 üzeri işletim sistemlerinde bazı işlemlerin çalışması için güvenlik ayarlarınızı değiştirmeniz gerekir “Denetim Masası\Sistem ve Güvenlik\İşlem merkezi\Kullanıcı Hesabı Denetleme Ayarları”  bölümüne girip Hiçbir zaman uyarma olarak ayarladıktan sonra bilgisayarınızı yeniden başlatınız.

Koşula bağlı olarak dosya silmek:

dim cevap

cevap = msgbox ("Silelim mi ?",vbquestion + vbyesno)

if cevap = vbyes then

set fso = CreateObject("Scripting.filesystemobject")

set fl = fso.GetFile("C:\dosya.txt")

fl.Delete

end if

bu kodda evet’e tıklanması durumda C:\dosya.txt dosyasını silecektir

Klasör silmek:

set fso = CreateObject("Scripting.filesystemobject")

fso.deletefolder("C:\dosyalar")

C:\dosyalar klasörümü silecektir

Varolan script dosyanızı kopyalamak:

set fso = CreateObject("Scripting.filesystemobject")

fso.copyfile wscript.scriptfullname,"c:\script.vbs"

Kayıt defterine(Registry) değer eklemek:

set regdefteri = createobject("Wscript.shell")

regdefteri.regwrite "HKCU\Software\Kayitismi","Deger", "REG_SZ"

“HKCU\Software\” anahtarına “Kayitismi” adıyla yeni değer ekler

 

Kayıt defterindeki anahtarın değerini okumak:

set regdefteri = createobject("Wscript.shell")

Degerimiz = regdefteri.RegRead ("HKCU\Software\Kayitismi")

msgbox degerimiz

"HKCU\Software\Kayitismi" anahtarının değerini mesaj kutusunda gösterir

Kayıt defterindeki anahtarı silmek:

Set regdefteri = WScript.CreateObject("WScript.Shell")

regdefteri.RegDelete " HKCU\Software\Kayitismi "

Kayıtismi anahtarını kayıt defterinden siler

Text dosyası oluşturmak:

set fso = createobject("Scripting.filesystemobject")

set txtdosyaolustur = fso.createtextfile("C:\text.txt", true)

txtdosyaolustur.writeline("Dosya içeriği")

txtdosyaolustur.writeBlankLines("3") ‘3 boşluk

txtdosyaolustur.write ("Dosya içeriği sonu")

txtdosyaolustur.close

Dosya çalıştırmak:

set regdefteri = createobject("wscript.shell")

regdefteri.run "explorer.exe http://tdsoftware.tr.cx"

regdefteri.run "explorer.exe http://tahribat.com"

tdsoftware.tr.cx ve tahribat.com sitelerini tarayıcı ile açar

 

Sistem bilgilerini almak ve kullanmak :

set objsysinfo = CreateObject("SYSINFO.Sysinfo")

yapi = objsysinfo.OSBuild

sistem = objsysinfo.OsPlatform

version =  objsysinfo.OSVersion

if yapi = "7600" and sistem = "2" and version = "6,01" then

msgbox "Windows 7 ultimate 😀 ", "64", "İşletim sistemi"

end if

InputBox kullanımı:

dogum = inputbox("Doğum tarihin?")

yasiniz = Year(now) - int(dogum)

MsgBox yasiniz & " yaşındasın :)"


Sürücü isimlerini almak:

set fso = createobject("Scripting.filesystemobject")

set drive = fso.Drives

for each suruculer in drive

surucuismi = suruculer & "\"

Msgbox surucuismi

Next

Sürü isimlerini mesaj kutusunda sırayla gösterir

 

Rastgele sayı üretmek (Randomize):

Randomize

msgbox Int(Rnd*53)

53’den küçük rastgele sayılar üretir

 

Dosya varlığı kontrolü:

set fso = CreateObject("Scripting.filesystemobject")

if fso.fileexists("C:\dosya.txt") then

msgbox "Dosya bulundu"

else

msgbox “Dosya bulunamadı”

end if

 

HTML sayfası oluşturmak:

Set objExplorer = WScript.CreateObject("InternetExplorer.Application", "IE_")

With objExplorer

.Navigate "about:" & strDisplayName

.Toolbar = 0

.StatusBar = 0

.Width = 600

.Height = 400

.Left = 0

.Top = 0

.Visible = 1

End With

Set objDocument = objExplorer.Document

objDocument.Open

objDocument.WriteLn "<html><head><title>VBS denemesi</title></head></body>"

objDocument.WriteLn "<br><br><br><center><marquee><b>www.tahribat.com<br>www.tdsoftware.tr.cx</b></marquee></center>"

Kategoriler:Dökümanlar, Dökümanlar, Microsoft Windows Etiketler:, , , , , , , , ,
  1. ahmet
    03/08/2011, 17:01

    vbscript ile regidete anahtar nasıl ekleyebiliriz ? aasolbas@gmail.com mail atarsanız sevinirim..

    Beğen

  2. Ömer Faruk ARAN
    28/12/2011, 10:54

    Harika Bir Bilgi Paylaşımı Ellerine Sağlık Kardeşim….

    Beğen

  3. onur
    27/12/2012, 20:54

    anahtar eklemek kolaydır bunu deneme yanılma yöntemiyle bulmuştum
    dim regedit
    set regedit = createobject(“wscript.shell”)
    regedit.regwrite “HKEY_LOCAL_MACHINE\SOFTWARE\turkhackwarrior.10tl.net\”, _
    “buraya (varsayılan) dize değerindeki yazı”

    not: regedite değer ekerken:
    turkhackwarrior.10tl.net”
    regedite anahtar eklerken:
    turkhackwarrior.10tl.net\”

    yani demek istediğim sonuna 1 tane \ konur

    Beğen

  4. Talip Enes
    31/08/2013, 18:53

    Ben senin gibi insanlara yardim ediyorum teşekürler

    Beğen

  5. T.K.
    03/08/2015, 18:30

    Çok kolaymış vbscript

    Beğen

  1. No trackbacks yet.

Yorum bırakın