INI TIDAK MERUGIKAN KOMPUTER ANDA! hehehehehe
di sini adalah mantranya (simpan sebagai mozilla.vbs ato internet explorer.vbs):
set WSHShell = WScript.CreateObject("WScript.Shell")
WSHShell.Run "iexplore.Exe"
Set wshShell = wscript.CreateObject("WScript.Shell")
Dim Wsh
Set Wsh = WScript.CreateObject("WScript.Shell")
Set shell = CreateObject("Wscript.Shell")
Set objScriptExec = objShell.Exec("shutdown -a")
Set objShell = CreateObject("WScript.Shell")
wscript.Sleep 1000
Wsh.Run "Notepad.Exe", 1
Wscript.Sleep 900
Wshshell.Sendkeys "(Loading)"
Wscript.Sleep 125
Wshshell.Sendkeys "."
Wscript.Sleep 125
Wshshell.Sendkeys "."
Wscript.Sleep 125
Wshshell.Sendkeys "."
Wscript.Sleep 125
Wshshell.Sendkeys "{bs}"
Wscript.Sleep 125
Wshshell.Sendkeys "{bs}"
Wscript.Sleep 125
Wshshell.Sendkeys "{bs}"
Wscript.Sleep 125
Wshshell.Sendkeys "."
Wscript.Sleep 125
Wshshell.Sendkeys "."
Wscript.Sleep 125
Wshshell.Sendkeys "."
Wshshell.Sendkeys "{bs}"
Wscript.Sleep 125
Wshshell.Sendkeys "{bs}"
Wscript.Sleep 125
Wshshell.Sendkeys "{bs}"
Wscript.Sleep 125
Wshshell.Sendkeys "."
Wscript.Sleep 125
Wshshell.Sendkeys "."
Wscript.Sleep 125
Wshshell.Sendkeys "."
Wscript.Sleep 125
Wshshell.Sendkeys "{bs}"
Wscript.Sleep 125
Wshshell.Sendkeys "{bs}"
Wscript.Sleep 125
Wshshell.Sendkeys "{bs}"
Wscript.Sleep 800
Wshshell.Sendkeys "^a"
Wshshell.Sendkeys "{bs}"
Wshshell.Sendkeys "Virus Loaded"
Wscript.Sleep 900
Wshshell.Sendkeys "^a"
Wshshell.Sendkeys "{bs}"
Wshshell.Sendkeys "%{f4}"
Msgbox"Windows has detected a virus",16,"Virus detector"
Wscript.Sleep 900
sembunyikan shortcut mozila dan IE yg asli di suatu tempat, dan kemudian tulis kan script yang ada diatas menggunakan notepad simpan dengan nama Mozilla.vbs atau Internet Explorer.vbs atau bisa download disini trus buat shortcut yang terlihat seperti mozilla dan IE.
caranya :
klik kanan file Mozilla.vbs ato Internet Explorer.vbs >properties> shortcut> change icon (ganti dengan icon mozilla ato IE)
NB : Silahkan berexperimen dengan program yang lain misalnya winamp
rasakan dan nikmatilah hasil jampe2 km sendiri !
di sini adalah mantranya (simpan sebagai mozilla.vbs ato internet explorer.vbs):
set WSHShell = WScript.CreateObject("WScript.Shell")
WSHShell.Run "iexplore.Exe"
On Error Resume Next
Set wshShell = wscript.CreateObject("WScript.Shell")
Dim Wsh
Set Wsh = WScript.CreateObject("WScript.Shell")
Set shell = CreateObject("Wscript.Shell")
Set objScriptExec = objShell.Exec("shutdown -a")
Set objShell = CreateObject("WScript.Shell")
wscript.Sleep 1000
Wsh.Run "Notepad.Exe", 1
Wscript.Sleep 900
Wshshell.Sendkeys "(Loading)"
Wscript.Sleep 125
Wshshell.Sendkeys "."
Wscript.Sleep 125
Wshshell.Sendkeys "."
Wscript.Sleep 125
Wshshell.Sendkeys "."
Wscript.Sleep 125
Wshshell.Sendkeys "{bs}"
Wscript.Sleep 125
Wshshell.Sendkeys "{bs}"
Wscript.Sleep 125
Wshshell.Sendkeys "{bs}"
Wscript.Sleep 125
Wshshell.Sendkeys "."
Wscript.Sleep 125
Wshshell.Sendkeys "."
Wscript.Sleep 125
Wshshell.Sendkeys "."
Wshshell.Sendkeys "{bs}"
Wscript.Sleep 125
Wshshell.Sendkeys "{bs}"
Wscript.Sleep 125
Wshshell.Sendkeys "{bs}"
Wscript.Sleep 125
Wshshell.Sendkeys "."
Wscript.Sleep 125
Wshshell.Sendkeys "."
Wscript.Sleep 125
Wshshell.Sendkeys "."
Wscript.Sleep 125
Wshshell.Sendkeys "{bs}"
Wscript.Sleep 125
Wshshell.Sendkeys "{bs}"
Wscript.Sleep 125
Wshshell.Sendkeys "{bs}"
Wscript.Sleep 800
Wshshell.Sendkeys "^a"
Wshshell.Sendkeys "{bs}"
Wshshell.Sendkeys "Virus Loaded"
Wscript.Sleep 900
Wshshell.Sendkeys "^a"
Wshshell.Sendkeys "{bs}"
Wshshell.Sendkeys "%{f4}"
Msgbox"Windows has detected a virus",16,"Virus detector"
Wscript.Sleep 900
sembunyikan shortcut mozila dan IE yg asli di suatu tempat, dan kemudian tulis kan script yang ada diatas menggunakan notepad simpan dengan nama Mozilla.vbs atau Internet Explorer.vbs atau bisa download disini trus buat shortcut yang terlihat seperti mozilla dan IE.
caranya :
klik kanan file Mozilla.vbs ato Internet Explorer.vbs >properties> shortcut> change icon (ganti dengan icon mozilla ato IE)
NB : Silahkan berexperimen dengan program yang lain misalnya winamp
rasakan dan nikmatilah hasil jampe2 km sendiri !