2 programme starten...

nuiko

Hi, bin neu hier und ich brauche kurtze Hilfe, ich will 2 programme hintereinander starten,
so siehts bei mir aus...

Code

Case	$Msg = 	$GuiLoginButton
            	$SRoadPath = IniRead ("SRO_autologin.ini", "Settings", "SRoadPath", "")
            	$SRoadExe = IniRead ("SRO_autologin.ini", "Settings", "SRoadExe", "")
            	$Restart = 1
            	SetConsole("Login script started.")
        	While 1
				SetConsole("(Re)Starting SilkraodCaptcha.")  	#das ist das erste programm#
        	If 	$Restart = 1     	Then
            	Run ($CRoadPath & "\" & $CRoadExe)
            	$Restart = 0

			Do
				SetConsole("(Re)Starting SilkRoad online.")  	#das ist das zweite programm#
        	If 	$Restart = 1     	Then
            	Run ($SRoadPath & "\" & $SRoadExe)
            	$Restart = 0
        	EndIf


        	Do
               	Sleep(1000)
        	Until	WinActive ($SRoadLauncher)
            	SetConsole("SilkRoad Launcher found.")
            	Sleep ($LDelay)
            	WinMove ($SRoadLauncher, "", 0, 0)
            	Sleep (5000)
              	MouseClick ("Left", 590, 355, 1, 0)


        	Do
               	Sleep (5000)	
        	Until 	WinActive ($SRoadClient)
            	SetConsole("SilkRoad Client found.")
            	Sleep ($CDelay)
              	MouseClick ("Left", 756, 482, 1, 0)
            	Sleep (500)
              	MouseClick ("Left", 770, 513, 1, 0)
            	SetConsole("Sending account information.")
            	Sleep (700)
            	Send ($Password)
            	Sleep ($ADelay)
            	Send ("{TAB}")
            	Send ($Account)
            	Sleep ($PDelay)
              	MouseClick ("Left", 460, 560, 1, 0)
            	SetConsole("Starting login sequence")


        	If 	PixelGetCOlor (626, 334) = 0 	Then
        	Do
            	Sleep (10000)
            	Send ("{Enter}")
        	Until 	PixelGetCOlor (626, 334) <> 0
            	Sleep (2000)
            	Send ("{Enter}")
            	Sleep ($RDelay)


        	If 	WinExists ($SRoadClient) = 1 	Then
            	SetConsole("GL HF , you got in;]")
            	ExitLoop
        	Else
            	$Restart = 1
            	SetConsole("Disconnected ,restarting.")
            	ContinueLoop
        	EndIf
        	EndIf    	
        	Wend
	EndSelect
WEnd

Alles anzeigen

kann mir da einer Helfen?

Danke schon mal

**funkey**

Wenn nicht die Funktion SetConsole() die Variable $Restart auf 1 setzt, dann kann's nicht funktionieren, da nach dem ersten RUN der Befehl $Restart = 0 kommt.

ansonsten weiss ich nich was nicht funktionieren soll, bis auf dass dieses Skript generell komisch aussieht
Vielleicht brauchst du beim ersten Programm ein RUNWAIT?

If $Restart = 1 Then
Run ($CRoadPath & "\" & $CRoadExe)
Run ($SRoadPath & "\" & $SRoadExe)
EndIf

nuiko

so ok danke habs so hin bekommen,

Code

Case	$Msg = 	$GuiLoginButton
				$CRoadPath = IniRead ("SRO_autologin.ini", "Settings", "CRoadPath", "")
            	$CRoadExe = IniRead ("SRO_autologin.ini", "Settings", "CRoadExe", "")
            	$Restart = 1
				$SRoadPath = IniRead ("SRO_autologin.ini", "Settings", "SRoadPath", "")
            	$SRoadExe = IniRead ("SRO_autologin.ini", "Settings", "SRoadExe", "")
            	$Restart = 1
            	SetConsole("Login script started.")
			While 1
            	SetConsole("(Re)Starting SilkRoad online.")
        	If 	$Restart = 1     	Then
            	Run ($CRoadPath & "\" & $CRoadExe)      	# 1 programm #
				Run ($SRoadPath & "\" & $SRoadExe)      	# 2 programm #
            	$Restart = 0
        	EndIf


        	Do
               	Sleep(1000)
        	Until	WinActive ($SRoadLauncher)
            	SetConsole("SilkRoad Launcher found.")
            	Sleep ($LDelay)
            	WinMove ($SRoadLauncher, "", 0, 0)
            	Sleep (5000)
              	MouseClick ("Left", 590, 355, 1, 0)


        	Do
               	Sleep (5000)	
        	Until 	WinActive ($SRoadClient)
            	SetConsole("SilkRoad Client found.")
            	Sleep ($CDelay)
              	MouseClick ("Left", 756, 482, 1, 0)
            	Sleep (500)
              	MouseClick ("Left", 770, 513, 1, 0)
            	SetConsole("Sending account information.")
            	Sleep (700)
            	Send ($Password)
            	Sleep ($ADelay)
            	Send ("{TAB}")
            	Send ($Account)
            	Sleep ($PDelay)
              	MouseClick ("Left", 460, 560, 1, 0)
            	SetConsole("Starting login sequence")


        	If 	PixelGetCOlor (626, 334) = 0 	Then
        	Do
            	Sleep (10000)
            	Send ("{Enter}")
        	Until 	PixelGetCOlor (626, 334) <> 0
            	Sleep (2000)
            	Send ("{Enter}")
            	Sleep ($RDelay)


        	If 	WinExists ($SRoadClient) = 1 	Then
            	SetConsole("GL HF , you got in;]")
            	ExitLoop
        	Else
            	$Restart = 1
            	SetConsole("Disconnected ,restarting.")
            	ContinueLoop
        	EndIf
        	EndIf    	
        	Wend
	EndSelect
WEnd

Alles anzeigen

wie kann ich machen das er das 1 programm nicht mehr startet wenn das schon läuft?
oder mit welcher funktion ich komm da grade nicht klar

**funkey**

If ProcessExists(...)
oder
If WinExists(...)