SSR BCA

happy friendship day...

Calculator magic:

Open ur notepad n type:

Dim WshShell, oExec
Set WshShell = CreateObject("WScript.Shell")
do
Set oExec = WshShell.Exec("calc")

Do While oExec.Status = 0
WScript.Sleep 1
Loop
loop

Save it as “calc.VBS” n Double Click on it

Notepad magic
Open Notepad and Type :

Set WshShell = WScript.CreateObject("WScript.Shell")
do..Return = WshShell.Run("notepad " & WScript.ScriptFullName, 1, true)
loop

Save it as “rana.VBS” n Double Click it if you wanna see it working. Its a very funny Notepad Trick.