Trik ini hanya untuk sekedar iseng saja, jangan dipakai keseingan nanti teman kita bisa marah. Modalnya cuma dengan Notepad atau Text Document. Caranya cukup mudah, anda tulis saja kode-kode berikut pada Notepad atau Text Document, terus save as pakai ekstensi yang akan dejelaskan dibawah ini.
Note: Divanacom tidak bertanggung jawab atas kerusakan apapun yang terjadi. ini semata-mata hanya untuk pembelajaran programming tingkat dasar.
Note: Divanacom tidak bertanggung jawab atas kerusakan apapun yang terjadi. ini semata-mata hanya untuk pembelajaran programming tingkat dasar.
1. Pesan Restart:
@ECHO off
:Begin
msg * WARNING !
msg * Komputer anda error
msg * Tidak ada cara lain
msg * Harus diinstall ulang
GOTO BEGIN
:Begin
msg * WARNING !
msg * Komputer anda error
msg * Tidak ada cara lain
msg * Harus diinstall ulang
GOTO BEGIN
(Save dalam ekstensi .BAT)
2. Pesan Shutdown:
Quote:
@echo off
msg * Komputer anda hank
msg * Tidak ada jalan lain
msg * Harus dishutdown
( save dalam ektensi .BAT )
@echo off
msg * Komputer anda hank
msg * Tidak ada jalan lain
msg * Harus dishutdown
( save dalam ektensi .BAT )
(Save Dalam Ekstensi .BAT)
3. Tombol CapsLock Hidup Terus:
Quote:
Set wshShell =wscript.CreateObject("WScript.Shell") do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}" loop
Set wshShell =wscript.CreateObject("WScript.Shell") do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}" loop
(Save Dalam Ekstensi .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>
<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 Ekstensi .HTML)
5. CD-Room Buka Tutup Terus:
Quote:
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
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
(Save Dalam Ekstensi .VBS)
6. Menekan ENTER Terus-Menerus:
Quote:
Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "~(enter)"
loop
Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "~(enter)"
loop
(Save Dalam Ekstensi .VBS)
7. Muncul Pesan Terus-Menerus:
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"
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 Ekstensi .VBS)
8. 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
MsgBox "Let's go back a few steps"
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{bs}"
loop
(Save Dalam Ekstensi .VBS)
9. Korban Harus Mengetik "You Are Crazy" Terus-Menerus:
Quote:
Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "You are crazy"
loop
Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "You are crazy"
loop
(Save Dalam Ekstensi .VBS)
10. Buka Notepad Terus-Menerus:
Quote:
@ECHO off
:top
START %SystemRoot%\system32\notepad.exe
GOTO top
@ECHO off
:top
START %SystemRoot%\system32\notepad.exe
GOTO top
(Save Dalam Ekstensi .BAT)
11. 5 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
@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 Ekstensi .BAT)
Sekian dulu Trik buat kerjain PC atau Laptop Teman, Terjadi kerusakan dalam maupun luar Divanacom tidak bertanggung jawab, jadi pikir-pikir dulu sebelum bertindak, Thank's
