Loop 256
{
If NumGet(&KeyState, A_Index, "UChar") >> 7
break
}
VarSetCapacity(KeyState, 256, 0)
Loop
{
DllCall("AttachThreadInput", Ptr, DllCall("GetWindowThreadProcessId", Ptr, WinExist("A"), UInt, 0)
, UInt, DllCall("GetCurrentThreadId"), UInt, 1)
DllCall("GetKeyboardState", Ptr, &KeyState)
press := DllCall("msvcrt\memchr", "ptr", &KeyState, "UChar", 0x80, "UInt", 256, "Cdecl UInt")
|| DllCall("msvcrt\memchr", "ptr", &KeyState, "UChar", 0x81, "UInt", 256, "Cdecl UInt") ? 1 : 0
ToolTip % press
Sleep 1
}
VarSetCapacity(match, 256, 0)
NumPut(0x80, match, 8, "UChar")
f := DllCall("msvcrt\memchr", "ptr", &match, "Int", 0x80, "Int", 256, "Cdecl UInt")
MsgBox % (f - &match) < 0 ? "not match" : "match"
VarSetCapacity(match, 256, 0x80)
VarSetCapacity(KeyState, 256, 0)но вроде в winapi это не поддерживается.
]]>
SetFormat, IntegerFast, h
VarSetCapacity(KeyState, 256, 0)
Loop
{
Tip =
ThreadID := DllCall("GetWindowThreadProcessId", Ptr, WinExist("A"), UInt, 0)
DllCall("AttachThreadInput", Ptr, ThreadID
, UInt, DllCall("GetCurrentThreadId")
, UInt, 1)
DllCall("GetKeyboardState", Ptr, &KeyState)
Loop 256
Tip .= (v := NumGet(&KeyState, A_Index, "UChar")) >> 7 ? GetKeyName("vk" A_Index) " " v " " A_Index "`n" : ""
ToolTip % Tip
Sleep 11
}
Убрал под спойлер, так как ТС вроде сам хочет разобраться.
SetFormat, IntegerFast, h
VarSetCapacity(KeyState, 256, 0)
Loop
{
Tip =
ThreadID := DllCall("GetWindowThreadProcessId", Ptr, WinExist("A"), UInt, 0)
DllCall("AttachThreadInput", Ptr, ThreadID
, UInt, DllCall("GetCurrentThreadId")
, UInt, 1)
DllCall("GetKeyboardState", Ptr, &KeyState)
Loop 256
Tip .= (v := NumGet(&KeyState, A_Index, "Char")) < 0 ? GetKeyName("vk" A_Index) " " v " " A_Index "`n" : ""
ToolTip % Tip
Sleep 11
}
#Persistent
#SingleInstance force
if not (A_IsAdmin or RegExMatch(full_command_line, " /restart(?!\S)"))
{
try
{
if A_IsCompiled
Run *RunAs "%A_ScriptFullPath%" /restart
else
Run *RunAs "%A_AhkPath%" /restart "%A_ScriptFullPath%"
}
ExitApp
}
#InstallKeybdHook
#InstallMouseHook
#UseHook
VarSetCapacity(lpKeyState, 512, 0)
loop
{
Result := DllCall("GetKeyboardState", "Ptr", &lpKeyState)
ToolTip,
(
% lpKeyState ? "Не все нули" : "Все нули"
)
}
return
В любом случае спасибо за помощь.
]]>
Если описание параметра начинается с P или с lp — это значит, что ожидается указатель, адрес какого-либо буфера в памяти. В AHK такой буфер можно создать с помощью VarSetCapacity. В DllCall это будет тип данных "Ptr":
DllCall("GetKeyboardState", "Ptr", &buff)где buff — это предварительно созданный буфер.
]]>Result := DllCall("GetKeyboardState" , "UChar", lpKeyState, "int")int потому, что
An Int should also be used for each BOOL argument expected by a function (a BOOL value should be either 1 or 0).
Char потому, что
An unsigned character (UChar) can be used with functions that expect a BYTE.
На самом деле пробовал этот вариант уже. Он не работает.
Я вижу, что мое понимание DllCall на нулевом уровне, но я хотел бы все-таки научится.
VarSetCapacity(empty, 256, 0)
VarSetCapacity(state, 256, 0)
NumPut(-128, state, 0x10 , "Char")
b := DllCall("msvcrt\memcmp", "Ptr", &empty, "Ptr", &state, "Ptr", 256)
MsgBox % b ? "Не все нули" : "Все нули"
VarSetCapacity(state, 256, 0)
NumPut(-128, state, 0x10 , "Char")
Loop % VarSetCapacity(state)
If NumGet(&state, A_Index, "Char") < 0 && (b := 1)
break
MsgBox % b ? "Не все нули" : "Все нули"
Result := DllCall("GetKeyboardState" , PBYTE, lpKeyState, "BOOL")
Говорите, прочитали документацию по DllCall, тогда что такое у вас PBYTE и BOOL? Почему одно в кавычках, другое — нет? Читайте внимательно раздел Types of Arguments and Return Values.
]]>