Добавлена тема оформления "Clickermann" для кода с подсветкой синтаксиса. Выбирается из выпадающего списка "Код" (рядом с "цвет", "размер" и "шрифт") в режиме редактирования поста. Либо просто BB-тегом "code=clickermann"
0 Members and 4 Guests are viewing this topic.
Скорее всего проблема в 64 битной винде, привязывайся в ручную.
Кликер сворачивается штатными средствами, скажем так. Я вообще практически руку к этому механизму не прикладывал.Кстати, напоминаю, что в конфиге есть параметр only_tray, если его обнулить то кликер останется на таскбаре в любом своем состоянии
не доверяю я всяким "калякам" в виде EXE-файла.
У меня тут куча предложений. Стоит ли описывать? Так мешают жить некоторые вещи..., а некоторых не хватает. Особенно вспомагательных функций при создании скриптов.
#include <WindowsConstants.au3>#include <WinAPIEx.au3>HotKeySet("{F1}", "Pause")HotKeySet("{F2}", "Quit")Global $draw = True, $stage = 0, $Select, $Lab, $x1, $y1Global $trans = 150 ; прозрачность 192Global $color1 = 0x0000FF ; перекрестиеGlobal $color2 = 0xFF0000 ; выделение$sPath_ini = @ScriptDir & "\coord.ini"$pos = MouseGetPos() ; получить текущие координыты указателя мыши$Horz = GUICreate("", @DesktopWidth, 1, 0, $pos[1], $WS_POPUP, BitOR($WS_EX_TOPMOST, $WS_EX_TOOLWINDOW))GUISetBkColor($color1)WinSetTrans($Horz, '', $trans)GUISetState(@SW_SHOWNOACTIVATE)$Vert = GUICreate("", 1, @DesktopHeight, $pos[0], 0, $WS_POPUP, BitOR($WS_EX_TOPMOST, $WS_EX_TOOLWINDOW))GUISetBkColor($color1)WinSetTrans($Vert, '', $trans)GUISetState(@SW_SHOWNOACTIVATE)$Select = GUICreate("", 1, 1, $x1, $y1, $WS_POPUP, BitOR($WS_EX_TOPMOST, $WS_EX_TOOLWINDOW))GUISetBkColor($color2)WinSetTrans($Select, '', 50);~ $Lab = GUICtrlCreateLabel('', $x1+1, $y1+1, 0, 0) ; фон;~ GUICtrlSetBkColor(-1, 0xFF0000);~ WinSetTrans($Lab, '', 50)GUISetState(@SW_HIDE, $Select); паузаDo $pos = MouseGetPos() ; получить текущие координыты указателя мыши WinMove($Horz, '', 0, $pos[1]) ;Default WinMove($Vert, '', $pos[0], 0) ;~ If $draw Then ;~ WinSetOnTop($Horz, "", 1) ;~ WinSetOnTop($Vert, "", 1) ;~ EndIf If $stage = 1 Then WinMove($Select, '', $x1, $y1, $pos[0]-$x1, $pos[1]-$y1);~ GUICtrlSetPos($Lab, $x1+1, $y1+1, $pos[0]-1, $pos[1]-1) EndIf ; проверяем нажатие If _WinAPI_GetAsyncKeyState(0x01) = True And $stage = 0 Then ; Нажата левая кнопка мыши первый раз $x1 = $pos[0] $y1 = $pos[1] $stage = 1 WinMove($Select, '', $x1, $y1, $pos[0]-$x1, $pos[1]-$y1) GUISetState(@SW_SHOWNOACTIVATE, $Select) EndIf If _WinAPI_GetAsyncKeyState(0x01) = False And $stage = 1 Then ; Отпущена левая кнопка мыши IniWrite($sPath_ini, "coord", "x1", $x1) IniWrite($sPath_ini, "coord", "y1", $y1) IniWrite($sPath_ini, "coord", "x2", $pos[0]) IniWrite($sPath_ini, "coord", "y2", $pos[1]) IniWrite($sPath_ini, "coord", "state", '1') Quit() EndIf If _WinAPI_GetAsyncKeyState(0x02) = True Then Quit() ; Нажата правая кнопка мыши - выходUntil Not Sleep(10)Func Pause() $draw = Not $draw If $draw Then GUISetState(@SW_SHOW, $Horz) GUISetState(@SW_SHOW, $Vert) GUISetState(@SW_SHOW, $Select) Else GUISetState(@SW_HIDE, $Horz) GUISetState(@SW_HIDE, $Vert) GUISetState(@SW_HIDE, $Select) EndIfEndFuncFunc Quit() ExitEndFunc;~ #include <Misc.au3>;~ If _IsPressed('01') Then ToolTip('ЛКМ' & @LF & MouseGetPos(0) & 'x' & MouseGetPos(1), 0, 0);~ If _IsPressed('02') Then ToolTip('ПКМ' & @LF & MouseGetPos(0) & 'x' & MouseGetPos(1), 0, 0)
LOAD("bot.cms")
LOGWRITE ("Load")WAIT(1)HALT
01.12.2014 11:52:07 Thread _MAIN(0) raise exception 01.12.2014 11:52:13 Access violation at address 004D2EF2 in module 'Clickermann v4.11 build 001.exe'. Write of address 0000004B
Да и чёрт с ней. Кому этот LOAD нужен. Может кто-то привести внятный пример где без него никак?
Quote from: Vint on December 01, 2014, 12:34:54 PMДа и чёрт с ней. Кому этот LOAD нужен. Может кто-то привести внятный пример где без него никак?Существует видимо клуб любителей GOTO, LOAD и конечно же INCLUDE.http://vk.com/topic-14410794_21900056?post=22511http://vk.com/topic-14410794_26211333?post=22517Там просто не мыслят жизни без LOAD.