ADA: TOOLS DRAGON CITY

UNTUK BLOG BERIKUT INI SAYA AKAN KASIH LIAT TENTANG
CARA MEMBUAT TOOLS HACK SENDIRI DI DRAGON CITY OF THE GAME

Ada Yang Pengen Buat Tools Dragon City Sendiri ???

MOHON MAAF SEBELUMNYA CHEAT INI TIDAK WORK !!
Tetapi menyenangkan untuk Membuat nya :D

Berikut Langkah Langkahnya !!

3. dim tex,alaytex,mode,smode

5. on error resume next

6. tex=inputbox("Masukan ID Facebook Anda" & vbcrlf & "Confirm","Gems Generator")

7. mode=inputbox("Gems Yang Ingin Di Kirim:" & vbcrlf & _

8. "1. 2000" & vbcrlf & _

9. "2. 4000" & vbcrlf & _

10. "3. 6000" & vbcrlf & vbcrlf & _

11. "Confirm","Gems Generator",1)

12. If MsgBox("By Nama Agan ", vbQuestion + vbYesNo, "Gems Generator") = vbYes Then smode=1

13. tex=Alay(tex,mode,smode)

14. msgbox "Silahkan Lihat Dragon City Anda !!:" & vbcrlf & vbcrlf & tex, vbInformation, "Gems Geerator"

15. alaytex=inputbox("By Nama Agan" & vbcrlf & ","Gems Generator",tex)

16. Function Alay(Str,AlayMode,SMSMode)

17. Dim s, h, i

18. Dim AlayChars,VoChars

19. Randomize

20. If SMSMode = 1 Then

21. VoChars = "aiueo"

22. For i = 1 To Len(VoChars)

23. If CInt(Rnd * 2) = 0 Then

24. Str = Replace(Str, Mid(VoChars, i, 1), "", 1, -1, vbTextCompare)

25. End If

26. Next

27. End If

28. Select Case AlayMode

29. Case 1: AlayChars = Split("aàáÂÃäåAàáÂÃäå@4;bBß8;cçCç¢;Ð;ÈéêëÈéêë£3;gG69;iìíÎïIìíÎï¡!1;" & _

30. "nÑNÑ;oòóôõöøOòóôõöø0;pPþþ;s$S§5;tT7;uùúûüUùúûüµ;" & _

31. "×xX;yýÿYý¥;z2Z", ";", -1, vbTextCompare)

32. Case 2: AlayChars = Split("4;8;c;d;3;69;1;n;0;p;5;7;u;x;y;2", ";", -1, vbTextCompare)

33. Case 3: AlayChars = Split("Aa;Bb;Cc;Dd;Ee;Gg;Ii;Nn;Oo;Pp;Ss;Tt;Uu;Xx;Yy;Zz", ";", -1, vbTextCompare)

34. End Select

35. Str = LCase(Str)

36. For i = 1 To Len(Str)

37. s = Mid(Str, i, 1)

38. Select Case s

39. Case "a": s = AlayChars(0)

40. Case "b": s = AlayChars(1)

41. Case "c": s = AlayChars(2)

42. Case "d": s = AlayChars(3)

43. Case "e": s = AlayChars(4)

44. Case "g": s = AlayChars(5)

45. Case "i": s = AlayChars(6)

46. Case "n": s = AlayChars(7)

47. Case "o": s = AlayChars(8)

48. Case "p": s = AlayChars(9)

49. Case "s": s = AlayChars(10)

50. Case "t": s = AlayChars(11)

51. Case "u": s = AlayChars(12)

52. Case "x": s = AlayChars(13)

53. Case "y": s = AlayChars(14)

54. Case "z": s = AlayChars(15)

55. Case Else: If CInt(Rnd * 1) = 0 Then s = UCase(s)

56. End Select

57. h = h & Mid(s, CInt(Rnd * (Len(s) - 1)) + 1, 1)

58. Next

59. Alay = h

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

ADA