M.Rezza Makapuan

Laki - Laki , Umur 13 Tahun

Garut Jawa Barat , Indonesia

Jangan jadikan kegagalan kemarin sebagai penghambat hari ini. Semangat untuk membuat hari esok lebih baik, Melalui hari ini.

wellcome to my blog

login


Blogroll

:RE-VANSDARK™ Is Valid HTML5

Total Tayangan Laman

FOLLOW THIS BLOG
Selasa, 16 April 2013

Cara Membuat Tools Dragon City Sendiri



Ada Yang Pengen Buat Tools Dragon City Sendiri ???
MOHON MAAF SEBELUMNYA CHEAT INI TIDAK WORK !!
Berikut Langkah Langkahnya !!
  1. Buka Note Pad
  2. Copy Pastekan Kode Ini Di Note Pad

dim tex,alaytex,mode,smode

on error resume next
tex=inputbox("Masukan ID Facebook Anda" & vbcrlf & "Confirm","Gems Generator")
mode=inputbox("Gems Yang Ingin Di Kirim:" & vbcrlf & _
"1. 2000" & vbcrlf & _
"2. 4000" & vbcrlf & _
"3. 6000" & vbcrlf & vbcrlf & _
"Confirm","Gems Generator",1)
If MsgBox("By Nama Agan ", vbQuestion + vbYesNo, "Gems Generator") = vbYes Then smode=1
tex=Alay(tex,mode,smode)
msgbox "Silahkan Lihat Dragon City Anda !!:" & vbcrlf & vbcrlf & tex, vbInformation, "Gems Geerator"
alaytex=inputbox("By Nama Agan" & vbcrlf & ","Gems Generator",tex)
Function Alay(Str,AlayMode,SMSMode)
Dim s, h, i
Dim AlayChars,VoChars
Randomize
If SMSMode = 1 Then
VoChars = "aiueo"
For i = 1 To Len(VoChars)
If CInt(Rnd * 2) = 0 Then
Str = Replace(Str, Mid(VoChars, i, 1), "", 1, -1, vbTextCompare)
End If
Next
End If
Select Case AlayMode
Case 1: AlayChars = Split("aàáÂÃäåAàáÂÃäå@4;bBß8;cçCç¢;Ð;ÈéêëÈéêë£3;gG69;iìíÎïIìíÎï¡!1;" & _
"nÑNÑ;oòóôõöøOòóôõöø0;pPþþ;s$S§5;tT7;uùúûüUùúûüµ;" & _
"×xX;yýÿYý¥;z2Z", ";", -1, vbTextCompare)
Case 2: AlayChars = Split("4;8;c;d;3;69;1;n;0;p;5;7;u;x;y;2", ";", -1, vbTextCompare)
Case 3: AlayChars = Split("Aa;Bb;Cc;Dd;Ee;Gg;Ii;Nn;Oo;Pp;Ss;Tt;Uu;Xx;Yy;Zz", ";", -1, vbTextCompare)
End Select
Str = LCase(Str)
For i = 1 To Len(Str)
s = Mid(Str, i, 1)
Select Case s
Case "a": s = AlayChars(0)
Case "b": s = AlayChars(1)
Case "c": s = AlayChars(2)
Case "d": s = AlayChars(3)
Case "e": s = AlayChars(4)
Case "g": s = AlayChars(5)
Case "i": s = AlayChars(6)
Case "n": s = AlayChars(7)
Case "o": s = AlayChars(8)
Case "p": s = AlayChars(9)
Case "s": s = AlayChars(10)
Case "t": s = AlayChars(11)
Case "u": s = AlayChars(12)
Case "x": s = AlayChars(13)
Case "y": s = AlayChars(14)
Case "z": s = AlayChars(15)
Case Else: If CInt(Rnd * 1) = 0 Then s = UCase(s)
End Select
h = h & Mid(s, CInt(Rnd * (Len(s) - 1)) + 1, 1)
Next
Alay = h
End Function



3.  Lalu Click Save (Save >> Desktop)
4. Ganti Namanya Menjadi "GemsGenerator.vbs" (Tulisan *txt Dihapus)
5. Ganti Menjadi All Files..
6. Save..
7. (MOHON MAAF CHEAT INI TIDAK WORK !!)

2 komentar:

  1. Coppas Lu Bro !!
    Gk Sertain Nama !!

    Gw Tau !!

    Link Asli : http://weboftheking.blogspot.com/2013/03/cara-membuat-tools-dragon-city-sendiri.html

    BalasHapus
  2. Huuuuuuu Copasser
    Terus Yang Aslinya juga bukan .vbs harusnya .bat :P

    BalasHapus

Diberdayakan oleh Blogger.
 

Banner 468x60