键盘发送文字ASCII 纯文本源码

斗战胜猴 · 发表于 2025-6-12 11:26:23

键盘发送文字ASCII 跟键盘发送文字有所不同简化了许多

子程序名	返回值类型	公开	备注
键盘发送文字ASCII
参数名	类型	参考	可空	数组	备注
文本文字	文本型

变量名	类型	静态	数组	备注
uCode	短整数型
局_消息	键盘型		2
wstr	字节集
len	整数型
i	整数型
wcode	字节集

wstr ＝文本到UTF16 (文本文字)
len ＝取字节集长度 (wstr) ÷ 2 － 1
' len ＝ Str2Len (文本文字)
' wstr ＝编码_Ansi到Unicode (文本文字)
' len ＝ lstrlenW_字节集 (wstr)
wcode ＝ { 0, 0 }

变量循环首 (0, len － 1, 1, i)

wcode [1] ＝ wstr [i × 2 ＋ 1]

wcode [2] ＝ wstr [i × 2 ＋ 2]

uCode ＝取字节集数据 (wcode, #短整数型, )

局_消息 [1].扫码＝ uCode

局_消息 [1].动作＝ 4

局_消息 [1].类型＝ 1

局_消息 [2].扫码＝ uCode

局_消息 [2].动作＝ 6

局_消息 [2].类型＝ 1

SendInput_键盘型数组 (2, 局_消息, 28)

变量循环尾 ()

数据类型名	公开	备注
键盘型		SendInput
成员名	类型	传址	数组	备注
类型	整数型			DWORD type 传1
键码	短整数型			虚拟键码
扫码	短整数型			扫描码
动作	整数型			DWORD dwFlags 0=按下,2=放开 #KEYEVENTF_
时间	整数型			DWORD time 取启动时间
信息	整数型			DWORD dwExtraInfo GetMessageExtraInfo
保留	整数型		2

DLL命令名	返回值类型	公开	备注
SendInput_键盘型数组	整数型		键盘输入返回被成功地插人输入流中的事件数目。若要获得更多的错误信息，可以调用GetlastError函数
DLL库文件名:
user32.dll
在DLL库中对应命令名:
SendInput
参数名	类型	传址	数组	备注
参_组数	整数型			定义plnputs指向的结构的数目。
参_输入	键盘型
参_长度	整数型			结构长度

.版本 2<br />
<br />
.子程序 键盘发送文字ASCII, , 公开<br />
.参数 文本文字, 文本型<br />
.局部变量 uCode, 短整数型<br />
.局部变量 局_消息, 键盘型, , "2"<br />
.局部变量 wstr, 字节集<br />
.局部变量 len, 整数型<br />
.局部变量 i, 整数型<br />
.局部变量 wcode, 字节集<br />
<br />
wstr ＝ 文本到UTF16 (文本文字)<br />
len ＝ 取字节集长度 (wstr) ÷ 2 － 1<br />
' len ＝ Str2Len (文本文字)<br />
' wstr ＝ 编码_Ansi到Unicode (文本文字)<br />
' len ＝ lstrlenW_字节集 (wstr)<br />
wcode ＝ { 0, 0 }<br />
.变量循环首 (0, len － 1, 1, i)<br />
    wcode [1] ＝ wstr [i × 2 ＋ 1]<br />
    wcode [2] ＝ wstr [i × 2 ＋ 2]<br />
    uCode ＝ 取字节集数据 (wcode, #短整数型, )<br />
    局_消息 [1].扫码 ＝ uCode<br />
    局_消息 [1].动作 ＝ 4<br />
    局_消息 [1].类型 ＝ 1<br />
    局_消息 [2].扫码 ＝ uCode<br />
    局_消息 [2].动作 ＝ 6<br />
    局_消息 [2].类型 ＝ 1<br />
    SendInput_键盘型数组 (2, 局_消息, 28)<br />
.变量循环尾 ()<br />
.版本 2<br />
<br />
.数据类型 键盘型, 公开, SendInput <br />
    .成员 类型, 整数型, , , DWORD type 传1<br />
    .成员 键码, 短整数型, , , 虚拟键码<br />
    .成员 扫码, 短整数型, , , 扫描码<br />
    .成员 动作, 整数型, , , DWORD dwFlags 0=按下,2=放开 #KEYEVENTF_<br />
    .成员 时间, 整数型, , , DWORD time 取启动时间<br />
    .成员 信息, 整数型, , , DWORD dwExtraInfo GetMessageExtraInfo<br />
    .成员 保留, 整数型, , "2"<br />
.版本 2<br />
<br />
.DLL命令 SendInput_键盘型数组, 整数型, "user32.dll", "SendInput", , 键盘输入 返回被成功地插人输入流中的事件数目。若要获得更多的错误信息，可以调用GetlastError函数<br />
    .参数 参_组数, 整数型, , 定义plnputs指向的结构的数目。<br />
    .参数 参_输入, 键盘型, 传址 数组<br />
    .参数 参_长度, 整数型, , 结构长度