Register for your free account! | Forgot your password?

You last visited: Today at 21:36

  • Please register to post and access all features, it's quick, easy and FREE!

Advertisement



[How-To] AutoLogin mit AutoIt

Discussion on [How-To] AutoLogin mit AutoIt within the S4 League Hacks, Bots, Cheats & Exploits forum part of the S4 League category.

Reply
 
Old   #1
 
elite*gold: 0
Join Date: Jul 2009
Posts: 2,241
Received Thanks: 848
[How-To] AutoLogin mit AutoIt

Es existiert zwar schon ein Thread, aber der ist so grottig, naja^^

Was braucht ihr?
-Grundkenntnisse AutoIt
-Lesebrille

Als erstes erläutere ich mal die Funktionen ---
-Eingabe des PW/der ID
-Speichern des PW/der ID/des Pfades
-Suchen des Pfades über die Registry
-Starten von S4
-Einloggen
-Automatisches Laden bei jedem Start


Als 1. bauen wir das Grundgerüst:
Code:
#RequireAdmin

Global $i = 0
$input1 = InputBox("ID","Bitte gib deine ID ein")
$input2 = InputBox("PW","Bitte gib dein PW ein")

Exit
Global $i = 0 brauchen wir später... Nummer 1 kann abgehakt werden.

Jetzt wollen wir die beiden Werte der InputBox speichern:
Code:
IniWrite("config.ini","ID","ID",$input1)
IniWrite("config.ini","PW","PW",$input2)
Jetzt suchen wir nach dem Pfad:
Code:
While True
    $i +=1
    $keyname = RegEnumKey("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\", $i)
    If @error Then ExitLoop

    $result = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\" & $keyname, "DisplayName")
    If $result = "S4 League_EU" Then
        $s4path = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\" & $keyname, "InstallLocation")
        ExitLoop
    EndIf
WEnd
Manche werden jetzt aus den Augen bluten xD
Der Code sucht die Registry nach der Installation von S4 ab und gibt den Pfad unter $s4path an (Danke an FichteFoll... der hat mir das vor ner ganzen Weile gezeigt).

Was kommt jetzt? Schnell noch den Pad speichern:
Code:
IniWrite("config.ini","Pafd","Pfad",$s4path)
Nun wollen wir mal den Patcher starten lassen:
Code:
$read1 = IniRead("config.ini","Pfad","Pfad","")
ShellExecute($read1 & "\patcher_s4.exe", "", $read1)
Jetzt schreiben wir noch die restlichen Befehle für den Login:
Code:
Opt("PixelCoordMode",0)
$read2 = IniRead("config.ini","ID","ID","")
$read3 = IniRead("config.ini","PW","PW","")
WinWait("S4 League Game Launcher")
ControlClick("S4 League Game Launcher", "", "[CLASS:Button; INSTANCE:2]")
WinWait("S4 Client")
$get1 = WinGetHandle("S4 Client")
Do
	$pixel=PixelSearch(0, 0, @DesktopWidth, @DesktopHeight, 0x3C4757,"","",$get1)
Until Isarray($pixel)
Send($read2 & "{TAB}" & $read3 & "{ENTER}")
Fügen wir mal unseren bisherigen Code zusammen:
#RequireAdmin
Code:
Global $i = 0
$input1 = InputBox("ID","Bitte gib deine ID ein")
$input2 = InputBox("PW","Bitte gib dein PW ein")

IniWrite("config.ini","ID","ID",$input1)
IniWrite("config.ini","PW","PW",$input2)

While True
    $i +=1
    $keyname = RegEnumKey("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\", $i)
    If @error Then ExitLoop

    $result = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\" & $keyname, "DisplayName")
    If $result = "S4 League_EU" Then
        $s4path = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\" & $keyname, "InstallLocation")
        ExitLoop
    EndIf
WEnd

IniWrite("config.ini","Pfad","Pfad",$s4path)

$read1 = IniRead("config.ini","Pfad","Pfad","")
$read2 = IniRead("config.ini","ID","ID","")
$read3 = IniRead("config.ini","PW","PW","")

ShellExecute($read1 & "\patcher_s4.exe", "", $read1)
WinWait("S4 League Game Launcher")
ControlClick("S4 League Game Launcher", "", "[CLASS:Button; INSTANCE:2]")
WinWait("S4 Client")
$get1 = WinGetHandle("S4 Client")
Opt("PixelCoordMode",0)
Do
	$pixel=PixelSearch(0, 0, @DesktopWidth, @DesktopHeight, 0x3C4757,"","",$get1)
Until Isarray($pixel)
Send($read2 & "{TAB}" & $read3 & "{ENTER}")

Exit
Schön und gut, aber uns fehlt noch Punkt 6... Das lösen wir durch If:
Code:
If FileExists("config.ini") = False Then
...
EndIf
Das wars schon... jetzt bauen wir alles zusammen:
Code:
#RequireAdmin

Global $i = 0

If FileExists("config.ini") = False Then
	$input1 = InputBox("ID","Bitte gib deine ID ein")
	$input2 = InputBox("PW","Bitte gib dein PW ein")

	IniWrite("config.ini","ID","ID",$input1)
	IniWrite("config.ini","PW","PW",$input2)

	While True
		$i +=1
		$keyname = RegEnumKey("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\", $i)
		If @error Then ExitLoop

		$result = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\" & $keyname, "DisplayName")
		If $result = "S4 League_EU" Then
			$s4path = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\" & $keyname, "InstallLocation")
			ExitLoop
		EndIf
	WEnd

	IniWrite("config.ini","Pfad","Pfad",$s4path)

EndIf

$read1 = IniRead("config.ini","Pfad","Pfad","")
$read2 = IniRead("config.ini","ID","ID","")
$read3 = IniRead("config.ini","PW","PW","")

ShellExecute($read1 & "\patcher_s4.exe", "", $read1)
WinWait("S4 League Game Launcher")
ControlClick("S4 League Game Launcher", "", "[CLASS:Button; INSTANCE:2]")
WinWait("S4 Client")
$get1 = WinGetHandle("S4 Client")
Opt("PixelCoordMode",0)
Do
	$pixel=PixelSearch(0, 0, @DesktopWidth, @DesktopHeight, 0x3C4757,"","",$get1)
Until Isarray($pixel)
Send($read2 & "{TAB}" & $read3 & "{ENTER}")

Exit
So Fehler können und sollen autreten ;D
mipez is offline  
Thanks
5 Users
Old 07/01/2010, 14:15   #2
 
toanito's Avatar
 
elite*gold: 0
Join Date: May 2010
Posts: 190
Received Thanks: 680
Nicht noch einer xD
wir hatten doch grad erst ein Tut über Autologin
toanito is offline  
Old 07/01/2010, 14:18   #3
 
elite*gold: 0
Join Date: Jul 2009
Posts: 2,241
Received Thanks: 848
Quote:
Originally Posted by toanito View Post
Nicht noch einer xD
wir hatten doch grad erst ein Tut über Autologin
1. Zeile lesen >_>
mipez is offline  
Old 07/01/2010, 14:41   #4
 
Kaisame's Avatar
 
elite*gold: 0
Join Date: May 2009
Posts: 739
Received Thanks: 278
Kann ich nur zu stimmen... ist natürlich viel besser o.O
... noch ein kleiner "Schönheitsfehler" im 4. Code..
du hast "Pafd" statt "Pfad geschrieben ^^
Kaisame is offline  
Old 07/01/2010, 14:44   #5
 
toanito's Avatar
 
elite*gold: 0
Join Date: May 2010
Posts: 190
Received Thanks: 680
Jetzt gibts schon den ersten streit xD
Soll ich ein AutoLogin-Bot herausbringen? Einfach laden Name+PW eingeben und der macht alles automatisch xD
toanito is offline  
Old 07/01/2010, 15:03   #6
 
Blacklotos's Avatar
 
elite*gold: 0
Join Date: Feb 2008
Posts: 178
Received Thanks: 134
Nettes TuT. Aber so ein einfach Auto Login Bot is ja nich schwer...

=> Das TuT ist 100x besser als das von Fussel
Blacklotos is offline  
Old 07/01/2010, 15:13   #7
 
elite*gold: 0
Join Date: Jan 2008
Posts: 539
Received Thanks: 46
Mal ne Frage:

Wollte das mit ConTrolClick auch selbst rausfinden, jedoch wenn ich mit dem Windows Info tool einen Button anvisiere, kommt keine Info,

also ich meine das in Rot:
Code:
ControlClick("S4 League Game Launcher", "", "[COLOR="Red"][CLASS:Button; INSTANCE:2][/COLOR]")
Wie hast du des rausgefunden?
iXDe is offline  
Old 07/01/2010, 16:22   #8
 
elite*gold: 0
Join Date: Jul 2009
Posts: 2,241
Received Thanks: 848
Quote:
Originally Posted by iXDe View Post
Mal ne Frage:

Wollte das mit ConTrolClick auch selbst rausfinden, jedoch wenn ich mit dem Windows Info tool einen Button anvisiere, kommt keine Info,

also ich meine das in Rot:
Code:
ControlClick("S4 League Game Launcher", "", "[COLOR="Red"][CLASS:Button; INSTANCE:2][/COLOR]")
Wie hast du des rausgefunden?
Klick mit dem Finder Tool auf den Button und dann im Prog auf Summary^^
Findest den Eintrag unter Advanced Class.

Und ich hab schon 2 verschiedene LoginBots geschrieben (einer alleine, einer mit Fichte's Hilfe)... einfach mal in die Sig oder die SuFu gucken^^

Und was kümmern mich Schönheitsfehler? xD
Ich benutzes nich und n bissl Hirn sollte man verwenden^^
mipez is offline  
Old 07/01/2010, 17:07   #9
 
elite*gold: 0
Join Date: Jan 2008
Posts: 539
Received Thanks: 46
Bei mir steht in der Info nix, also alles leer...
iXDe is offline  
Old 07/01/2010, 17:22   #10
 
ero-Z's Avatar
 
elite*gold: 0
Join Date: Dec 2009
Posts: 469
Received Thanks: 1,341
Nice tutorial

Next time, in English. Gj.
ero-Z is offline  
Old 07/02/2010, 14:39   #11

 
FichteFoll's Avatar
 
elite*gold: 237
Join Date: Sep 2008
Posts: 4,476
Received Thanks: 4,587
Joa, ist ganz nett geworden. Vielleicht könntest du aber mal das hier
Quote:
Jetzt schreiben wir noch die restlichen Befehle für den Login:
besser erklären, weil ja schon ne Menge in dem Stück passiert.

Und vielleicht noch ändern, dass der user den Pfad selber eingeben soll, falls er in der Registry nicht gefunden wurde... und andere Fehlermeldungen
FichteFoll is offline  
Old 07/02/2010, 20:22   #12
 
elite*gold: 0
Join Date: Jul 2009
Posts: 2,241
Received Thanks: 848
Wird gemacht Chef xD
mipez is offline  
Old 07/02/2010, 23:26   #13
 
elite*gold: 0
Join Date: Sep 2009
Posts: 445
Received Thanks: 286
Nice!
Schönes TUT
Ich mag Autologins;D
Banana.Crafts is offline  
Reply


Similar Threads Similar Threads
[Autologin] Simple autoit script
06/29/2009 - SRO Hacks, Bots, Cheats & Exploits - 44 Replies
Hey,the captcha system is out . So the ecsro minimised autologin script works on iSro too,now :) Source: Global $Paused $hWnd = WinGetHandle ("SRO_Client") HotKeySet ("{F10}","Start") HotKeySet ("{F9}","Pause")
Autoit: Autologin + Bot
04/19/2009 - Cabal Online - 27 Replies
Hey When i have time, I make these scripts for 1024x768. Ive maked some Scripts, it work with: -m_ragg gameguard bypass -Screen size 1024x768 (window mode) and full screened -Cheat Engine 5.3 -If you have the "Disconnected before World loadet" error, the relogin script will auto restart cheat engine and set speed to: 18 and sleep time to 1 (perfekt settings)
AutoIt Autologin
01/16/2009 - SRO Private Server - 3 Replies
So i am making my first autoit script so far i got run("silkroad.exe Location") sleep(2000) WinActivate("Silkroad Online Launcher") WinWaitActive("Silkroad Online Launcher") sleep(2000) MouseClick("left", 923, 459) sleep(6000) MouseClick("left", 1080, 669)



All times are GMT +2. The time now is 21:36.


Powered by vBulletin®
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.
This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.

Support | Contact Us | FAQ | Advertising | Privacy Policy | Terms of Service | Abuse
Copyright ©2024 elitepvpers All Rights Reserved.