Selasa, 01 Oktober 2013

Cara Membuat Tools Dragon City

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