%userprofile%\desktop\ip_test.txt, komut dosyasıyla program kurma, komutla ip adresine bakma, move %userprofile%\desktop\, move %userprofile%\desktop\text.txt, Move Komutu, net start spooler, net stop spooler, systeminfo>>%userprofile%\desktop\test.txt, tasklist /fi" /> Derleme Toparlama .bat .vbs Kodları
avatar

Derleme Toparlama .bat .vbs Kodları
yararlı .bat .vbs Kodları

19/11/2016
Sezer Tahmaz

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

 

.bat ile Bir Klasör içeriğini Masaüstünde bir .txt Belgesine Kaydedelim.

 

Burada masaüstünde "Deneme" isimli Klasörün içindekileri listeletip 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 kodu ile Yazıcı Servislerini Durdurma / Yeniden Başlatma

(Bu kodu daha önce 5 ayrı şekilde vermiştim aslında ama hangisini kullanmalıyım diye düşünmeyin diye kodların hepsini birleştirerek tek hale getirdim.)

 

 

@echo off
echo Yazici Servisi Durduruluyor. . .
timeout /T 5
net stop spooler
del /q %SystemRoot%\system32\spool\printers\*.* /q
del %windir%\system32\spool\printers\*.* 
net start spooler
echo Yazici Servisi Yeniden Baslatiliyor . . .
timeout /T 5
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 Scripti

Projesindeki kod'ları da inceleyebilirsiniz. ***

Sayfa arama da Temizleme şeklinde aratırsanız hızlı şekilde Temizleme ve Bakım 10 isimli scripte ve açık olarak sunduğum kodlara ulaşabilirsiniz.

Yorumlar Yorum Yap

  • WN

    Helpful info. Fortunate me I found your website by chance, and I'm stunned why this accident didn't happened earlier! I bookmarked it.

    WN 01/05/2018 08:57
  • WN

    Helpful info. Fortunate me I found your website by chance, and I'm stunned why this accident didn't happened earlier! I bookmarked it.

    WN 01/05/2018 08:57
  • WN

    Helpful info. Fortunate me I found your website by chance, and I'm stunned why this accident didn't happened earlier! I bookmarked it.

    WN 01/05/2018 08:57
  • WN

    Helpful info. Fortunate me I found your website by chance, and I'm stunned why this accident didn't happened earlier! I bookmarked it.

    WN 01/05/2018 08:57
  • EC

    I used to be recommended this web site by way of my cousin. I am now not certain whether this put up is written through him as no one else recognise such special approximately my problem. You're amazing! Thank you!

    EC 30/04/2018 14:45
  • DC

    It's a pity you don't have a donate button! I'd without a doubt donate to this excellent blog! I suppose for now i'll settle for book-marking and adding your RSS feed to my Google account. I look forward to fresh UPDATEs and will talk about this website with my Facebook group. Chat soon!

    DC 11/03/2018 09:09
  • DC

    It's a pity you don't have a donate button! I'd without a doubt donate to this excellent blog! I suppose for now i'll settle for book-marking and adding your RSS feed to my Google account. I look forward to fresh UPDATEs and will talk about this website with my Facebook group. Chat soon!

    DC 11/03/2018 09:09
  • OK

    I absolutely love your blog and find a lot of your post's to be exactly what I'm looking for. Would you offer guest writers to write content to suit your needs? I wouldn't mind writing a post or elaborating on a number of the subjects you write with regards to here. Again, awesome weblog!

    OK 02/02/2018 07:13
  • Sezer Tahmaz

    Thank You.

    Sezer Tahmaz 22/07/2017 11:27
  • WF

    RIGHT here is the perfect site for everyone who hopes to understand this topic. You understand so much its almost hard to argue with you (not that I actually will need to…HaHa). You definitely put a fresh spin on a topic which has been written about for decades. Great stuff, just great!

    WF 22/07/2017 11:22

Son Yazılar