Kali ini saya akan share tentang tutorial membuat Scrip Jail paling mantep menggunakan Notepad.
Caranya sangat simple dan mudah.
Caranya sangat simple dan mudah.
Langsung aja yuk kita capcus ke TKP ….
1. Message Berulang-ulang
Quote:
@ECHO off
:Begin
msg * Jontor Virus Beraksi
msg * Muka lo jelek - ngaca dulu gih
msg * hayo lo,cupu lu gw acak2
msg * ud install ulang aja
msg * biar masalah nya kelar
GOTO BEGIN
save namafile.BAT (ekstensi filenya harus .BAT) Simpan dalam notepad.
@ECHO off
:Begin
msg * Jontor Virus Beraksi
msg * Muka lo jelek - ngaca dulu gih
msg * hayo lo,cupu lu gw acak2
msg * ud install ulang aja
msg * biar masalah nya kelar
GOTO BEGIN
save namafile.BAT (ekstensi filenya harus .BAT) Simpan dalam notepad.
2. Shutdown Message
Quote:
Code:
@echo off
msg * apaan sih lo
shutdown -s -c “Error! muka mu standar abis”
save namafile.BAT (ekstensi filenya harus .BAT) Simpan dalam notepad.
Code:
@echo off
msg * apaan sih lo
shutdown -s -c “Error! muka mu standar abis”
save namafile.BAT (ekstensi filenya harus .BAT) Simpan dalam notepad.
3. Disko Keyboard:
Quote:
Code:
set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys"{CAPSLOCK}"
wshshell.sendkeys"{NUMLOCK}"
wshshell.sendkeys "{SCROLLLOCK}"
loop
lalu save as dalam bentuk .VBS
Code:
set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys"{CAPSLOCK}"
wshshell.sendkeys"{NUMLOCK}"
wshshell.sendkeys "{SCROLLLOCK}"
loop
lalu save as dalam bentuk .VBS
4. Buka Tutup CD/DVD
Quote:
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
save namafile.vbs (save dengan Ekstensi file .vbs) simpan dalam notepad.
Quote:
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
save namafile.vbs (save dengan Ekstensi file .vbs) simpan dalam notepad.
5. Vbscript Muncul Terus
Quote:
Code:
Set wshShell = wscript.CreateObject(“WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “~(enter)”
loop
save namafile.vbs ket:di task manager full wscript yg lg running
6. Membuat Tulisan
Code:
[i]WScript.Sleep 1800
WScript.Sleep 100
Set WshShell = WScript.CreateObject(“WScript.Shell”)
WshShell.Run “notepad”
WScript.Sleep 10
WshShell.AppActivate “Notepad”
WScript.Sleep 50
WshShell.SendKeys “ka”
WScript.Sleep 50
WshShell.SendKeys “mu “
WScript.Sleep 50
WshShell.SendKeys “je”
WScript.Sleep 50
WshShell.SendKeys “le”
WScript.Sleep 50
WshShell.SendKeys “k “
WScript.Sleep 50
WshShell.SendKeys ” se”
WScript.Sleep 50
WshShell.SendKeys “ka”
WScript.Sleep 50
WshShell.SendKeys “li”
WScript.Sleep 50
WshShell.SendKeys ” y”
WScript.Sleep 50
WshShell.SendKeys “a”
WScript.Sleep 50
WshShell.SendKeys ” h”
WScript.Sleep 50
WshShell.SendKeys “!”
WScript.Sleep 50
WshShell.SendKeys “!! “
save namafile.vbs
Sekian share dari saya, selamat berjahil ria.
Jangan kelewatan tapi, ingat daratan. :D
Jangan kelewatan tapi, ingat daratan. :D
0 komentar:
Posting Komentar
Click to see the code!
To insert emoticon you must added at least one space before the code.