Есть ли задры autohotkey.exe ?

[InFlames]

Собственно интересует есть ли шарящие в скриптах autohotkey

Спаял ИК-приемник , настроил под свой пульт WinLirc

Все кнопки пульта работают корректно

 

Интересует управление курсором мыши

Делаю это при помощи процедуры

 

  Показать содержимое

RECALL:

MouseMove, 10, 0, 0, R ;передвинуть курсор мыши на 10 единиц вправо, с максимальной скоростью

return

 

 

В итоге когда зажимаю на пульте кнопку RECALL мышь двигается, но не с очень большой скоростью, т.к. параметр DelayBetweenButtonRepeats = 200 мешает это сделать (если уменьшить 200 то появляется нежелательное повторное нажатие кнопок), если уменьшаю параметр этот то скорость более менее норм

 

Или интересуют другие способы передвижения мыши (хочу сделать на пульте аналог стрелок, так если бы они управлялись курсором мыши)

 

В оффтопе сам скрипт (брал из хелпа к autohotkey)

 

  Показать содержимое

 

; -------------------------------------------------

; CONFIGURATION SECTION: Set your preferences here.

; -------------------------------------------------

; Some remote controls repeat the signal rapidly while you're holding down

; a button. This makes it difficult to get the remote to send only a single

; signal. The following setting solves this by ignoring repeated signals

; until the specified time has passed. 200 is often a good setting.  Set it

; to 0 to disable this feature.

DelayBetweenButtonRepeats = 200

 

; Specify the path to WinLIRC, such as C:\WinLIRC\winlirc.exe

WinLIRC_Path = %A_ProgramFiles%\WinLIRC\winlirc.exe

 

; Specify WinLIRC's address and port. The most common are 127.0.0.1 (localhost) and 8765.

WinLIRC_Address = 127.0.0.1

WinLIRC_Port = 8765

 

; Do not change the following two lines. Skip them and continue below.

Gosub WinLIRC_Init

return

 

; --------------------------------------------

; ASSIGN ACTIONS TO THE BUTTONS ON YOUR REMOTE

; --------------------------------------------

; Configure your remote control's buttons below. Use WinLIRC's names

; for the buttons, which can be seen in your WinLIRC config file

; (.cf file) -- or you can press any button on your remote and the

; script will briefly display the button's name in a small window.

;

; Below are some examples. Feel free to revise or delete them to suit

; your preferences.

 

RECALL:

MouseMove, 10, 0, 0, R

return

 

 

; ----------------------------

; END OF CONFIGURATION SECTION

; ----------------------------

; Do not make changes below this point unless you want to change the core

; functionality of the script.

 

WinLIRC_Init:

OnExit, ExitSub  ; For connection cleanup purposes.

 

; Launch WinLIRC if it isn't already running:

Process, Exist, winlirc.exe

if not ErrorLevel  ; No PID for WinLIRC was found.

{

IfNotExist, %WinLIRC_Path%

{

MsgBox The file "%WinLIRC_Path%" does not exist. Please edit this script to specify its location.

ExitApp

}

Run %WinLIRC_Path%

Sleep 200  ; Give WinLIRC a little time to initialize (probably never needed, just for peace of mind).

}

 

; Connect to WinLIRC (or any type of server for that matter):

socket := ConnectToAddress(WinLIRC_Address, WinLIRC_Port)

if socket = -1  ; Connection failed (it already displayed the reason).

ExitApp

 

; Find this script's main window:

Process, Exist  ; This sets ErrorLevel to this script's PID (it's done this way to support compiled scripts).

DetectHiddenWindows On

ScriptMainWindowId := WinExist("ahk_class AutoHotkey ahk_pid " . ErrorLevel)

DetectHiddenWindows Off

 

; When the OS notifies the script that there is incoming data waiting to be received,

; the following causes a function to be launched to read the data:

NotificationMsg = 0x5555  ; An arbitrary message number, but should be greater than 0x1000.

OnMessage(NotificationMsg, "ReceiveData")

 

; Set up the connection to notify this script via message whenever new data has arrived.

; This avoids the need to poll the connection and thus cuts down on resource usage.

FD_READ = 1     ; Received when data is available to be read.

FD_CLOSE = 32   ; Received when connection has been closed.

if DllCall("Ws2_32\WSAAsyncSelect", "UInt", socket, "UInt", ScriptMainWindowId, "UInt", NotificationMsg, "Int", FD_READ|FD_CLOSE)

{

MsgBox % "WSAAsyncSelect() indicated Winsock error " . DllCall("Ws2_32\WSAGetLastError")

ExitApp

}

return

 

 

 

ConnectToAddress(IPAddress, Port)

; This can connect to most types of TCP servers, not just WinLIRC.

; Returns -1 (INVALID_SOCKET) upon failure or the socket ID upon success.

{

VarSetCapacity(wsaData, 32)  ; The struct is only about 14 in size, so 32 is conservative.

result := DllCall("Ws2_32\WSAStartup", "UShort", 0x0002, "UInt", &wsaData) ; Request Winsock 2.0 (0x0002)

; Since WSAStartup() will likely be the first Winsock function called by this script,

; check ErrorLevel to see if the OS has Winsock 2.0 available:

if ErrorLevel

{

MsgBox WSAStartup() could not be called due to error %ErrorLevel%. Winsock 2.0 or higher is required.

return -1

}

if result  ; Non-zero, which means it failed (most Winsock functions return 0 upon success).

{

MsgBox % "WSAStartup() indicated Winsock error " . DllCall("Ws2_32\WSAGetLastError")

return -1

}

 

AF_INET = 2

SOCK_STREAM = 1

IPPROTO_TCP = 6

socket := DllCall("Ws2_32\socket", "Int", AF_INET, "Int", SOCK_STREAM, "Int", IPPROTO_TCP)

if socket = -1

{

MsgBox % "socket() indicated Winsock error " . DllCall("Ws2_32\WSAGetLastError")

return -1

}

 

; Prepare for connection:

SizeOfSocketAddress = 16

VarSetCapacity(SocketAddress, SizeOfSocketAddress)

InsertInteger(2, SocketAddress, 0, AF_INET)   ; sin_family

InsertInteger(DllCall("Ws2_32\htons", "UShort", Port), SocketAddress, 2, 2)   ; sin_port

InsertInteger(DllCall("Ws2_32\inet_addr", "Str", IPAddress), SocketAddress, 4, 4)   ; sin_addr.s_addr

 

; Attempt connection:

if DllCall("Ws2_32\connect", "UInt", socket, "UInt", &SocketAddress, "Int", SizeOfSocketAddress)

{

MsgBox % "connect() indicated Winsock error " . DllCall("Ws2_32\WSAGetLastError") . ". Is WinLIRC running?"

return -1

}

return socket  ; Indicate success by returning a valid socket ID rather than -1.

}

 

 

 

ReceiveData(wParam, lParam)

; By means of OnMessage(), this function has been set up to be called automatically whenever new data

; arrives on the connection.  It reads the data from WinLIRC and takes appropriate action depending

; on the contents.

{

Critical  ; Prevents another of the same message from being discarded due to thread-already-running.

socket := wParam

ReceivedDataSize = 4096  ; Large in case a lot of data gets buffered due to delay in processing previous data.

 

VarSetCapacity(ReceivedData, ReceivedDataSize, 0)  ; 0 for last param terminates string for use with recv().

ReceivedDataLength := DllCall("Ws2_32\recv", "UInt", socket, "Str", ReceivedData, "Int", ReceivedDataSize, "Int", 0)

if ReceivedDataLength = 0  ; The connection was gracefully closed, probably due to exiting WinLIRC.

ExitApp  ; The OnExit routine will call WSACleanup() for us.

if ReceivedDataLength = -1

{

WinsockError := DllCall("Ws2_32\WSAGetLastError")

if WinsockError = 10035  ; WSAEWOULDBLOCK, which means "no more data to be read".

return 1

if WinsockError <> 10054 ; WSAECONNRESET, which happens when WinLIRC closes via system shutdown/logoff.

; Since it's an unexpected error, report it.  Also exit to avoid infinite loop.

MsgBox % "recv() indicated Winsock error " . WinsockError

ExitApp  ; The OnExit routine will call WSACleanup() for us.

}

; Otherwise, process the data received. Testing shows that it's possible to get more than one line

; at a time (even for explicitly-sent IR signals), which the following method handles properly.

; Data received from WinLIRC looks like the following example (see the WinLIRC docs for details):

; 0000000000eab154 00 NameOfButton NameOfRemote

Loop, parse, ReceivedData, `n, `r

{

if A_LoopField in ,BEGIN,SIGHUP,END  ; Ignore blank lines and WinLIRC's start-up messages.

continue

ButtonName =  ; Init to blank in case there are less than 3 fields found below.

Loop, parse, A_LoopField, %A_Space%  ; Extract the button name, which is the third field.

if A_Index = 3

ButtonName := A_LoopField

global DelayBetweenButtonRepeats  ; Declare globals to make them available to this function.

static PrevButtonName, PrevButtonTime, RepeatCount  ; These variables remember their values between calls.

if (ButtonName != PrevButtonName || A_TickCount - PrevButtonTime > DelayBetweenButtonRepeats)

{

if IsLabel(ButtonName)  ; There is a subroutine associated with this button.

Gosub %ButtonName%  ; Launch the subroutine.

else ; Since there is no associated subroutine, briefly display which button was pressed.

{

if (ButtonName == PrevButtonName)

RepeatCount += 1

else

RepeatCount = 1

SplashTextOn, 150, 20, Button from WinLIRC, %ButtonName% (%RepeatCount%)

SetTimer, SplashOff, 3000  ; This allows more signals to be processed while displaying the window.

}

PrevButtonName := ButtonName

PrevButtonTime := A_TickCount

}

}

return 1  ; Tell the program that no further processing of this message is needed.

}

 

 

 

SplashOff:

SplashTextOff

SetTimer, SplashOff, Off

return

 

 

 

InsertInteger(pInteger, ByRef pDest, pOffset = 0, pSize = 4)

; The caller must ensure that pDest has sufficient capacity.  To preserve any existing contents in pDest,

; only pSize number of bytes starting at pOffset are altered in it.

{

Loop %pSize%  ; Copy each byte in the integer into the structure as raw binary data.

DllCall("RtlFillMemory", "UInt", &pDest + pOffset + A_Index-1, "UInt", 1, "UChar", pInteger >> 8*(A_Index-1) & 0xFF)

}

 

 

 

ExitSub:  ; This subroutine is called automatically when the script exits for any reason.

; MSDN: "Any sockets open when WSACleanup is called are reset and automatically

; deallocated as if closesocket was called."

DllCall("Ws2_32\WSACleanup")

ExitApp

 

 

 

[soDOi]

[Гость raykaaaa]

  Цитата

ты ХОТЬ ЧЕ НИТЬ ТУТ ПОНЯЛ?

[RabbitJunkOo]

интересно

 

  Показать содержимое

шарю в autohotkey.exe на уровне

3::numpad7

 

[InFlames]

raykaaaa <-- почему то постоянно читаю как гайка 

[Гость raykaaaa]

  Цитата

raykaaaa <-- почему то постоянно читаю как гайка

СЛИШКОМ ЧАСТО ПУЛЬТЫ ДЕЛАЛ. ВОТ И ПОДОРВАЛ ЗРЕНИЕ

[XpoHuK]

внимание, вопрос: нахуя вы это делаете?

[Petrosan]

  Цитата

внимание, вопрос: нахуя вы это делаете?

[Гость raykaaaa]

  Цитата

внимание, вопрос: нахуя вы это делаете?

лично я бы замарочился.

У МЕНЯ БЫЛ ПЕРЕХОДНЫЙ ВОЗРАСТ, КОГДА Я ВЗЯЛ В РУКИ ПАЯЛЬНИК И К ВЕНТИЛЯТОРУ ПАЯЛ НЕОН. ПЕРЕПАИВАЛ В СИДИРОМЕ ЛАМПЫ НА БОЛЕЕ ЯРКИЕ.

ЗАТЕМ РАЗДОБЫЛ НОЖНИЦЫ ПО МЕТАЛЛУ И СДЕЛАЛ ОКОШКО В СИСТЕМНЫЙ БЛОК СВЕРХУ ЧТОБЫ СВЕТ РАЗЛИВАЛСЯ ПОД СТОЛОМ.

 

КАЖЕТСЯ ЭТО МОДДИНГОМ НАЗЫВАЕТСЯ ТЕПЕРЬ. НО В ЭТОЙ ВЕЩИ БЫЛ ОДИН МИНУС - ДЕНЕГ НА ЭТО И ВРЕМЕНИ УХОДИТ НЕМЕРЕННО

[eso.falex]

я не задрот автохоткея, но, вообще, странно, конечно.

а если увеличить значение DelayBetweenButtonRepeats до 500?

а еще в туториале про SendMode по-моему что-то написано

[XpoHuK]

ответ: это потому что вам бля нехуй делать!

[eso.falex]

  Цитата

ответ: это потому что вам бля нехуй делать!

а вот тебе есть хуй что делать - бродить по форуму и спрашивать "нахуя вы это делаете?"

[XpoHuK]

  Цитата

  Цитата

ответ: это потому что вам бля нехуй делать!

а вот тебе есть хуй что делать - бродить по форуму и спрашивать "нахуя вы это делаете?"

привет

[dimkk]

  Цитата

  Цитата

ответ: это потому что вам бля нехуй делать!

а вот тебе есть хуй что делать - бродить по форуму и спрашивать "нахуя вы это делаете?"

 

За жилкина, пизды?

[InFlames]

  Цитата

  Цитата

raykaaaa <-- почему то постоянно читаю как гайка 

СЛИШКОМ ЧАСТО ПУЛЬТЫ ДЕЛАЛ. ВОТ И ПОДОРВАЛ ЗРЕНИЕ

 

не пизди гайка, в 1 раз 

з.ы. это ты на аве? симпотяшка

 

  Цитата

У МЕНЯ БЫЛ ПЕРЕХОДНЫЙ ВОЗРАСТ, КОГДА Я ВЗЯЛ В РУКИ ПАЯЛЬНИК И К ВЕНТИЛЯТОРУ ПАЯЛ НЕОН. ПЕРЕПАИВАЛ В СИДИРОМЕ ЛАМПЫ НА БОЛЕЕ ЯРКИЕ.

ЗАТЕМ РАЗДОБЫЛ НОЖНИЦЫ ПО МЕТАЛЛУ И СДЕЛАЛ ОКОШКО В СИСТЕМНЫЙ БЛОК СВЕРХУ ЧТОБЫ СВЕТ РАЗЛИВАЛСЯ ПОД СТОЛОМ.

ты правда такой милашка да еще и мастер на все руки 

 

 

  Цитата

внимание, вопрос: нахуя вы это делаете?

думаю пульт штука полезная, если нет то выкини свой пульт от телека и двд

 

  Цитата

я не задрот автохоткея, но, вообще, странно, конечно.

а если увеличить значение DelayBetweenButtonRepeats до 500?

а еще в туториале про SendMode по-моему что-то написано

это время между повторными нажатиями кнопок, увеличение до 500 приведет к меньшему быстродействию, так что не вариант

[XpoHuK]

нет пульта у дивиди-плеера, нет самого дивиди-плеера, не смотрю телевизор, а когда смотрю - не переключаю его

[InFlames]

поэтому и не понимаешь нахуя все это

[XpoHuK]

нет

[dimkk]

  Цитата

нет пульта у дивиди-плеера, нет самого дивиди-плеера, не смотрю телевизор, а когда смотрю - не переключаю его

 

ХАВАЕШЬ ЧЁ ДАЮТ ДА?

[1010]

нет телика в комнате где я живу