Старый 03.07.2010, 14:52     TS Старый   #14 (permalink)
sergey321
Увлечённый
 
Аватар для sergey321
 
Регистрация: 15.07.2008
Адрес: Минск
Сообщений: 586
buzzy, скорее всего будет работать, не проверял.

Добавил автологин.
Чтобы он работал нужно строку "AutoLogin = 0" заменить на "AutoLogin = 1". + ввести в клиенте логин, пароль и нажать сохранить.

Код:
; Entraction client.exe directory
ClientDir = c:\Program Files (x86)\B2BPOKER\GoPlay\

; 1 - All limits
; 2 - No limit
; 3 - Pot limit
; 4 - 1/2 pot limit
; 5 - Fixed limit
Limit = 2

; 1 - All stakes
; 2 - High stakes
; 3 - Medium stakes
; 4 - Low stakes
; 5 - Micro stakes
Stakes = 4

; 1 - All table sizes
; 2 - 10 players
; 3 - 9 players
; 4 - 8 players
; 5 - 6 players
; 6 - 2 players
Players = 5 

HideFullTables = 0
HideEmptyTables = 1
AutoLogin = 0


; ---------------------------
Run Client.exe, %ClientDir%
WinWait ahk_class l1l1.iY
WinActivate

GoPlay := 0
IfWinExist GoPlay - Lobby
{
	GoPlay := 1
}
	
	
x :=  678 - 100*GoPlay
y :=  192 + 30*GoPlay

Click %x%, %y%
y2 :=  y + 17*Limit
Click %x%, %y2%

y := y + 22
Click %x%, %y%
y2 :=  y + 17*Stakes
Click %x%, %y2%

y := y + 22
Click %x%, %y%
y2 :=  y + 17*Players
Click %x%, %y2%	
	
y := y + 19
if (HideFullTables = 1) {
	Click %x%, %y%
}

y := y + 16	
if (HideEmptyTables = 1) {
	Click %x%, %y%
}	

; --- autologin ---
if (AutoLogin = 1) 
{
	Loop, 5 
	{
		Sleep 1000
		Click 18, 37
		Click 20, 61
		
		IfWinExist, Log in
		{			
			WinActivate
			Click 204,  265
			break
		}
	}
}
sergey321 вне форума