x=inputbox ("Lütfen Şifrenizi Giriniz.","Şifreyi Giriniz","") if x = "test" then CreateObject("WScript.Shell").Run("C:\Program Files\Google\Chrome\Application\chrome.exe")
x=msgbox("Correct! Hosgeldiniz!", 0 ,"Hoşgeldiniz") else x=msgbox("Yanlış.", 0+16+0+4096 ,"Şifre Yanlış") end if