Ada Yang Pengen Buat Tools Dragon City Sendiri ???
MOHON MAAF SEBELUMNYA CHEAT INI TIDAK WORK !!
Berikut Langkah Langkahnya !!
- Buka Note Pad
- 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 !!)
.png "English"){kind=small}
