Iseng dengan Notepad


notapad

Assalamualaikum,, hello, bosen dengan belajar yak,, skarang waktunya notepad di pake buat ngerjain orang,,😀, tp ga harus pake notepad sih, sebenernya lebih di rekomendasikan pake textpad atau notepad++, soalnya kodingan di bawah ini tidak bisa di copy paste di notepad, karena perbedaan karakter tanda petik (” “) pada notepad. Ayoo kita Mulai …..

Simpan dengan nama iseng.vbs, dan berikan ke teman anda,😀

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

2. Iseng Dengan Tombol Enter Terus Menerus

Set wshShell = wscript.CreateObject(“WScript.Shell”)
 do
 wscript.sleep 100
 wshshell.sendkeys “~(enter)”
 loop

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! “

4. Iseng Dengan Backspace

MsgBox “Maaf, Anda Harus Mengulang Kembali”
 Set wshShell =wscript.CreateObject(“WScript.Shell”)
 do
 wscript.sleep 100
 wshshell.sendkeys “{bs}”
loop

5. Iseng Dengan Membuka Calculator Terus Menerus, simpan dengan nama iseng.bat

 @ECHO off
 :top
 START %SystemRoot%\system32\cacl.exe
 GOTO top

6. Iseng Dengan Keyboard

 Set wshShell = wscript.CreateObject(“WScript.Shell”)
 do
 wscript.sleep 100
 wshshell.sendkeys “Maaf, Keyboard Tidak Berfungsi! Harap Diperbaiki”
 loop
 

7. Iseng Dengan Shutdown Computer, simpan dengan nama iseng.bat

 @echo off
 msg * Komputer Anda Terinfeksi Virus
 shutdown -c “Error! Virus Menyebar Keseluruh System!” -s -t 0
 

8. Membuat Jam, yang ini tidak jail, simpan dengan nama iseng.bat

 @echo off
start /b “%comspec%”
:update
set _time=%time:~0,8%
title Time : [ %_time% ] @ [ %date% ]
ping localhost -n 2 -w 500 >nul
goto update

sumber : di mbah google banyak

, ,

  1. Tinggalkan komentar

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: