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

sadece scripler ile bunu yapmak mümkün , bilgisayarınız açılır açılmaz gmail sayfasını , online gazetenizi ve borsa sayfasını açıp , diyelimki excel tablonuzu , word dosyanızı ve içinde veriler bulunan bir klasörü açsın , kulağa hoş geliyor gelelim nasılına :

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