Dragonica Auto Login

totorto · Apr 21, 2011

Bonjours à toute et a tous

Aujourd'hui je vais vous présentez comment on peut " s' auto-loger " sur Dragonica

Tous d'abord vous aurez besoin d' Ce lien n'est pas visible, veuillez vous connecter pour l'afficher. Je m'inscris!

[Étape N°1] : Préparer l'auto Login

Crée un nouveau fichier AutoIt puis renommer le en : Dragonica AutoLogin.

Clic Droit sur sur nouveau fichier puis Edit Script
Mettez le script ci-dessous.

$login = InputBox("Login", "Enter the Username.")
$senha = InputBox("Senha", "Enter the Password.")
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).")
If $canal = 1 then
MouseMove (730, 575)
MouseClick ("left")
send ("{enter}")
$chara = InputBox("Char", "Pick Char (1 ~ 4)")
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", "Pick Char (1 ~ 4)")
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 = 3 then
MouseMove (1050, 575)
MouseClick ("left")
send ("{enter}")
$chara = InputBox("Char", "Pick Char (1 ~ 4)")
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 = 4 then
MouseMove (730, 615)
MouseClick ("left")
send ("{enter}")
$chara = InputBox("Char", "Pick Char (1 ~ 4)")
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 = 5 then
MouseMove (900, 615)
MouseClick ("left")
send ("{enter}")
$chara = InputBox("Char", "Pick Char (1 ~ 4)")
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 = 6 then
MouseMove (1050, 615)
MouseClick ("left")
send ("{enter}")
$chara = InputBox("Char", "Pick Char (1 ~ 4)")
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 = 7 then
MouseMove (730, 665)
MouseClick ("left")
send ("{enter}")
$chara = InputBox("Char", "Pick Char (1 ~ 4)")
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 = 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", "Pick Char (1 ~ 4)")
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 = 10 then
MouseMove (730, 700)
MouseClick ("left")
send ("{enter}")
$chara = InputBox("Char", "Pick Char (1 ~ 4)")
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

Puis enregistré et fermer.

[Étape N°2]: Lancement du Script

Clic droit sur le fichier puis : Run Script

On vous demande votre Login et votre mot de passe , entrée les , ne vous inquiété pas , ceci n'est pas un hack de compte ^^

Dragonica devrai se lancer , si ce n'ai pas le cas , lancer le vous même puis ne toucher à rien !

Après on va vous demandé le Canal dans lequel vous voulez être loger et ensuite quel personnage .

Enjoy ^^

[Les Fichiers]:

Ce lien n'est pas visible, veuillez vous connecter pour l'afficher. Je m'inscris!

Ce lien n'est pas visible, veuillez vous connecter pour l'afficher. Je m'inscris!

:bye:

Metan · Apr 21, 2011

Trop de couleur a mon gout j'ai pas tous lu donc sinon merci pour le ptit tuto mais un auto login sa sert a rien ^^'

Phiter · Apr 21, 2011

Utilité ? Mais bon merci du partage.

bastien60 · Apr 21, 2011

Change de couleur surtout le jaune sa pique les yeux *_*

Dragonica Auto Login

Publicités

Users Who Are Viewing This Thread (Total: 0, Members: 0, Guests: 0)

More options

totorto

Metan

Membre actif

Phiter

bastien60