Каюсь. Но, справедливости ради, о нём можно было узнать ещё несколькими постами ранее, а также в конце этой страницы.
И что тебе помешало? Давай уж до конца кайся, облегчи душу. 
А чем отличается MoveMemory от CopyMemory? Я так понял, что movememory может копировать между перекрывающимися блоками. Она затирает за собой память источника, или просто использует промежуточный буфер?
Видимо, разница именно в этом. MoveMemory именно копирует, источник она специально не затирает. Если блоки перекрываются и запись должна затирать места, которые ещё не прочитаны, она просто меняет направление копирования на обратное, т.е. копирует с конца к началу. Буфер не используется.
]]>From:= "abcdefgh"
To:="1234567890"
DllCall("msvcrt\memcpy"
, "Str", To
, "Str", From
, "Uint", 5
, "Cdecl")
msgbox % "DllResult: " ToЕщё можно использовать RtlMoveMemory:
From:= "abcdefgh"
To:="1234567890"
DllCall("RtlMoveMemory"
, "Str", To
, "Str", From
, "Uint", 5)
msgbox % "DllResult: " To From:= "abcdefgh"
To:="1234567890"
DllCall("CopyMemory"
, UintP, To
, UintP, From
, Uint, 5)
msgbox % "DllResult: " To ;И фиг - нет изменений, "1234567890"
ExitAppНу уж если совсем извращаться, то можно и невидимый контрол на форме.
Тоже вариант, но все равно придется использовать "PostMessage" для передачи скрипту момента изменения контрола.
]]>Еще вариант - использовать буфер обмена.
передающий скрипт:
clipboard = 123456принимающий скрипт:
OnClipboardChange:
MsgBox, %clipboard%
return
Ну уж если совсем извращаться, то можно и невидимый контрол на форме.
]]>передающий скрипт:
clipboard = 123456
принимающий скрипт:
OnClipboardChange:
MsgBox, %clipboard%
return
И что тебе помешало? Давай уж до конца кайся, облегчи душу.
Каюсь. Но, справедливости ради, о нём можно было узнать ещё несколькими постами ранее, а также в конце этой страницы.]]>А зачем? В Windows для обмена данными уже существует сообщение WM_COPYDATA.
А ты давно о нём узнал-то? Судя по #5, недавно. Ну а я только что — от тебя.
]]>Можно, например, зарегистрировать в обоих скриптах оконное сообщение...
А зачем? В Windows для обмена данными уже существует сообщение WM_COPYDATA.
]]>Передающий скрипт:
Data =
(
Я теперь скупее стал в желаньях,
Жизнь моя, иль ты приснилась мне?
Словно я весенней гулкой ранью
Проскакал на розовом коне.
)
WinTitle := "Окно №1" ; Заголовок целевого окна.
PID := DllCall("GetCurrentProcessId")
MsgPID := DllCall("RegisterWindowMessage", "Str", "MsgPID")
MsgData := DllCall("RegisterWindowMessage", "Str", "MsgData")
F11:: ; Посылать по нажатию F11.
hWnd := WinExist(WinTitle)
If not hWnd {
MsgBox, Не найдено окно:`n%WinTitle%.
Return
}
wParam := PID
lParam := 0 ; Сюда тоже что-нибудь можно положить.
PostMessage, MsgPID, wParam, lParam,, ahk_id %hWnd% ; Посылаем PID.
wParam := &Data
lParam := StrLen(Data) + 1 ; Учитываем нулевой байт в конце строки.
PostMessage, MsgData, wParam, lParam,, ahk_id %hWnd% ; Адрес данных и размер.
ReturnПринимающий скрипт:
WinTitle := "Окно №1"
MsgPID := DllCall("RegisterWindowMessage", "Str", "MsgPID")
MsgData := DllCall("RegisterWindowMessage", "Str", "MsgData")
OnMessage(MsgPID, "GetPID") ; Регистрация функций для обработки сообщений.
OnMessage(MsgData, "GetData")
Gui, Show, w400 h300, %WinTitle%
Return
GetPID(wParam, lParam, uMsg, hWnd)
{
Global PID := wParam
}
GetData(wParam, lParam, uMsg, hWnd)
{
Global PID
ReadAddress := wParam ; Адрес, откуда читать.
ReadSize := lParam ; Сколько байт считывать.
VarSetCapacity(Buf, ReadSize, 0) ; Буфер, куда считывать.
PROCESS_VM_READ := 0x10 ; Права на процесс.
hProcess := DllCall("OpenProcess", UInt, PROCESS_VM_READ
, Int, False
, UInt, PID)
If(!hProcess) {
MsgBox, Не удалось открыть процесс.
Return
}
Ret := DllCall("ReadProcessMemory", UInt, hProcess
, UInt, ReadAddress
, UInt, &Buf
, UInt, ReadSize
, UInt, 0)
DllCall("CloseHandle", UInt, hProcess) ; Освобождение хэндла процесса.
If(!Ret) {
MsgBox, Не удалось прочитать.
Return
}
VarSetCapacity(Buf, -1) ; Обновление размера переменной, поскольку запись в неё
; произошла со стороны и AutoHotkey об этом не знает.
MsgBox, %Buf%
}
GuiClose:
ExitApp