易语言SendInput源码

系统结构:模拟键盘_,模拟鼠标移动_,模拟鼠标单击_,SendUnicode,SendAnsi,SendKeyS,取变量地址_字节集型_,指针到短整数_,字节集到短整数_,AnsiToUnicode,模拟键盘动作_,模拟鼠标动作_,VkKeyScanW,GetKeyState,RtlInitAnsiString,RtlFreeUnicodeString,RtlAnsiStringToUnicodeString,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |
======窗口程序集1
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ 模拟键盘_
           |  |
           |  |------ _按钮1_放开某键
           |  |
           |  |------ 模拟鼠标移动_
           |  |
           |  |------ _窗口1_创建完毕
           |  |
           |  |------ 模拟鼠标单击_
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |------ _按钮3_被单击
           |  |
           |  |------ SendUnicode
           |  |
           |  |------ SendAnsi
           |  |
           |  |------ SendKeyS
           |  |
           |  |------ 取变量地址_字节集型_
           |  |
           |  |------ 指针到短整数_
           |  |
           |  |------ 字节集到短整数_
           |  |
           |  |------ AnsiToUnicode
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   模拟键盘动作_
           |  |
           |  |---[dll]------   模拟鼠标动作_
           |  |
           |  |---[dll]------   VkKeyScanW
           |  |
           |  |---[dll]------   GetKeyState
           |  |
           |  |---[dll]------   RtlInitAnsiString
           |  |
           |  |---[dll]------   RtlFreeUnicodeString
           |  |
           |  |---[dll]------   RtlAnsiStringToUnicodeString

调用的DLL命令:

.DLL命令 模拟键盘动作_, 整数型, "user32.dll", "SendInput", , 返回值:函数返回被成功地插人键盘或鼠标输入流中的事件的数目。若要获得更多的错误信息，可以调用GetlastError函数,备注：Sendlnput函数将INPUT结构中的事件顺序地插入键盘或鼠标的输入流中。这些事件与用户插入的（用鼠标或键盘）或调用keybd_event，mouse_event，或另外的Sendlnput插人的键盘或鼠标的输入流不兼容
    .参数 nlnprts, 整数型, , 定义plnputs指向的结构的数目
    .参数 plnputs, KeyINPUT, 数组, 指向INPUT结构数组的指针。每个结构代表插人到键盘或鼠标输入流中的一个事件
    .参数 大小, 整数型, , 定义INPUT结构的大小。若cbSize不是INPUT结构的大小，则函数调用失败

.DLL命令 模拟鼠标动作_, 整数型, "user32.dll", "SendInput", , 返回值:函数返回被成功地插人键盘或鼠标输入流中的事件的数目。若要获得更多的错误信息，可以调用GetlastError函数,备注：Sendlnput函数将INPUT结构中的事件顺序地插入键盘或鼠标的输入流中。这些事件与用户插入的（用鼠标或键盘）或调用keybd_event，mouse_event，或另外的Sendlnput插人的键盘或鼠标的输入流不兼容
    .参数 nlnprts, 整数型, , 定义plnputs指向的结构的数目
    .参数 plnputs, MouseINPUT, 数组, 指向INPUT结构数组的指针。每个结构代表插人到键盘或鼠标输入流中的一个事件
    .参数 大小, 整数型, , 定义INPUT结构的大小。若cbSize不是INPUT结构的大小，则函数调用失败

.DLL命令 VkKeyScanW, 短整数型, "user32.dll", "VkKeyScanW"
    .参数 ch, 短整数型

.DLL命令 GetKeyState, 整数型, "user32.dll", "GetKeyState"
    .参数 键代码, 整数型

.DLL命令 RtlInitAnsiString, , "ntdll.dll", "RtlInitAnsiString"
    .参数 DestinationString, ANSI_STRING, 传址
    .参数 SourceString, 文本型, 传址

.DLL命令 RtlFreeUnicodeString, , "ntdll.dll", "RtlFreeUnicodeString"
    .参数 UnicodeString, UNICODE_STRING, 传址

.DLL命令 RtlAnsiStringToUnicodeString, 整数型, "ntdll.dll", "RtlAnsiStringToUnicodeString"
    .参数 DestinationString, UNICODE_STRING, 传址
    .参数 SourceString, ANSI_STRING, 传址
    .参数 AllocateDestinationString, 逻辑型