Geçenlerde bir takipçimiz varsayılan tarayıcısının Google chrome olduğunu fakat masaüstüne oluşturacağı bir kısayolun sadece Microsoft EDGE ile açılmasını istediğini belirtmişti, bu ve benzeri durumlarda

script dillerinden faydalanılarak bir tıkla beliri bir tarayıcıda web sayfası açtırtılabileceği gibi birden fazla Dosya , Program veya websitesi de yürütülebilir. Varsayalım bilgisayarınızı açtığınızda 3 tane program 5 tane web sayfası 2 adet dosya ve 1 adet klasör açıyorsunuz , Peki bunların hepsi otomatik olarak yapılsa işiniz kolaylaşmazmıydı ? herhangi bir program kullanmadan 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, Microsoft word dosyanızı ve içinde veriler bulunan bir klasörü açsın , kulağa hoş geliyorsa işte nasılı:

1. Vbscript ile tek veya birden çok web sayfasını açın

Oluşturulacak .vbs scripti varsayılan ve varsayılan olmayan tarayıcılar için ayrı ayrı olmak üzere verilecektir.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.

a) Varsayılan tarayıcı ile açsın

'www.sordum.net - https://www.sordum.net/12840/
strURL = "https://www.sordum.net"
Set objShell = CreateObject("Wscript.Shell")
objShell.Run(strURL)

Oluşan Vbscripti çalıştırdığınızda sordum.net sayfası açılacaktır

b) İstediğimiz tarayıcı istediğimiz sayfaları açsın

Varsayalım 3 Tarayıcınız var ve bazı nedenlerle 3 farklı sayfanın bu 3 farklı tarayıcı ile açılmasını istiyorsunuz bu durumda aşağıdaki kodları kullanabilirsiniz.

'www.sordum.net - https://www.sordum.net/12840/

Dim iURL 
Dim objShell

iURL = "www.google.com.tr"
iURL2= "www.sordum.net"
iURL3= "www.sordum.org"
iURL4= "dil.klavyen.com"

set objShell = CreateObject("Shell.Application")
objShell.ShellExecute "Firefox.exe", iURL, "", "", 1
objShell.ShellExecute "chrome.exe", iURL2, "", "", 1
objShell.ShellExecute "iexplore.exe", iURL3, "", "", 1
objShell.ShellExecute "Msedge.exe", iURL4, "", "", 1

Üstte iURL = Sonrasına websayfalarını girmeniz gerekir , objShell.ShellExecute den sonrasına ise hangi tarayıcı ile açılmasını istiyorsanız o tarayıcıyı tanımlamanız gerekir.

2. Vbscript ile tek/birden çok program çalıştırın

Eğer aynı anda Not defteri , paint ve Komut istemi (Cmd) yi açmak istiyorsanız aşağıdaki kodları kullanmanız yeterlidir

'www.sordum.net - 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")

3. Vbscript ile tek veya birden çok Klasör açın

Eğer vbs ile diyelimki Resimler ve İndirilenler klasörlerini açmak istiyorsanız aşağıdaki kodları kullanmanız gerekir

'www.sordum.net - 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ğiniz klasör yolunu belirtmeniz gerekiyor , velociraptor yerine kendi kullanıcı isminiz gelmelidir. Peki scriptleri (bat,vbs) oluşturduk diyelim nasıl otomatik çalıştıracağız diyorsanız yada .bat scripti ile web sayfası nasıl açılır diyorsanız  aşağıdaki linklere göz atmanızda fayda var.

- Açılışta otomatik olarak Program ,Script... çalıştırmak Burada

- Script dosyası ile web sayfası açın Burada

- Görev zamanlayıcı ile açılışta onaysız Program çalıştıralım Burada

- İnternete bağlandığınızda script yada Program çalışsın Burada

- İnternet bağlantısı kesildiğinde program çalıştırmak Burada

- Yazılım kullanmadan hatırlatıcı oluşturalım Burada

- Zamanlanmış bir göreve kısayol oluşturalım Burada

- Zamanlanmış bir görevi diğer Bilgisayarlarda çalıştırmak Burada

- Zamanlanmış bir görevi Yedekleme - Geri Yükleme Burada

- Tüm zamalanmış görevleri birarada görelim Burada