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
: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”
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
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
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
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
{ 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
wkwkwkw :D thanx gan infonya :D
BalasHapus