Also ich will einen Disconnectchecker + Autologinscript für ein Spiel schreiben .
Das mit dem Autologin hab ich soweit auch schon hinbekommen , aber nun stellt sich mir das Problem mit der Disconnectschleife
Hier mal der Code
Spoiler anzeigen
#cs ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]AutoIt Version: 3.2.6.0
Author: myName
Script Function:
Template AutoIt script.
#ce ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]; Script Start - Add your code below here
[/autoit] [autoit][/autoit] [autoit]#include <GuiConstants.au3>
[/autoit] [autoit][/autoit] [autoit]$inifile = "settings.ini"
$yourid = IniRead($inifile, "Main", "silkroadid","")
$yourpw = IniRead($inifile, "Main", "silkroadpw","")
$sleeptime = Iniread($inifile, "Main", "sleeptime", "")
GuiCreate("bUTL9R´s AutologinScript", 140, 290,-1, -1 , BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS))
$help = GUICtrlCreateMenu("&Help")
$credits = GUICtrlCreateMenuItem("Credits", $help)
$about = GUICtrlCreateMenuItem("About", $help)
GUICtrlCreateLabel("www.cheat-fabrik.de", 20, 80)
$startbutton = GUICtrlCreateButton("&Start Autologin", 30, 100)
$exitbutton = GUICtrlCreateButton("&Close Program", 30, 150)
GuiSetState(@SW_SHOW)
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
Exit
Case $msg = $startbutton
If FileExists("C:\Spiele\Silkroad\silkroad.exe") Then
Run("C:\Spiele\Silkroad\silkroad.exe")
ToolTip("Silkroad succesfully launched", "665", "429")
_Sleep()
ControlClick("Silkroad Online Launcher", "", "Button1")
ToolTip("Silkroad succesfully started", "665", "429")
If ProcessExists ("sro_client.exe") Then
_Sleep2()
EndIf
Send("i")
ToolTip("Tipping in id and password", "665", "429")
Send($yourid)
Send("{Tab}")
Send($yourpw)
Send("{Enter}")
ToolTip("Sorry , but you have to enter the Code by yourself ;(")
_Sleep3()
Else
MsgBox("", "Crtical Error", "Silkroad has to be installed in this Folder : C:\Spiele\Silkroad")
EndIf
Case $msg = $exitbutton
_Exit()
Case $msg = $about
MsgBox("", "About", "Press the |Start Autologin| Button to start" & @CRLF & @CRLF & "Press the |Close| Button to Close this program")
Case $msg = $credits
MsgBox(0, "Credits", "---------------------" & @CRLF & "mayN and bUTL9R" & @CRLF & "---------------------" & @CRLF & " ViSiT us under" & @CRLF & "www.cheat-fabrik.de")
EndSelect
WEnd
While 1 ; hier soll die Schleife anfangen
PixelSearch(376, 323, 381, 328, 0x1F1F1F, 10)
If Not @error Then
PixelSearch(397, 377, 402, 382, 0x292421, 5)
If Not @error Then
PixelSearch(480, 422, 485, 427, 0x7B6B4A, 10)
If Not @error Then
MouseMove(510, 421)
Sleep(1000)
EndIf
PixelSearch(480, 422, 485, 427, 0x9C4A31, 10)
If Not @error Then
MouseClick("Left", 510, 421) ;Closes Disconnect Box
_test()
EndIf
EndIf
EndIf
WEnd
;Funcs
Func _test()
MsgBox("", "lol", "Tested")
EndFunc
Func _Sleep3()
Sleep("30000")
EndFunc
Func _Sleep2()
Sleep("14000")
EndFunc
Func _Sleep()
Sleep("6000")
EndFunc
Func _Exit()
Exit
EndFunc