Цвета , авто-кликер.

[wnc]

Все точки заранее известны .

[wnc]

Всё , пока проблем нет!)

[wnc]

Всё , пока проблем нет!)

[wnc]

Код:

Код: Выделить всё

HotKeySet("{ESC}", "ExitPro")
HotKeySet("{F1}", "Terminate")
While 1
    MsgBox(64, "Программу запущена", "Успех")
Sleep(90000)
WEnd
Func Terminate()
    MsgBox(64, "Hi", "Жмиии!")
While 1
$aPos = MouseGetPos()
;Точки проверки
$var = PixelGetColor( 1097, 423 )
$var1 = PixelGetColor( 1181, 415 )
If $var = 0x8E2727 AND $var1= 0x335E25 Then 
    MouseClick("left", 1149, 891, 1)
Elseif $var = 0x8E2727 OR $var1= 0x335E25 Then
     MouseClick("left", 786, 908, 1) 
EndIf
WEnd
 EndFunc
 Func ExitPro()
	MsgBox(64, "Программа выключена", "Успешно выполнено")
Exit 0
EndFunc

Если совпадает первый цвет но не совпадает второй , то MouseClick("left", 1149, 891, 1)срабатывает.

Если не совпадает первый цвет то MouseClick("left", 1149, 891, 1) не срабатывает.

Если совпадает и первый , и второй цвет то MouseClick("left", 786, 908, 1) срабатывает.



Вопрос: почему если совпадает первый цвет но не совпадает второй то MouseClick("left", 1149, 891, 1) срабатывает, а если не совпадает первый то MouseClick("left", 1149, 891, 1) не срабатывает.

Как решить эту проблему?

[wnc]

Цитата wnc:



Как сделать кнопки ?

Цвета , авто-кликер.

уточните вопрос

[wnc]

Графические кнопки вызывающие функционал, возможно-ли это?

[wnc]

Графические кнопки вызывающие функционал, возможно-ли это?

[wnc]

можно, вот пример





Код:

Код: Выделить всё

#include 
#include 
#NoTrayIcon 
Local $Button1, $msg, $Gui
$Gui=GUICreate("Test Button")
Opt("GUICoordMode", 2)
$Button1 = GUICtrlCreateButton("Test", 10, 20, 120)
GUICtrlSetBkColor(-1, 0x0)
GUICtrlSetColor(-1, 0xFFFFFF)
GUISetState()
While 1
    $msg = GUIGetMsg()
    Switch $msg
        Case $GUI_EVENT_CLOSE
            ExitLoop
        Case $Button1
            OKPressed()
    EndSwitch
WEnd
Func OKPressed()
 MsgBox(4096,"", "Ok pressed")
EndFunc

[wnc]

А как сделать поиск цвета по части экрана , не знаю как правильно сформулировать но думаю выразился более менее понятно ))

Вот из этого кода.



Код:

Код: Выделить всё

HotKeySet("{ESC}", "ExitPro")
HotKeySet("{F1}", "Terminate")
While 1
    MsgBox(64, "Программу запущена", "Успех")
Sleep(90000)
WEnd
Func Terminate()
    MsgBox(64, "Включено", "ее!")
While 1
$aPos = MouseGetPos()
;Точки проверки
$var = PixelGetColor( 1097, 423 )
$var1 = PixelGetColor( 1181, 415 )
;x y
If $var = 0x8E2727 AND $var1= 0x335E25 Then 
    MouseClick("left", 1149, 891, 1)
Elseif $var = 0x8E2727 Or $var1= 0x335E25 Then
     MouseClick("left", 786, 908, 1) 
EndIf
WEnd
 EndFunc
 Func ExitPro()
	MsgBox(64, "Программа выключена", "Успешно выполнено")
Exit 0
EndFunc

Сделайте пожалуйста код на 2кнопки , а то у меня не получается написать вторую.. А так я сразу пойму )

Я делаю , а оно получается так что вторая не работает..

[ferget]

две кнопки





Код:

Код: Выделить всё

Local $Button1, $Button2, $msg, $Gui
.............................................................
Opt("GUICoordMode", 2)
$Button1 = GUICtrlCreateButton("Test", 10, 20, 120)
$Button2 = GUICtrlCreateButton("кнопка", -1, 0)
GUISetState()
While 1
    $msg = GUIGetMsg()
    Switch $msg
        Case $GUI_EVENT_CLOSE
            ExitLoop
        Case $Button1
			;что-то делаем
	Case $Button_2
                        ;что-то делаем
    EndSwitch
WEnd

а для поиска по части экрана PixelSearch





Код:

Код: Выделить всё

PixelSearch( 0, 0, 20, 300, 0xE0E1E4 )
If Not @error Then
    MouseClick("left", 539, 47, 1)
EndIf