Salut tout le monde, je me permet de republier un utilitaire codé en AutoIt ayant déjà été posté qui m'est plutôt utile et que j'avais amélioré en Mars 2015 étant donné que je pense que certaines personnes aimerai bien pouvoir switcher entre deux comptes S4 (l'un pour le cheat, l'autre pour le jeu sérieux).
Donc, c'est parti!
Présentation :
Cet utilitaire se présente sous la forme d'une fenêtre contenant :
Utilisation :
Extrayez l'utilitaire dans le dossier d'installation d'S4League (généralement : "C:\AeriaGames\S4League")
Lancez le, entrez vos identifiants et connectez vous.
Téléchargement :
Le fichier à télécharger est joint juste en dessous, mais si vous voulez le code pour le modifier comme vous le voulez, le voici :
NB : le sujet source est celui ci
Donc, c'est parti!
Présentation :
Cet utilitaire se présente sous la forme d'une fenêtre contenant :
- 2 textbox
- 2 boutons radio
- 1 bouton de connexion
Utilisation :
Extrayez l'utilitaire dans le dossier d'installation d'S4League (généralement : "C:\AeriaGames\S4League")
Lancez le, entrez vos identifiants et connectez vous.
Téléchargement :
Le fichier à télécharger est joint juste en dessous, mais si vous voulez le code pour le modifier comme vous le voulez, le voici :
Code:
#RequireAdmin
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
If Not FileExists(@scriptdir & "/S4Client.exe") Then
MsgBox(48, "Erreur", "Veuillez mettre l'utilitaire dans le dossier d'S4 !")
Exit
EndIf
$RadioUsed = ""
$oIE = _IECreateEmbedded()
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("S4League Launcher", 398, 186, -1, -1)
GUICtrlCreateObj($oIE, 0, 0, 1, 1)
$Radio1 = GUICtrlCreateRadio("Compte 1", 280, 32, 81, 33)
$Radio2 = GUICtrlCreateRadio("Compte 2", 280, 64, 81, 33)
$Input1 = GUICtrlCreateInput("", 32, 48, 217, 21)
GUICtrlSetTip(-1, "Pseudo/Email")
$Input2 = GUICtrlCreateInput("", 32, 112, 217, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_PASSWORD))
GUICtrlSetTip(-1, "Mot de passe")
$Group1 = GUICtrlCreateGroup("Choix du compte", 272, 16, 105, 97)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Label1 = GUICtrlCreateLabel("Pseudo/Email", 32, 24, 101, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("Mot de passe", 32, 88, 100, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Button1 = GUICtrlCreateButton("Connexion", 32, 144, 217, 33, $BS_DEFPUSHBUTTON)
GUICtrlSetTip(-1, "Se connecter")
GUICtrlSetCursor (-1, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Func IsChecked($controle)
Return BitAND(GUICtrlRead($controle), $GUI_CHECKED) = $GUI_CHECKED
EndFunc
Func Check($controle)
GUICtrlSetState($controle, $GUI_CHECKED)
EndFunc
If FileExists(@scriptdir&"/logindata.ini") Then
If IniRead(@scriptdir&"/logindata.ini", "Logindata", "last", "") = 1 Then
GUICtrlSetData($Input1, IniRead(@scriptdir&"/logindata.ini", "Logindata", "username1", ""))
GUICtrlSetData($Input2, IniRead(@scriptdir&"/logindata.ini", "Logindata", "password1", ""))
Check($Radio1)
else
GUICtrlSetData($Input1, IniRead(@scriptdir&"/logindata.ini", "Logindata", "username2", ""))
GUICtrlSetData($Input2, IniRead(@scriptdir&"/logindata.ini", "Logindata", "password2", ""))
Check($Radio2)
endif
EndIf
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
LoginProcess(GUICtrlRead($Input1), GUICtrlRead($Input2))
EndSwitch
Switch $nMsg
Case $Radio1
GUICtrlSetData($Input1, IniRead(@scriptdir&"/logindata.ini", "Logindata", "username1", ""))
GUICtrlSetData($Input2, IniRead(@scriptdir&"/logindata.ini", "Logindata", "password1", ""))
Case $Radio2
GUICtrlSetData($Input1, IniRead(@scriptdir&"/logindata.ini", "Logindata", "username2", ""))
GUICtrlSetData($Input2, IniRead(@scriptdir&"/logindata.ini", "Logindata", "password2", ""))
EndSwitch
WEnd
Func LoginProcess($user, $pass)
If IsChecked($Radio1) = true Then
$RadioUsed = "1"
IniWrite(@scriptdir&"/logindata.ini", "Logindata", "username1", $user)
IniWrite(@scriptdir&"/logindata.ini", "Logindata", "password1", $pass)
Else
$RadioUsed = "2"
IniWrite(@scriptdir&"/logindata.ini", "Logindata", "username2", $user)
IniWrite(@scriptdir&"/logindata.ini", "Logindata", "password2", $pass)
Endif
IniWrite(@scriptdir&"/logindata.ini", "Logindata", "last", $RadioUsed)
$sURL = "https://www.aeriagames.com/dialog/oauth?response_type=code&client_id=a354ab1d0894ba2ecaac12bf5ad86fd905373a07f&redirect_uri=https://www.aeriagames.com/content_only_launcher&theme=api_ignite"
_IENavigate($oIE, $sURL)
$oForm = _IEFormGetCollection($oIE, 0)
$oUsername = _IEFormElementGetObjByName($oForm, "edit[id]")
$oPassword = _IEFormElementGetObjByName($oForm, "edit[pass]")
_IEFormElementSetValue($oUsername, $user)
_IEFormElementSetValue($oPassword, $pass)
_IEFormSubmit($oForm, 0)
_IELoadWait($oIE)
If _IEPropertyGet($oIE, "innertext") == "." Then
$code = _IEPropertyGet($oIE, "locationurl")
$code = StringTrimLeft($code, StringInStr($code, "code=")+4)
Run('"S4Client.exe" -rc:eu -lac:fre -auth_server_ip:83.220.134.84 -aeria_acc_code:'&$code)
Exit
Else
MsgBox(48, "Erreur", "Mauvais mot de passe ou Pseudo!")
EndIf
EndFunc
Attachments
Last edited: