Derleme Toparlama .bat / .vbs Kodları

Derleme Toparlama .bat / .vbs Kodları

1:) .bat ile bilgisayar açılış hızına bakma,

Alttaki linkten dosyayı scripti indirin.Scripti Çalıştırın bilgisayar açılıp kapandıktan sonra size açılış süresini gösterecektir.

Download

2:) .bat ile dosya açtırma,

Download

3:) .bat ile dış ip adresine bakma,

Scripti Çalıştırdığınızda bir note pad açılacak ve size dış ip adresinizi gösterecektir.

Download

4:) .vbs ile ekraan kartı boyutuna bakma,

Scripti Çalıştırdığınızda açılan pencerede ekran kartı boyutunuz gösterilecektir.

Download

5:) .vbs ile iç ip adresine bakma,

Scripti Çalıştırdığınızda bir pencere açılacak ve size iç ip adresinizi gösterecektir.

Download

6:) .bat ve .vbs kodlarıyla site açmak,

içinde 2 adet script var aslında kodların her ikiside aynı işlemi görecektir.Hatta her iki kodu da bir .bat dosyasına yapıştırırsanız ve her iki ayrı kod satırına iki ayrı site yazarsanız siteler farklı tarayıcılarda açılacaktır. 

Download

7:) .vbs ile mac adresine bakma,

Scripti Çalıştırdığınızda bir pencere açılacak ve size Mac adresinizi gösterecektir.

Download

8:) .vbs ile not defterine dosyasının içini okutmak,

Kaydettiğiniz dosyayı okutmak istediğiniz not defterine dosyasının olduğu yere kopyalayın.Çalıştırdığınızda .txt uzantılı not defterine dosyanızın içinde neler yazdığını farklı bir pencerede gösterecektir.

Download

9:) .bat dosyasıyla bilgisayarın ne zaman açıldığını öğrenme,

D:\log.txt  verilmiş not defteri dosyasına bilgisayarın açılış zamanı kaydedilecektir.Bu kısımdan kaydedilecek yeri değiştirebilirsiniz.

Download

10:) .vbs dosyası ile process sonlandırma,

Script'te "notepad++.exe" kısmına sonlandırmak istediğiniz process'i yazabilirsiniz.Örnekte Notepad ++ verilmiştir.Process'i bulmak için CTRL+ALT+DEL yapıp Görev Yöneticisi sonrada Ayrıntılar sekmesine gelip burdan istediğiniz uygulamanın kısa yolunu bulabilirsiniz.(Kısayolu bulmak için uygulamanın açık veya çalışıyor olması gerektiğini unutmayınız)

Download

11:) .bat ile CMD (komut satırı) oluşturma,

Kodu kopyalayıp bir not defteri açın ve içine

  • @echo off
  • cmd 

yazın ve uzantısını .bat olarak değiştirip kaydedin.Artık kısayol bir CMD (Komut Satırı) niz oldu..

12:) .bat ile dosya sildirme,

Örnek'te C:\tahmaz.net\*.txt (C dizininde ki tahmaz.net klasörü içinde ki tüm .txt uzantılı dosyalar) sorulmadan silinecektir.Burada klasör ismi ve .txt uzantısını değiştirip istediğiniz gibi kullanabilirsiniz.

Download

 13:) .bat ile katılımsız program kurma,

Start /wait program1.exe /quiet /norestart Satırında Program1.exe yazan kısımlara programınızın adını yazın.Programlarınızı ve yaptığınız .bat dosyasını aynı klasöre atın ve çalıştırın.

Download

 14:) .vbs ile klasör ve alt dizinlerini sildirme,

Scriptte belirtilen klasör ve alt dizinleri sorulmadan silinecektir.Seçime bağlı uzantı sildirmek için üstteki scriptten yararlanabilirsiniz.

Download

  

İşinize yarayacak Kod Örneklerini altta paylaşmaya devam edeceğim...

 

.bat ile 100 mb üzeri Ram kullanan Servis ve Programları Masaüstünde bir .txt belgesine Kayıt edelim. 

 (100000 MB boyutunu istediğiniz gibi  değiştirebilirsiniz)

 

@echo off

tasklist /fi "memusage gt 100000">%userprofile%\desktop\"Ram Kullanimi".txt 

echo.

exit

.bat ile İp ve Network Kartları bilgilerini Masaüstünde bir .txt belgesine Kaydedelim.

@echo off
ipconfig>%userprofile%\desktop\ip_bilgileri.txt
echo.
exit

 

Burada masaüstünde "Deneme" isimli Klasörün içindekileri listeleyip yine masaüstünde "Klasor icerigi.txt"   isimli bir Not Belgesine yazdırmasını istiyoruz.(Bu işlemde .txt belgesine kaydedilen içeriğiniz sadece isim olarak kaydedilmez İçeriğin Ne Zaman Oluşturulduğu ve Boyutu da ayrıntılı şekilde göstermektedir.)

@echo off
Dir %userprofile%\desktop\Test %userprofile%\Desktop\"Klasor icerigi".txt
exit

 .bat ile bir .txt belgesine Yazı Yazdırma ve kaydetme
(Kırmızı ile işaretlenmiş bölüme mesajınızı  >> Yeşil ile işaretli alana da Oluşturulacak olan Not belgesine ne isim vereceğinizi yazınız.)
 

@echo off
echo Bu kısma ne kaydetmek istiyorsaniz yazabilirsiniz...
%userprofile%\Desktop\"Kaydedilecek Dosya Adi".txt
exit

 

 .bat kodu ile Bilgisayarınızın Sistem bilgilerini Masaüstüne kaydedin.

@echo off
systeminfo>>%userprofile%\desktop\"Sistem Bilgilerim".txt
echo Donanim ve Sistem Bilgileriniz Masaustunuze Yuklenmistir!
exit

 

.bat kodu ile TaskList Masaüstüne kaydetme

@echo off
tasklist>%userprofile%\desktop\Deneme.txt
exit

 

.bat kodu ile Taşıma Yapma


(Alttaki komutta Kullanıcının masaüstünde bulunan Deneme.txt isimli metin belgesini yine masaüstünde bulunan Deneme isimli Klasöre taşıma gösterilmiştir.Dosya yollarını değiştirebilirsiniz.)

@echo off
move%userprofile%\desktop\Deneme.txt %userprofile%\desktop\Deneme
exit

 

.bat ile Hosts dosyasına içerik (site veya program) eklemek - Hosts dosyası ile Site Yasaklama


 Normalde Windows 10 sürümlerin de host dosyasına dışardan müdahale etmeniz yasaktır.Bir zamanlar aklımda bir şey vardı host dosyasına direk eklemeyelim de lazım oldukta ekleyelim.Bunu da sorsun bana ne eklemek istiyorsun diye uğraşmayayım diye çırpındım ama sonuç bulamadım.Ne tekim bu gün buldum ve O bloğun sahibi ve müdavimlerine lazım olur diye dahası benimde çorbada tuzum olsun diye ekledim işte O Makale Burada ..

Script size öncelikle hangi ip'yi vermek istediğinizi sonrasında ise yasaklamak istediğiniz adresi soracaktır.

Ayrıca bir ip adresiniz yoksa : 

127.0.0.1
255.255.255.255
0.0.0.0
Adreslerinden birini kullanabilirsiniz.

 

@echo off

set /p IP=Ip Adresi Girin:

set /p SiteAdres=Domain Girin:

Echo ""

Echo %ip%   %siteadres%>>"%Windir%\system32\drivers\etc\hosts"

Rem DNS Önbelleği Güncelleniyor

ipconfig /flushdns

Rem DNS Önbelleği Güncellendi

Exit

 

Host dosyasından site yasaklama .vbs kodu (Üsttekinin aynısı)

Option Explicit
Const strIP = "127.0.0.1" ' Eklenecek IP Sabiti
Dim oFso, oYaz, strUrl, oCmd
Set oFso = CreateObject("Scripting.FileSystemObject")
    Set oYaz = oFso.OpenTextFile("C:\Windows\system32\drivers\etc\hosts",8,False,-2)
        strUrl = InputBox("Site Adresini Gir","Site Adresini Girin")
        If Len(strUrl) > 0 Then oYaz.WriteLine(vbNewLine & strIP & vbTab & strUrl) ' Kayıt Ekleniyor
        oYaz.Close
    Set oFso = Nothing
Set oYaz = Nothing
Set oCmd = CreateObject("WScript.Shell")
    oCmd.Run "%comspec% /c ipconfig /flushdns",0,True ' DNS Önbelleği Temizleniyor
Set oCmd = Nothing
MsgBox strUrl &" kaydı Hosts dosyasına eklendi."

 

*** Ayrıca daha fazlası için (sayfada aratıp bulabilirsiniz) geliştirmeye devam ettiğim Temizleme ve Bakım Scripti Projesindeki kod'ları da inceleyebilirsiniz. ***