1.Исходник не мой,я только подправил кое-что.
Собственно столкнулся с проблемой,бот не делает ничего в игре,от есть все проверки работают,а ничего не происходит.Проверял вот этим исходником,собственно и его можно править:
Собственно столкнулся с проблемой,бот не делает ничего в игре,от есть все проверки работают,а ничего не происходит.Проверял вот этим исходником,собственно и его можно править:
Код:
; -30 ширина верхушки в окне эту велечину нужно отнимать по вертикали
Opt("PixelCoordMode", 2) ; Определяем пиксили от верхнего левого угла окна
Opt("MouseCoordMode",2) ; Определяем положение курсора от левого верхнего угла окна
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$WoT = GUICreate("WoTBoT v.0.6.5", 395, 265, 192, 124)
$Client = GUICtrlCreateGroup("", 8, 20, 185, 129)
$AutoRelog = GUICtrlCreateCheckbox("Авто вход в игру", 16, 34, 169, 17)
$ChangTank = GUICtrlCreateCheckbox("Поиск свободного танка", 16, 50, 169, 25)
$SortLabel = GUICtrlCreateLabel("В каком порядке выбирать танк", 16, 74, 169, 17)
$SortTank = GUICtrlCreateInput("", 16, 115, 169, 21)
$Label2 = GUICtrlCreateLabel("( 1,2,3 )", 75, 90, 100, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Label8 = GUICtrlCreateLabel("= = Управление чатом = =", 220, 8, 153, 17)
GUICtrlSetColor(-1, 0xFF0000)
$Group2 = GUICtrlCreateGroup("", 200, 20, 185, 129)
$Checkbox3 = GUICtrlCreateCheckbox("Вкл/Выкл", 208, 34, 145, 17)
$Label3 = GUICtrlCreateLabel("Сообщение", 208, 54, 62, 17)
$Input = GUICtrlCreateInput("", 208, 74, 168, 63)
GUICtrlCreateGroup("", -99, -99, 1, 1)
;$SaveSet = GUICtrlCreateButton("Сохранить настройки", 208, 144, 129, 25, $WS_GROUP)
$StartBot = GUICtrlCreateButton("Запуск", 130, 164, 129, 25, $WS_GROUP)
$Label4 = GUICtrlCreateLabel(" Для работы бота вам необходимо запустить игру в оконом режиме", 15, 200, 353, 17)
$Label5 = GUICtrlCreateLabel("и выставить разрешение 1024х768", 105, 220, 182, 17)
$Label6 = GUICtrlCreateLabel("В противном случае бот не запустится!", 95, 240, 212, 17)
GUICtrlSetColor(-1, 0xFF0000)
$Label7 = GUICtrlCreateLabel("= = Управление клиентом = =", 25, 8, 153, 17)
GUICtrlSetColor(-1, 0xFF0000)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
; попытка сохранять параметры в Ini
;Case $SaveSet
; $ARState = GUICtrlRead($AutoRelog)
; $CTState = GUICtrlRead($ChangTank)
; $STState = GUICtrlRead($SortTank)
; If $ARState = 1 Then
; IniWrite("Bot.ini", "ClConfig", "AutoRelogin", 1)
; Else
; IniWrite("Bot.ini", "ClConfig", "AutoRelogin", 0)
; EndIf
; If $CTState = 1 Then
; IniWrite("Bot.ini", "ClConfig", "ChangeTank", 1)
; Else
; IniWrite("Bot.ini", "ClConfig", "ChangeTank", 0)
; EndIf
; IniWrite("Bot.ini", "ClConfig", "SortTank", $STState)
; запуск бота
Case $StartBot
; активируем окно игры
WinActivate("[TITLE:W.o.T. Client]","")
While 1
Select
; Проверяем активно ли окно игры
Case WinActive("[TITLE:W.o.T. Client]","") = 0
MsgBox(0,"Сообщение","Окно игры не активно, бот остановлен")
ExitLoop
; Если окно активно,проверяем залогинен ли клиент
Case PixelGetColor(1000,20) = 0x000000
; Если логин не совершен, совершаем его
Sleep(3000)
MouseClick("",512,540,2)
; Проверяем что мы в ангаре
Case PixelGetColor(516,94) = 0x080000
; Начинаем выбор танка
Case Not WinActive("[TITLE:W.o.T. Client]","") = 0
; Проверяем 1 слот
If PixelGetColor(461,40) = 0xB02022 Then
Sleep(3000)
MouseClick("",180,657,5)
Sleep(3000)
MouseClick("",511,46,5)
; Проверяем 2 слот
ElseIf PixelGetColor(461,40) = 0xB02022 Then
Sleep(3000)
MouseClick("",348,657,5)
Sleep(3000)
MouseClick("",511,46,5)
; Проверяем 3 слот
ElseIf PixelGetColor(461,40) = 0xB02022 Then
Sleep(3000)
MouseClick("",511,657,5)
Sleep(3000)
MouseClick("",511,46,5)
; Проверяем 4 слот
ElseIf PixelGetColor(461,40) = 0xB02022 Then
Sleep(3000)
MouseClick("",679,657,5)
Sleep(3000)
MouseClick("",511,46,5)
EndIf
; Параметры боя
Case Not WinActive("[TITLE:W.o.T. Client]","") = 0
PixelSearch(0,0,1013, 609,0x1B190D,100)
If @error=0 Then
MsgBox(0,"1","")
Sleep(3000)
Send("{R 2}")
EndIf
; Если танк убит выходим из боя
Case Not WinActive("[TITLE:W.o.T. Client]","") = 0
PixelSearch(0,0,222, 628,0x0E0C07,100)
If @error=0 Then
MsgBox(0,"2","")
Sleep(1500)
Send("{ESC}")
MouseClick("",715, 437,5)
Send("{LEFT}")
Send("{ENTER}")
EndIf
EndSelect
WEnd
EndSwitch
WEnd