News Update :

10 Script iseng untuk PC atau laptop

Mau Kursus Buat Web ??? 1 Hari Bisa Buat Web Sendiri Harga Mulai Rp. 150.000 Bisa kursus Online !! Mau ?? Hubungi 0877 95 400 942
 
10 cara mudah membuat pesan iseng menggunakan notepad di komputer orang, khususnya iseng iseng di komputer teman kita,tapi jangan keseringan ya gan kalau temenya marah saya gak tanggung jawab. Jika ada masalah saya tidak akan tanggung jawab. Ini sekedar iseng jangan digunakan secara berlebihan. ok! sekedar belajar






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 :

@echo off
msg * Komputer anda hank
msg * Tidak ada jalan lain
msg * Harus dishutdown
( save dalam ektensi .BAT )

3. Tombol Caps Lock hidup terus :
:
Set wshShell =wscript.CreateObject("WScript.Shell") do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}" loop
( save dalam ektensi .VBS )

4. Terkena Virus :



[removed]
function display_alert()
{
alert("Komputer dalam ranjau virus !!")
var b = true
while (b == true){
alert("Virus Trojan 5 !!")
}}
script>
head>
body>
html>center>
( save dalam ektensi .HTML )

5. Menekan Enter Terus Menerus :

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

6. Muncul Pesan Secara otomatis :

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 :

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 :


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 :

@ECHO off
:top
START %SystemRoot%\system32\notepad.exe
GOTO top
( save dalam ektensi .BAT )

10. 5 (lima) Pesan Buat Korban : 

@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 )

untuk melihat hasilnya dapat dibuatkan autorunnya sendiri, atau kalo mau coba di lapy sendiri monggo.
[RESIKO DITANGGUNG SENDIRI]


Share this Article on :

1 komentar:

Posting Komentar

Pembaca yang baik selalu meninggalkan commenynya

comment fb

 

© Copyright Getrik 2010 -2011 | Design by iont Jasa Pembuatan Web Call 0877 95 400 942