Buka dan Menangkan Game Solitaire

Game solitaire bawaan windows (Start -allprogram - game - solitaire ), trik memenangkan game ini dengan menggunakan kombinasi Alt + Shift + 2. tombol pada keyboard ini di  tekan secara bersamaan.
Untuk script yang ada di bawah ini, sistem kerjanya adalah menjalanakan program solitaire kemudian memenangkan game nya, lalu menutup porgram  game.
Script  ini di buat menggunakan notepad.exe (Start - allprogram - accesories - notepad)  dengan ekstensi *.vbs

Option Explicit
Dim objShell, Racey, intCount
Set objShell = CreateObject("WScript.Shell")
objShell.Run "sol"  
Wscript.Sleep 1000
objShell.SendKeys "%+2"
Wscript.Sleep 10000
objShell.SendKeys "%F"
WScript.Sleep 50
objShell.SendKeys "x"
WScript.Sleep 50 
objShell.SendKeys "{ENTER}"
Wscript.Sleep 1500
objShell.SendKeys "%+2"
Wscript.Sleep 10000
objShell.SendKeys "%F"
WScript.Sleep 50
objShell.SendKeys "x"
WScript.Sleep 50
objShell.SendKeys "{TAB}"
WScript.Sleep 50
objShell.SendKeys "{ENTER}"
WScript.Sleep 10 
objShell.SendKeys "%{F4}"
WScript.Quit  



save as dengan ekstensi vbs(misal: solitairewin.vbs)