Bilgisyarınızı açtığınızda varsayalım 3 tane program 5 tane web sayfası 2 adet dosya açıyorsunuz , Peki bunların hepsi otomatik olarak yapılsa işiniz kolaylaşmazmıydı ? herhangi bir program kullanmadan
1. vbs ile tek - birden çok web sayfası açalım
Oluşturulacak .vbs scripti varsayılan ve varsayılan olmayan tarayıcılar için ayrı ayrı olmak üzere verilecektir.
1. Varsayılan tarayıcı ile açsın
Eğer herhangi bir web sayfasını varsayılan tarayıcınızın otomatik olarak açmasını istiyorsanız aşağıdaki vbs kodlarını kullanmanız yeterlidir , burada sordum.net yerine açmak istediğiniz web sayfasını yazınız
'www.sordum.net Velociraptor 'https://www.sordum.net/12840/ strURL = "https://www.sordum.net" Set objShell = CreateObject("Wscript.Shell") objShell.Run(strURL)
2. İstediğimiz tarayıcı istediğimiz sayfaları açsın
Varsayalım 3 Adet tarayıcınız var ve bazı nedenlerle 3 farklı sayfanın bu 3 farklı tarayıcı ile açılmasını istiyorsunuz işte kodlar
'www.sordum.net Velociraptor 'https://www.sordum.net/12840/ Dim iURL Dim objShell iURL = "www.google.com.tr" iURL2= "www.sordum.net" iURL3= "www.sordum.org" set objShell = CreateObject("Shell.Application") objShell.ShellExecute "Firefox.exe", iURL, "", "", 1 objShell.ShellExecute "chrome.exe", iURL2, "", "", 1 objShell.ShellExecute "iexplore.exe", iURL3, "", "", 1
Üstte iURL = sonrasına websayfalarını girmeniz gerekir , objShell.ShellExecute den sonrasına ise hangi tarayıcı ile açılmasını istiyorsak o tarayıcıyı tanımlamamız gerekir.
2. vbs ile tek/birden çok program çalıştıralım
Eğer aynı anda Not defteri , paint ve KOmut istemi (Cmd) yi açmak istiyorsak aşağıdaki kodları kullanmamız yeterlidir
'www.sordum.net Velociraptor 'https://www.sordum.net/12840/ Set shell=CreateObject("wscript.shell") Shell.Run("Notepad.exe") Set shell=CreateObject("wscript.shell") Shell.Run("MSPaint") Set shell=CreateObject("wscript.shell") Shell.Run("CMD.exe")
2. vbs ile tek/birden çok Klasör açalım
Eğer vbs ile diyelimki resimler klasörümü ve Bitmiş_programlar klasörlerini açmak istiyorsam aşağıdaki kodları kullanmam gerekir
'www.sordum.net Velociraptor 'https://www.sordum.net/12840/ Dim shell Set shell = wscript.CreateObject("Shell.Application") shell.Open "D:\hepsi\sordum.net\proje\bitmis_programlar" shell.Open "C:\Users\velociraptor\Pictures"
Üstteki kodlarda shell.Open den sonra açmak istediğim klasör yolunu belirtmem gerekiyor , sizde velociraptor yerine kendi kullanıcı isminiz gelmelidir. Peki scriptleri (bat,vbs) oluşturduk diyelim nasıl otomatik çalıştıracağız diyorsanız Buradaki yazımıza bir göz atın. eğer .bat scripti ile web sayfası nasıl açılır diyorsanız Buradaki sayfaya bir göz atınız
NOT: Üstteki tüm scriptlerin hazır hallerini Buradan indirebilirsiniz.
Autostart x4 yardımı ile .bat scriptleri oluşturalım
AutoStarter X3 portable bir yazılım olup oluşturduğu .bat scripti ile favori programlarımızı çalıştırmamızı , arzu ettiğimiz dosya ve klasörleri açmamızı , favori web sayfalarımızı ziyaret etmemizi...sağlıyor bunu yaparkende belirli bir sıra izliyor böylece bizi herbirini ayrı ayrı çalıştırma zahmetinden kurtarıyor .Arayüzündeki Add butonu ile listeye bir ekleme yapabiliyoruz.
Listeye herşeyi ilave ettikten sonra test Batch butonu ile herşey yolundamı diye test edebilirsiniz böylece listedeki web sayfaları , dosyalar açılacak , varsa listedeki müzik çalacak , programlar çalışacaktır oluşturulan listeyi save edebilir , listedekilerin başlangıç sırasını değiştirebilirsiniz , son işlem olarak Create batch butonu ile listedekileri çalıştıracak .bat scriptini oluşturunuz (2).
Anasayfası
Lisans: Freeware/Ücretsiz
Yayımcı: 2xdsoft
Boyut: 645 KB
Sistem: Xp ve üzeri tüm windowslar