I didn't write this. I'm new. It's copied from another forum post, and I had it lying around in a script. I've tried it and it works. SendInputU(2211) inserts a capital Sigma. I'm to lazy to look up the post for proper attribution, but I think that it's one of the AHK gods.
Code:
EncodeInteger( p_value, p_size, p_address, p_offset )
{
loop, %p_size%
DllCall( "RtlFillMemory"
, "uint", p_address+p_offset+A_Index-1
, "uint", 1
, "uchar", ( p_value >> ( 8*( A_Index-1 ) ) ) & 0xFF )
}
SendInputU( p_text )
{
StringLen, len, p_text
INPUT_size = 28
event_count := ( len//4 )*2
VarSetCapacity( events, INPUT_size*event_count, 0 )
loop, % event_count//2
{
StringMid, code, p_text, ( A_Index-1 )*4+1, 4
base := ( ( A_Index-1 )*2 )*INPUT_size+4
EncodeInteger( 1, 4, &events, base-4 )
EncodeInteger( "0x" code, 2, &events, base+2 )
EncodeInteger( 4, 4, &events, base+4 ) ; KEYEVENTF_UNICODE
base += INPUT_size
EncodeInteger( 1, 4, &events, base-4 )
EncodeInteger( "0x" code, 2, &events, base+2 )
EncodeInteger( 2|4, 4, &events, base+4 ) ; KEYEVENTF_KEYUP|KEYEVENTF_UNICODE
}
result := DllCall( "SendInput", "uint", event_count, "uint", &events, "int", INPUT_size )
if ( ErrorLevel or result < event_count )
{
MsgBox, [SendInput] failed: EL = %ErrorLevel% ~ %result% of %event_count%
return, false
}
return, true
}
Login
Register
FAQ
Search
