Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Аватара для Creat0R

Must AutoIt


Сообщения: 3054
Благодарности: 1009

Профиль | Сайт | Отправить PM | Цитировать


Я кстати вот такое использую для получения цвета (и да, аналогов есть море):

Код: Выделить весь код
#NoTrayIcon
#include <Misc.au3>
;

If _IsPressed("10") Then ColorToClip()

Choose_Color()

Func Choose_Color()
    Local $Hwnd = WinGetHandle("")
    Local $Var = _ChooseColor(2, Default, Default, $Hwnd)
    If Not @error Then ClipPut($Var)
EndFunc

Func ColorToClip()
    While _IsPressed("10")
        Sleep(10)
    WEnd

    $PosArr = MouseGetPos()
    $Var = "0x" & Hex(PixelGetColor($PosArr[0], $PosArr[1]), 6)

    ClipPut($Var)

    Exit
EndFunc
Тут если зажать и удерживать Shift перед запуском скрипта, то можно получить цвет под курсором (после отпускания Shift'а).

-------
“Сделай так просто, как возможно, но не проще этого.”... “Ты никогда не решишь проблему, если будешь думать так же, как те, кто её создал.”

Альберт Эйнштейн

P.S «Не оказываю техподдержку через ПМ/ICQ, и по email - для этого есть форум. ©»

http://creator-lab.ucoz.ru/Images/Icons/autoit_icon.png Русское сообщество AutoIt | http://creator-lab.ucoz.ru/Images/Ic...eator_icon.png CreatoR's Lab | http://creator-lab.ucoz.ru/Images/Icons/oac_icon.png Opera AC Community

Это сообщение посчитали полезным следующие участники:

Отправлено: 00:00, 28-06-2009 | #5