[Программа] [AutoIt] анти-AFK Bot фоновом режиме

[Limonliker]

анти-АФК бот фоновом режиме, так что вы можете сделать что-то еще, когда Aion сведено к минимуму. Это просто нажать "P" каждые 10 сек. Это Работы по полноэкранным и оконным режиме. Проверено на Win XP x84, Win Vista x64, Win 7 x64.

;~ **************************************************
;~ Aion Anti-AFK Background Mode
;~ Ver 1.0 10/1/2009
;~
;~ Author: DarKMaKa
;~
;~ For ***************
;~ **************************************************
HotKeySet("{Pause}", "TogglePause")
HotKeySet("{ESC}", "Terminate")

Глобальная $ приостановлена ​​, $ WinTitle = 'AION клиента 
TogglePause ()

 
	  
			    
				
			    
				
	
		 AION! " ,  "Не удается найти AION окно!" & @ CRLF & "Запустите игру, прежде чем анти-АФК". & @ CRLF & "" & @ CRLF & "Бот будет близко." ,  "" ,  "" ) 
		Exit 
	EndIf 
Wend

Func  TogglePause () 
    $ Приостановлено = НЕ $ Приостановлена
     ​​В то время как $ Приостановлена
        сон ( 100 ) 
        ToolTip ( "Анти-АФК приостановлена ​​(пауза = Включить - Esc = выход) ' , 0 , 0 ) 
    Wend 
    ToolTip ( "" ) 
ENDFUNC

Func  Terminate () 
    Exit  0 
ENDFUNC

[Ссылки могут видеть только зарегистрированные пользователи. ]

[Ссылки могут видеть только зарегистрированные пользователи. ]

пароль - zhyk.ru

[mars2107]

Что за бред, даже открывать опасно.

Откуда утащил то хоть, переведено ужасно

[talala]

Скорее всего вот так будет полнее и правильней. Хотя не факт, что будет работать.

;~ **************************************************
;~ Aion Anti-AFK Background Mode
;~ Ver 1.0 10/1/2009
;~
;~ Author: DarKMaKa
;~
;~ For ***************
;~ **************************************************
HotKeySet("{Pause}", "TogglePause")
HotKeySet("{ESC}", "Terminate")

Global $Paused, $WinTitle ='AION Client'
TogglePause()

While 1
	If WinExists($WinTitle) Then
			ControlSend($WinTitle, "", "", "p", 1)
				Sleep(1000)
			ControlSend($WinTitle, "", "", "p", 1)
				Sleep(10000)
	Else
		MsgBox(0, "No AION!!", "Can't find AION Window!"&@CRLF&"Launch the game before the anti-AFK."&@CRLF&""&@CRLF&"Bot will close now.", "", "")
		Exit
	EndIf
WEnd

Func TogglePause()
    $Paused = NOT $Paused
    While $Paused
        sleep(100)
        ToolTip('Anti-AFK Paused! (Pause = Enable - Esc = Exit)',0,0)
    WEnd
    ToolTip("")
EndFunc

Func Terminate()
    Exit 0
EndFunc

Может все таки пора, что нить самому сделать?

[flash02142010]

Цитата: Сообщение от talala Скорее всего вот так будет полнее и правильней. Хотя не факт, что будет работать. Код: ;~ ************************************************** ;~ Aion Anti-AFK Background Mode ;~ Ver 1.0 10/1/2009 ;~ ;~ Author: DarKMaKa ;~ ;~ For *************** ;~ ************************************************** HotKeySet("{Pause}", "TogglePause") HotKeySet("{ESC}", "Terminate") Global $Paused, $WinTitle ='AION Client' TogglePause() While 1 If WinExists($WinTitle) Then ControlSend($WinTitle, "", "", "p", 1) Sleep(1000) ControlSend($WinTitle, "", "", "p", 1) Sleep(10000) Else MsgBox(0, "No AION!!", "Can't find AION Window!"&@CRLF&"Launch the game before the anti-AFK."&@CRLF&""&@CRLF&"Bot will close now.", "", "") Exit EndIf WEnd Func TogglePause() $Paused = NOT $Paused While $Paused sleep(100) ToolTip('Anti-AFK Paused! (Pause = Enable - Esc = Exit)',0,0) WEnd ToolTip("") EndFunc Func Terminate() Exit 0 EndFunc Может все таки пора, что нить самому сделать?

Что с этим делать надо?)

[Tr0y]

Цитата: Сообщение от Krolik8626 Объясните плиз что с этим делать? Спасибо)

скрипт жмет в неактивное окно кнопку англ."P", дефакто это кликер обычный, который каждые 10 сек жмет на P.

На этом кликере можно и поинтереснее скрипты и проги писать.