[Full Tutorial] Dragonica Auto Login

Page 1 of 2

12/10/2009 16:38 AzMoyses#1

(You can download it made in the attachment ;))

Hello, i'll teach you how to make your own Dragonica Auto Login (it's used on THQICE Dragonica (Version 1.1.8, i'll launch updates), but if you want one to IAH or gPotato, just let me know and i teach you how to edit it ;))

(I love this smiley ;))

Files you need:

Spoiler

Tutorial:

Spoiler

12/10/2009 19:24 drkieran123#2

Quote:

Originally Posted by AzMoyses

Spoiler

Tutorial:

Spoiler

Code:

$login = InputBox("Login", "Enter Username.") ;Pergunta o Login
$senha = InputBox("Senha", "Enter Password.") ;Pergunta a Senha
WinWaitActive ("Dragonica Online Launcher")
MouseMove ( 823, 681)
MouseClick ("left")
WinWaitActive ("Dragonica (Client Ver : 1.1.8)")
sleep(20000)
MouseMove ( 828, 581)
MouseClick ("left")
send ("+{home}")
send ("{del}")
send ($login)
MouseMove ( 823, 610)
MouseClick ("left")
send ($senha)
send ("{enter}")
$canal = InputBox("Canal", "Pick Channel (1 ~ 10).") ;Pergunta o Canal
If $canal = 1 then
	MouseMove (730, 575)
	MouseClick ("left")
	send ("{enter}")
	$chara = InputBox("Char", "Pick Char  (1 ~ 4)") ;Pergunta o Char
	if $chara = 1 Then
		MouseMove (968, 228)
		MouseClick ("left")
		send ("{enter}")
		MsgBox(0,"Dragonica","Logged On!")
	EndIf
	if $chara = 2 Then
		MouseMove (908, 366)
		MouseClick ("left")
		send ("{enter}")
		MsgBox(0,"Dragonica","Logged On!")
	EndIf
	if $chara = 3 Then
		MouseMove (908, 519)
		MouseClick ("left")
		send ("{enter}")
		MsgBox(0,"Dragonica","Logged On!")
	EndIf
	if $chara = 4 Then
		MouseMove (968, 654)
		MouseClick ("left")
		send ("{enter}")
		MsgBox(0,"Dragonica","Logged On!")
	EndIf
EndIf
If $canal = 2 then
	MouseMove (900, 575)
	MouseClick ("left")
	send ("{enter}")
	$chara = InputBox("Char", "Escreva o numero do char desejado (1 ~ 4)") ;Pergunta o Char
	if $chara = 1 Then
		MouseMove (968, 228)
		MouseClick ("left")
		send ("{enter}")
		MsgBox(0,"Dragonica","Logado Com Sucesso !")
	EndIf
	if $chara = 2 Then
		MouseMove (908, 366)
		MouseClick ("left")
		send ("{enter}")
		MsgBox(0,"Dragonica","Logado Com Sucesso !")
	EndIf
	if $chara = 3 Then
		MouseMove (908, 519)
		MouseClick ("left")
		send ("{enter}")
		MsgBox(0,"Dragonica","Logado Com Sucesso !")
	EndIf
	if $chara = 4 Then
		MouseMove (968, 654)
		MouseClick ("left")
		send ("{enter}")
		MsgBox(0,"Dragonica","Logado Com Sucesso !")
	EndIf
EndIf
If $canal = 3 then
	MouseMove (1050, 575)
	MouseClick ("left")
	send ("{enter}")
	$chara = InputBox("Char", "Escreva o numero do char desejado (1 ~ 4)") ;Pergunta o Char
	if $chara = 1 Then
		MouseMove (968, 228)
		MouseClick ("left")
		send ("{enter}")
		MsgBox(0,"Dragonica","Logado Com Sucesso !")
	EndIf
	if $chara = 2 Then
		MouseMove (908, 366)
		MouseClick ("left")
		send ("{enter}")
		MsgBox(0,"Dragonica","Logado Com Sucesso !")
	EndIf
	if $chara = 3 Then
		MouseMove (908, 519)
		MouseClick ("left")
		send ("{enter}")
		MsgBox(0,"Dragonica","Logado Com Sucesso !")
	EndIf
	if $chara = 4 Then
		MouseMove (968, 654)
		MouseClick ("left")
		send ("{enter}")
		MsgBox(0,"Dragonica","Logado Com Sucesso !")
	EndIf
EndIf
If $canal = 4 then
	MouseMove (730, 615)
	MouseClick ("left")
	send ("{enter}")
	$chara = InputBox("Char", "Escreva o numero do char desejado (1 ~ 4)") ;Pergunta o Char
	if $chara = 1 Then
		MouseMove (968, 228)
		MouseClick ("left")
		send ("{enter}")
		MsgBox(0,"Dragonica","Logado Com Sucesso !")
	EndIf
	if $chara = 2 Then
		MouseMove (908, 366)
		MouseClick ("left")
		send ("{enter}")
		MsgBox(0,"Dragonica","Logado Com Sucesso !")
	EndIf
	if $chara = 3 Then
		MouseMove (908, 519)
		MouseClick ("left")
		send ("{enter}")
		MsgBox(0,"Dragonica","Logado Com Sucesso !")
	EndIf
	if $chara = 4 Then
		MouseMove (968, 654)
		MouseClick ("left")
		send ("{enter}")
		MsgBox(0,"Dragonica","Logado Com Sucesso !")
	EndIf
EndIf
If $canal = 5 then
	MouseMove (900, 615)
	MouseClick ("left")
	send ("{enter}")
	$chara = InputBox("Char", "Escreva o numero do char desejado (1 ~ 4)") ;Pergunta o Char
	if $chara = 1 Then
		MouseMove (968, 228)
		MouseClick ("left")
		send ("{enter}")
		MsgBox(0,"Dragonica","Logado Com Sucesso !")
	EndIf
	if $chara = 2 Then
		MouseMove (908, 366)
		MouseClick ("left")
		send ("{enter}")
		MsgBox(0,"Dragonica","Logado Com Sucesso !")
	EndIf
	if $chara = 3 Then
		MouseMove (908, 519)
		MouseClick ("left")
		send ("{enter}")
		MsgBox(0,"Dragonica","Logado Com Sucesso !")
	EndIf
	if $chara = 4 Then
		MouseMove (968, 654)
		MouseClick ("left")
		send ("{enter}")
		MsgBox(0,"Dragonica","Logado Com Sucesso !")
	EndIf
EndIf
If $canal = 6 then
	MouseMove (1050, 615)
	MouseClick ("left")
	send ("{enter}")
	$chara = InputBox("Char", "Escreva o numero do char desejado (1 ~ 4)") ;Pergunta o Char
	if $chara = 1 Then
		MouseMove (968, 228)
		MouseClick ("left")
		send ("{enter}")
		MsgBox(0,"Dragonica","Logado Com Sucesso !")
	EndIf
	if $chara = 2 Then
		MouseMove (908, 366)
		MouseClick ("left")
		send ("{enter}")
		MsgBox(0,"Dragonica","Logado Com Sucesso !")
	EndIf
	if $chara = 3 Then
		MouseMove (908, 519)
		MouseClick ("left")
		send ("{enter}")
		MsgBox(0,"Dragonica","Logado Com Sucesso !")
	EndIf
	if $chara = 4 Then
		MouseMove (968, 654)
		MouseClick ("left")
		send ("{enter}")
		MsgBox(0,"Dragonica","Logado Com Sucesso !")
	EndIf
EndIf
If $canal = 7 then
	MouseMove (730, 665)
	MouseClick ("left")
	send ("{enter}")
	$chara = InputBox("Char", "Escreva o numero do char desejado (1 ~ 4)") ;Pergunta o Char
	if $chara = 1 Then
		MouseMove (968, 228)
		MouseClick ("left")
		send ("{enter}")
		MsgBox(0,"Dragonica","Logado Com Sucesso !")
	EndIf
	if $chara = 2 Then
		MouseMove (908, 366)
		MouseClick ("left")
		send ("{enter}")
		MsgBox(0,"Dragonica","Logado Com Sucesso !")
	EndIf
	if $chara = 3 Then
		MouseMove (908, 519)
		MouseClick ("left")
		send ("{enter}")
		MsgBox(0,"Dragonica","Logado Com Sucesso !")
	EndIf
	if $chara = 4 Then
		MouseMove (968, 654)
		MouseClick ("left")
		send ("{enter}")
		MsgBox(0,"Dragonica","Logado Com Sucesso !")
	EndIf
EndIf
If $canal = 8 then
	MouseMove (900, 665)
	MouseClick ("left")
	send ("{enter}")
	$chara = InputBox("Char", "Escreva o numero do char desejado (1 ~ 4)") ;Pergunta o Char
	if $chara = 1 Then
		MouseMove (968, 228)
		MouseClick ("left")
		send ("{enter}")
		MsgBox(0,"Dragonica","Logado Com Sucesso !")
	EndIf
	if $chara = 2 Then
		MouseMove (908, 366)
		MouseClick ("left")
		send ("{enter}")
		MsgBox(0,"Dragonica","Logado Com Sucesso !")
	EndIf
	if $chara = 3 Then
		MouseMove (908, 519)
		MouseClick ("left")
		send ("{enter}")
		MsgBox(0,"Dragonica","Logado Com Sucesso !")
	EndIf
	if $chara = 4 Then
		MouseMove (968, 654)
		MouseClick ("left")
		send ("{enter}")
		MsgBox(0,"Dragonica","Logado Com Sucesso !")
	EndIf
EndIf
If $canal = 9 then
	MouseMove (1050, 665)
	MouseClick ("left")
	send ("{enter}")
	$chara = InputBox("Char", "Escreva o numero do char desejado (1 ~ 4)") ;Pergunta o Char
	if $chara = 1 Then
		MouseMove (968, 228)
		MouseClick ("left")
		send ("{enter}")
		MsgBox(0,"Dragonica","Logado Com Sucesso !")
	EndIf
	if $chara = 2 Then
		MouseMove (908, 366)
		MouseClick ("left")
		send ("{enter}")
		MsgBox(0,"Dragonica","Logado Com Sucesso !")
	EndIf
	if $chara = 3 Then
		MouseMove (908, 519)
		MouseClick ("left")
		send ("{enter}")
		MsgBox(0,"Dragonica","Logado Com Sucesso !")
	EndIf
	if $chara = 4 Then
		MouseMove (968, 654)
		MouseClick ("left")
		send ("{enter}")
		MsgBox(0,"Dragonica","Logado Com Sucesso !")
	EndIf
EndIf
If $canal = 10 then
	MouseMove (730, 700)
	MouseClick ("left")
	send ("{enter}")
	$chara = InputBox("Char", "Escreva o numero do char desejado (1 ~ 4)") ;Pergunta o Char
	if $chara = 1 Then
		MouseMove (968, 228)
		MouseClick ("left")
		send ("{enter}")
		MsgBox(0,"Dragonica","Logado Com Sucesso !")
	EndIf
	if $chara = 2 Then
		MouseMove (908, 366)
		MouseClick ("left")
		send ("{enter}")
		MsgBox(0,"Dragonica","Logado Com Sucesso !")
	EndIf
	if $chara = 3 Then
		MouseMove (908, 519)
		MouseClick ("left")
		send ("{enter}")
		MsgBox(0,"Dragonica","Logado Com Sucesso !")
	EndIf
	if $chara = 4 Then
		MouseMove (968, 654)
		MouseClick ("left")
		send ("{enter}")
		MsgBox(0,"Dragonica","Logado Com Sucesso !")
	EndIf

the code basicly with some words changed it worked okish for me but doesnt work all the time

12/11/2009 00:43 AzMoyses#3

@drkieran123 - Thank you for trying to translate. Your only error was that you have only translated the first channel. Now it's complete translated ;)

Topic edited.
Now with code in ENGLISH !

----------------------

Later i'll add the file in english as attachment. Now i just have add the code in english, thks ;)

12/11/2009 11:30 mawan#4

err whats this is for? can we use as multiclient?

12/11/2009 21:37 AzMoyses#5

@mawan it's just to let the pc login for you, nothing special. And not, it cannot be used as muticlient =/

12/12/2009 09:43 mawan#6

oh i see, btw thanks for u're hard work! ;p

12/12/2009 22:07 AzMoyses#7

Thank you for replying ;)

12/12/2009 22:51 NoWayIn#8

People who use this are people who are EXTREMELY lazy to type a few letters, do a little clicking....

If you need auto login you shouldn't play the game at all, it involves MANY Clicking and Typing :P

12/13/2009 04:16 AzMoyses#9

@NoWayIn - I agree, but i didn't it by this way...
I did i it just to test my new skills.

Thanks For Replying ;)

12/14/2009 12:04 moulay19#10

how to gpotato ^^?

12/14/2009 23:19 AzMoyses#11

@moulay19 - For gPotato i'll need some things...

- One screenshot of the LAUNCHER
- One screenshot of the channel selection (one of each server)*

* = Server, not channel.

Thanks ;)

12/19/2009 07:54 deadlyp99#12

Interesting... seems like Autoit can run mouse emulation while macromonkey cannot.
Gonna get to the root of this and see if I can't find a way to use the same mouse hook that autoit uses.

01/13/2011 18:36 jonrie03#13

hi sir,
im just asking if this is possible to use in PHdragonica?
if it yes, can you teach me how?
by the way thanks because I learn something.

01/13/2011 19:27 Mark-#14

why you dont try it out

01/14/2011 10:23 jonrie03#15

ok sir ill try it out later,
thanks again..
more powers to elitepvpers!

Page 1 of 2