r00t »» , , »» Notepad coding

Notepad coding

by LOLids artich | | , , | 2 komentar »




 ===============================================

1. Iseng Mengeject CD-Drive Terus Menerus
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
Kemudian save dengan “NOTEPAD-1.VBS”
2. Iseng Dengan Tombol Enter Terus Menerus

Set wshShell = wscript.CreateObject(”WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “~(enter)”
loop
Kemudian save dengan “NOTEPAD-2.VBS”
3. Iseng Dengan Pesan Lambat Notepad “Hello, how are you? I am good thanks!”

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 “Hel”
WScript.Sleep 500
WshShell.SendKeys “lo ”
WScript.Sleep 500
WshShell.SendKeys “, ho”
WScript.Sleep 500
WshShell.SendKeys “w a”
WScript.Sleep 500
WshShell.SendKeys “re ”
WScript.Sleep 500
WshShell.SendKeys “you”
WScript.Sleep 500
WshShell.SendKeys “? ”
WScript.Sleep 500
WshShell.SendKeys “I a”
WScript.Sleep 500
WshShell.SendKeys “m g”
WScript.Sleep 500
WshShell.SendKeys “ood”
WScript.Sleep 500
WshShell.SendKeys ” th”
WScript.Sleep 500
WshShell.SendKeys “ank”
WScript.Sleep 500
WshShell.SendKeys “s! “
Kemudian save dengan “NOTEPAD-3.VBS”
4. Iseng Dengan Backspace
MsgBox “Maaf, Anda Harus Mengulang Kembali”
Set wshShell =wscript.CreateObject(”WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “{bs}”
loop
Kemudian save dengan “NOTEPAD-4.VBS”
5. Iseng Dengan Membuka Calculator Terus Menerus
@ECHO off
:top
START %SystemRoot%\system32\cacl.exe
GOTO top
Kemudian save dengan “NOTEPAD-5.BAT”
6. Iseng Dengan Keyboard
Set wshShell = wscript.CreateObject(”WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “Maaf, Keyboard Tidak Berfungsi! Harap Diperbaiki”
loop
Kemudian save dengan “NOTEPAD-6.VBS”
7. Iseng Dengan Shutdown Computer
@echo off
msg * Komputer Anda Terinfeksi Virus
shutdown -c “Error! Virus Menyebar Keseluruh System!” -s -t 0
Kemudian save dengan “NOTEPAD-7.BAT”

ref : binushacker
==================================================








Article information: Description: Notepad coding Rating: 4.5 - Reviewer: LOLids artich - ItemReviewed: Notepad coding


Related Tips, Tricks and Tutorials :



2 komentar Post :
Notepad coding


NOTE:
Follow me ON Facebook , Twitter or

Blog ini adalah Blog DoFollow dengan PageRank Free PageRank Checker, sobat akan mendapatkan Backlink untuk BLOG anda dengan berkomentar di Blog ini. Jangan ada komentar Spam, Please!!.

"Jika Menemukan LINK yg Tidak bisa di akses pada BLOG ini!, silahkan beritahu kepada kami melalui Komentar, Form, etc . sesegera mungkin kami akan memperbaikinya. Terimakasih"




  1. MlatenMania's Blog ►► [ reply ] [ Jump to TOP ] ► Sat Feb 27, 01:03:00 am 2010  

    Wah.... Terimakasih..ntar tak coba dirumah he..he...

  2. Lolids Personal Blog ►► [ reply ] [ Jump to TOP ] ► Wed Mar 03, 11:27:00 pm 2010  

    @MlatenMania's Blog ► Sama2 Sob...
    note: u/menonaktifkan restart saja Kompienya.

Post a Comment

Next Prev Home