Popular Post

Posted by : Uchiha Ridho Fadel Monday, March 18, 2013


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 !!)

(Uchiha Ridho Fadel)

{ 16 Comments... read them below or Comment }

  1. Yang Tulisan Warna Hijau Agan Ganti !!!

    ReplyDelete
  2. gak ngertii kalau ada vidio nya sngat membantu


    ReplyDelete
  3. "Mohon maaf cheat ini tidak work" -_-

    ReplyDelete
  4. kalau bikin tools dragon city gimana yahh
    gw udah bikin tools dragon city tapi di bikin worknya gimana tuh??
    ada yang tau ga??

    ReplyDelete
  5. Kan Udah Ane Bilang Gak Work Gan :3
    VIdeo ??
    Kalau Mau Video Sih Bisa Ane Buatin :D

    ReplyDelete
  6. coba buatin video nyaaaaaaaaaaaaaaa

    ReplyDelete
  7. notepade tuhh yg mana y kak??? :D

    ReplyDelete
    Replies
    1. Kalo Masukin FIle Itu Download Nya Yang Notepad++

      Delete
  8. Anonymous9/25/2013

    error gan
    gk bisa di buka
    fb agan mana ?

    ReplyDelete
  9. Gan maksud dari ganti menjadi all faile tu apa an ................?
    gpp kalo gx works aya mau belajar aja buat cit ^_^

    ReplyDelete
  10. ngapain di posting klo ga work, , payah

    ReplyDelete
  11. ngga work buat apa di share -_-

    ReplyDelete
  12. ada yng mau bli video cara membuat tools bukan hanya dragon city msih ada lgi cheat lainnya dan ada juga gcash gemscool
    harga
    video=10rbu pulsa
    video+script=20rbu pulsa

    minat
    http://facebook.com/lukmanx466 <<<< add+chat

    ReplyDelete

Berkomentar Dengan Baik Dan Sopan Ya !! ^_^

- Copyright © Web Of The King - Date A Live - Powered by Blogger - Designed by Johanes Djogan -