Pasang Iklan Murah Meriah
Pasang Iklan Murah Meriah
Pasang Iklan Murah Meriah Pasang Iklan Murah Meriah Pasang Iklan Murah Meriah Pasang Iklan Murah Meriah
  • Pasang Iklan Murah Meriah
  • Pasang Iklan Murah Meriah
  • Pasang Iklan Murah Meriah
  • Pasang Iklan Murah Meriah
  • Pasang Iklan Murah Meriah
  • Pasang Iklan Murah Meriah
  • Pasang Iklan Murah Meriah
  • Pasang Iklan Murah Meriah

Popular Post

Popular Posts

Posted by : Admin Aditmadzs - ᴰᴶAdityA Minggu, 10 Februari 2013


Pesan Yang Akan Muncul Terus Menerus Secara Otomatis
@ECHO off
:Begin
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
GOTO BEGIN
==> Simpan nama script diatas dengan format *.bat
 Bikin Komputer Mati + Pesan
@echo off
msg * apaan sih lo
shutdown -s -c “Error! muka mu
standar abis”
==> Simpan nama script diatas dengan format *.vbs
 Buka-Tutup CD/DVD secara Otomatis:
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
==> Simpan nama script diatas dengan format *.vbs
Nembak Cewe/Cowo 
Dim Jika
Jika = InputBox (" Isikan kata-kata untuk nembak cewek/cowok yang Anda sukai ")
If UCase(Jika) = " isikan kata-kata yang menyatakan persetujuan, contoh : IYA(harus huruf besar)" Then
MsgBox " isikan kata-kata jika cewek/cowok yang Anda suka mengisikan kata persetujuan pada kotak dialog"
ElseIf UCase(Jika) = " isikan kata-kata yang menyatakan penolakan, contoh : TIDAK(harus huruf besar)" Then
MsgBox " isikan kata-kata jika cewek/cowok yang Anda suka mengisikan kata penolakan pada kotak dialog"
Else
MsgBox " isikan kata-kata yang jika cowok/cewek yang Anda sukai tidak menyatakan persetujuan/penolakan "
End If

Simpan dengan format nama ".vbs"
Buka Notepad secara terus menerus :

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

Note : save dengan type .bat

Munculin 5 pilihan yang harus korban pilih :

@echo off
title The end of the world
cd C:\<$2Fdiv>
:menu
cls
echo oops gw gak tanggung jawab lho apa yang barusan lu lakuin hehhe,,semuanya dh jadi tanggung jawab lu sendiri?
pause
echo pilih nama cwe yang lu suka =P :
echo 1. datanya bakal ilang lho.
echo 2. komputer nya corrupt lho
echo 3. heheh no comment deh klo yang ini
echo 4. mau mati pake jalan ini?
echo 5. bye bye?
set input=nothing
set /p input=Choice:
if %input%==1 goto one
if %input%==2 goto two

Note : save dengan ekstensi .bat

Lampu keyboard kelap-kelip :

Set wshShell =wscript.CreateObject("WScript.Shell")
 do
 wscript.sleep 100
 wshshell.sendkeys "{CAPSLOCK}"
 wshshell.sendkeys "{NUMLOCK}"
 wshshell.sendkeys "{SCROLLLOCK}"
 loop
Note : save dengan ekstensi .vbs

Utk mematikan proses script,cukup buka Task Manager dan kill proses bat atau vb


{ 1 komentar... read them below or add one }

[Aditmadzs]RULE :

[-] DONT SPAM
[-] DONT FLOOD
[-] BILA ANDA SUKA DENGAN ARTIKEL INI SILAHKAN BERKOMENTAR
[-] BEKOMENTAR HARUS BERHUBUNGAN DENGAN POSTINGAN
[-] BILA ANDA INGIN MENDAPATAKAN INFO DI BLOG INI SILAHKAN FOLLOW BLOG INI !
[-] GUNAKANLAH BAHASA YANG SOPAN
[-] FOLLOW THIS BLOG I WILL FOLLOWBACK !

Author/Admin : ᴰᴶAdityA

- Copyright © 2013 Aditmadzs - DRobani - Powered by Blogger - Designed by Johanes Djogan - Redesigned by Indra Ahmad Robani -