Membuat Pesan iseng di Komputer . baik,kali ini saya mau berbagi trik mengenai bagaimana 10 cara mudah membuat pesan iseng menggunakan notepad di komputer orang, khususnya iseng iseng di komputer teman kita,hehehhe.
tapi jangan keseringan ya dan kalau temenya marah saya gak tanggung jawab .
berikut caranya sobat :
1. Pesan Restart :
@ECHO off
:Begin
msg * WARNING !
msg * Komputer anda error
msg * Tidak ada cara lain
msg * Harus diinstall ulang
GOTO BEGIN
( save dalam ektensi .BAT )
2. Pesan Shutdown :
Quote:
@echo off
msg * Komputer anda hank
msg * Tidak ada jalan lain
msg * Harus dishutdown
( save dalam ektensi .BAT )
3. Tombol Caps Lock hidup terus :
Quote:
Set wshShell =wscript.CreateObject("WScript.Shell") do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}" loop
( save dalam ektensi .VBS )
4. Terkena Virus :
<html>
<head>
<script type
="text/javascript">
function display_alert()
{
alert("Komputer dalam ranjau virus !!")
var b = true
while (b == true){
alert("Virus Trojan 5 !!")
}}
script>
head>
<body><input type="button" onclick="display_alert()"
value="Submit" />body>
html>center>
( save dalam ektensi .HTML )
5. Menekan Enter Terus Menerus :
Quote:
Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "~(enter)"
loop
( save dalam ektensi .VBS )
6. Muncul Pesan Secara otomatis :
Quote:
WScript.Sleep 180000
WScript.Sleep 10000
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "notepad"
WScript.Sleep 100
WshShell.AppActivate "Notepad"
WScript.Sleep 500
WshShell.SendKeys "Hello"
WScript.Sleep 500
WshShell.SendKeys "how"
WScript.Sleep 500
WshShell.SendKeys "are"
WScript.Sleep 500
WshShell.SendKeys "you"
WScript.Sleep 500
WshShell.SendKeys " ? "
WScript.Sleep 500
WshShell.SendKeys "I"
WScript.Sleep 500
WshShell.SendKeys "m"
WScript.Sleep 500
WshShell.SendKeys "gho"
WScript.Sleep 500
WshShell.SendKeys " st"
( save dalam ektensi .VBS )
7. Backspace Jalan Terus-Menerus :
Quote:
MsgBox "Let's go back a few steps"
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{bs}"
loop
( save dalam ektensi .VBS )
8. Korban Harus Mengetik "You are crazy"
Secara Terus-Menerus :
Quote:
Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "You are crazy"
loop
( save dalam ektensi .VBS )
9. Buka Notepad Terus-Menerus :
Quote:
@ECHO off
:top
START %SystemRoot%\system32\notepad.exe
GOTO top
( save dalam ektensi .BAT )
10. 5 (lima) Pesan Buat Korban :
Quote:
@echo off
title The end of the world
cd C:\
:menu
cls
echo Oops Tanggung Jawab Yah...
pause
echo Semua Ini Salahmu =P :
echo 1. Semua Data Akan Hilang
echo 2. Komputer Error
echo 3. Komputer Kena Virus H1N5
echo 4. Segera Matikan Komputernya
echo 5. Good bye.....
set input=nothing
set /p input=Choice:
if %input%==1 goto one
if %input%==2 goto two
( save dalam ektensi .BAT )
demikian mengenai cara cara iseng membuat pesan menggunakan notepad untuk isengin komputer teman kita , semoga cara membuat pesan komputer ini bermanfaat untuk sahabat berry blog.
sumber : bukan pc+
sumber : bukan pc+
6 Responses to "10 Cara Membuat Pesan iseng di Komputer"
Terima Kasih Infonya. Izin copy dalam berangkas.
keren gan
makasih gan infonya...saya sangat suka dengan postingan anda.lain kali saya akan datang lagi untuk membaca postingan2 anda selanjutnya.thanks..
Ada yg gak work
Kerennnn!. Yang no 6 perlu di revisi sob!.
kaga bisa gara - gara Fn
Posting Komentar