0
Salam Mumed,
 
"Bosen dengan belajar, mau iseng? Yuk, kita pakai cara sederhana saja untuk ngisengin teman kita sendiri.
Tapi jangan anda coba trik ini di komputer anda, klo dicoba berarti anda mengisengin diri anda sendiri & dapat dibilang anda melakukan tindakan senjata makan tuan donkkkk...!!!.
Penting..!! Jengkel
Copy Paste Kadang Tidak Berhasil Dikarenakan Perbedaan Tanda Petik ( ” ” ) Pada Notepad, Untuk Lebih Fix Bisa Pake TextPad
Langsung saja di coba..!!!
  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 “SUKASUKAANDA.VBS” & Berikan keteman Anda
  2. Iseng Dengan Tombol Enter Terus Menerus
    Set wshShell = wscript.CreateObject(”WScript.Shell”)
    do
    wscript.sleep 100
    wshshell.sendkeys “~(enter)”
    loop
    Kemudian save dengan “SUKASUKAANDA.VBS” & Berikan keteman Anda
  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 “SUKASUKAANDA.VBS” & Berikan keteman Anda
  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 “SUKASUKAANDA.VBS” & Berikan keteman Anda
  5. Iseng Dengan Membuka Calculator Terus Menerus
    @ECHO off
    :top
    START %SystemRoot%\system32\cacl.exe
    GOTO top

    Kemudian save dengan “SUKASUKAANDA.BAT” & Berikan keteman Anda
  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 “SUKASUKAANDA.VBS” & Berikan keteman Anda
  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 “SUKASUKAANDA.BAT” & Berikan keteman Anda
CARA MEMATIKAN PROGRAM DIATAS :
  1. buka task manager (ctrl+alt+del)
  2. lalu cari wscript
  3. matikan wscript dengan cara klik end process
  4. dan akhirnya program notepad yang anda buat mati-mati
hahaha bagaimana sobat, tinggal kalian coba dan selamat menikmati hasilkaryanya!!
dan yang paling penting, jangan lupa berkomentar dan “Like” yoo

Post a Comment

Setiap ada Komentar pasti saya balas satu hari sesudahnya

Hargai penulis dengan cara memberikan komentar di artikel ini ya sobat.
Dan berkomentarlah dengan kata-kata yang sopan.

"Jangan Menggunakan Link Aktif di Komentar" (akan dihapus)

Thanks

Admin

 
Top