模拟输入字符区别大小写特殊字符

祁辛 · 发表于 2016-11-29 21:12:26

问答区有人需要这样的
就写了个

发出来供大家参考

窗口程序集名	保留	保留	备注
窗口程序集_窗口1

子程序名	返回值类型	公开	备注
_按钮_开始投递_被单击

变量名	类型	静态	数组	备注
hwnd

hwnd ＝ FindWindowA (“Notepad”, “测试文本.txt - 记事本”)

如果真 (0 ＝ hwnd)

输出调试文本 (“句柄不能为空”)

返回 ()

独立线程 (hwnd, 编辑框_投递的文本.内容, 199, -36)

子程序名	返回值类型	公开	备注
独立线程
参数名	类型	参考	可空	数组	备注
hwnd	整数型
inputdata	文本型
x	整数型
y	整数型

如果真 (hwnd ＝ 0 或取文本长度 (inputdata) ≤ 0)

返回 ()

如果真 (模拟鼠标单击 (hwnd, x, y))

模拟投递文本 (inputdata, hwnd)

子程序名	返回值类型	公开	备注
模拟投递文本
参数名	类型	参考	可空	数组	备注
inputdata	文本型				要输入的内容
hwnd

变量名	类型	静态	数组	备注
stringlength	整数型			字符串长度
i	整数型
ascii	整数型
tmphwnd
bscan	整数型
state	整数型

stringlength ＝取文本长度 (inputdata)

计次循环首 (stringlength, i)

ascii ＝取代码 (inputdata, i)

处理事件 ()

tmphwnd ＝ GetForegroundWindow ()

如果真 (tmphwnd ≠ hwnd)

SwitchToThisWindow (hwnd, 1)

延时 (50)

判断 (ascii ≥ 取代码 (“a”, ) 且 ascii ≤ 取代码 (“z”, ))

state ＝ GetKeyState (20)

如果真 (state ＝ 1)

keybd_event (20, 0, 0, 0)

keybd_event (20, 0, 2, 0)

keybd_event (ascii － 32, 0, 0, 0)

延时 (50)

keybd_event (ascii － 32, 0, 2, 0)

判断 (ascii ≥ 取代码 (“A”, ) 且 ascii ≤ 取代码 (“Z”, ))

state ＝ GetKeyState (20)

如果真 (state ≠ 1)

keybd_event (20, 0, 0, 0)

keybd_event (20, 0, 2, 0)

keybd_event (ascii, 0, 0, 0)

延时 (50)

keybd_event (ascii, 0, 2, 0)

判断 (ascii ＝ 33) ' !

keybd_event (16, 0, 0, 0)

keybd_event (49, 0, 0, 0)

延时 (50)

keybd_event (49, 0, 2, 0)

keybd_event (16, 0, 2, 0)

判断 (ascii ＝ 35) ' #

keybd_event (16, 0, 0, 0)

keybd_event (51, 0, 0, 0)

keybd_event (51, 0, 2, 0)

keybd_event (16, 0, 2, 0)

判断 (ascii ＝ 36) ' $

keybd_event (16, 0, 0, 0)

keybd_event (52, 0, 0, 0)

keybd_event (52, 0, 2, 0)

keybd_event (16, 0, 2, 0)

判断 (ascii ＝ 37) ' %

keybd_event (16, 0, 0, 0)

keybd_event (53, 0, 0, 0)

keybd_event (53, 0, 2, 0)

keybd_event (16, 0, 2, 0)

判断 (ascii ＝ 38) ' &

keybd_event (16, 0, 0, 0)

keybd_event (55, 0, 0, 0)

keybd_event (55, 0, 2, 0)

keybd_event (16, 0, 2, 0)

判断 (ascii ＝ 94) ' ^

keybd_event (16, 0, 0, 0)

keybd_event (54, 0, 0, 0)

keybd_event (54, 0, 2, 0)

keybd_event (16, 0, 2, 0)

判断 (ascii ＝ 42) ' *

keybd_event (16, 0, 0, 0)

keybd_event (56, 0, 0, 0)

keybd_event (56, 0, 2, 0)

keybd_event (16, 0, 2, 0)

判断 (ascii ＝ 40) ' (

keybd_event (16, 0, 0, 0)

keybd_event (57, 0, 0, 0)

keybd_event (57, 0, 2, 0)

keybd_event (16, 0, 2, 0)

判断 (ascii ＝ 41) ' )

keybd_event (16, 0, 0, 0)

keybd_event (48, 0, 0, 0)

keybd_event (48, 0, 2, 0)

keybd_event (16, 0, 2, 0)

判断 (ascii ＝ 64) ' @

keybd_event (16, 0, 0, 0)

keybd_event (50, 0, 0, 0)

keybd_event (50, 0, 2, 0)

keybd_event (16, 0, 2, 0)

keybd_event (ascii, 0, 0, 0)

延时 (50)

keybd_event (ascii, 0, 2, 0)

' bscan ＝ MapVirtualKeyA (ascii, 0)

' keybd_event (16, 0, 0, 0)

' keybd_event (ascii － 32, 0, 0, 0)

' 延时 (50)

' keybd_event (ascii － 32, 0, 2, 0)

' keybd_event (16, 0, 2, 0)

延时 (50)

编辑框1.加入文本 (“按下键盘： ” ＋到文本 (ascii) ＋ #换行符 )

计次循环尾 ()

子程序名	返回值类型	公开	备注
模拟鼠标单击	逻辑型
参数名	类型	参考	可空	数组	备注
hwnd	整数型				窗口句柄
X	整数型				X轴坐标
Y	整数型				Y轴坐标

变量名	类型	静态	数组	备注
屏幕坐标	RECT

如果真 (GetWindowRect (hwnd, 屏幕坐标) ≠ 真)

返回 (假)

如果真 (API_SetCursorPos (屏幕坐标.left ＋ X, 屏幕坐标.top ＋ Y) ≠ 0)

mouse_event ( #MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)

延时 (50)

mouse_event ( #MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)

返回 (真)
返回 (假)

.版本 2<br />
<br />
.程序集 窗口程序集_窗口1<br />
<br />
.子程序 _按钮_开始投递_被单击<br />
.局部变量 hwnd<br />
<br />
hwnd ＝ FindWindowA (“Notepad”, “测试文本.txt - 记事本”)<br />
.如果真 (0 ＝ hwnd)<br />
    输出调试文本 (“句柄不能为空”)<br />
    返回 ()<br />
.如果真结束<br />
<br />
独立线程 (hwnd, 编辑框_投递的文本.内容, 199, -36)<br />
<br />
.子程序 独立线程<br />
.参数 hwnd, 整数型<br />
.参数 inputdata, 文本型<br />
.参数 x, 整数型<br />
.参数 y, 整数型<br />
<br />
.如果真 (hwnd ＝ 0 或 取文本长度 (inputdata) ≤ 0)<br />
    返回 ()<br />
.如果真结束<br />
.如果真 (模拟鼠标单击 (hwnd, x, y))<br />
    模拟投递文本 (inputdata, hwnd)<br />
.如果真结束<br />
<br />
<br />
.子程序 模拟投递文本<br />
.参数 inputdata, 文本型, , 要输入的内容<br />
.参数 hwnd<br />
.局部变量 stringlength, 整数型, , , 字符串长度<br />
.局部变量 i, 整数型<br />
.局部变量 ascii, 整数型<br />
.局部变量 tmphwnd<br />
.局部变量 bscan, 整数型<br />
.局部变量 state, 整数型<br />
<br />
stringlength ＝ 取文本长度 (inputdata)<br />
.计次循环首 (stringlength, i)<br />
    ascii ＝ 取代码 (inputdata, i)<br />
    处理事件 ()<br />
    tmphwnd ＝ GetForegroundWindow ()<br />
    .如果真 (tmphwnd ≠ hwnd)<br />
        SwitchToThisWindow (hwnd, 1)<br />
    .如果真结束<br />
    延时 (50)<br />
    .判断开始 (ascii ≥ 取代码 (“a”, ) 且 ascii ≤ 取代码 (“z”, ))<br />
        state ＝ GetKeyState (20)<br />
        .如果真 (state ＝ 1)<br />
            keybd_event (20, 0, 0, 0)<br />
            keybd_event (20, 0, 2, 0)<br />
        .如果真结束<br />
        keybd_event (ascii － 32, 0, 0, 0)<br />
        延时 (50)<br />
        keybd_event (ascii － 32, 0, 2, 0)<br />
    .判断 (ascii ≥ 取代码 (“A”, ) 且 ascii ≤ 取代码 (“Z”, ))<br />
        state ＝ GetKeyState (20)<br />
        .如果真 (state ≠ 1)<br />
            keybd_event (20, 0, 0, 0)<br />
            keybd_event (20, 0, 2, 0)<br />
        .如果真结束<br />
        keybd_event (ascii, 0, 0, 0)<br />
        延时 (50)<br />
        keybd_event (ascii, 0, 2, 0)<br />
    .判断 (ascii ＝ 33)  ' !<br />
        keybd_event (16, 0, 0, 0)<br />
        keybd_event (49, 0, 0, 0)<br />
        延时 (50)<br />
        keybd_event (49, 0, 2, 0)<br />
        keybd_event (16, 0, 2, 0)<br />
    .默认<br />
        .判断开始 (ascii ＝ 35)  ' #<br />
            keybd_event (16, 0, 0, 0)<br />
            keybd_event (51, 0, 0, 0)<br />
            keybd_event (51, 0, 2, 0)<br />
            keybd_event (16, 0, 2, 0)<br />
        .判断 (ascii ＝ 36)  ' $<br />
            keybd_event (16, 0, 0, 0)<br />
            keybd_event (52, 0, 0, 0)<br />
            keybd_event (52, 0, 2, 0)<br />
            keybd_event (16, 0, 2, 0)<br />
        .判断 (ascii ＝ 37)  ' %<br />
            keybd_event (16, 0, 0, 0)<br />
            keybd_event (53, 0, 0, 0)<br />
            keybd_event (53, 0, 2, 0)<br />
            keybd_event (16, 0, 2, 0)<br />
        .判断 (ascii ＝ 38)  ' &<br />
            keybd_event (16, 0, 0, 0)<br />
            keybd_event (55, 0, 0, 0)<br />
            keybd_event (55, 0, 2, 0)<br />
            keybd_event (16, 0, 2, 0)<br />
        .判断 (ascii ＝ 94)  ' ^<br />
            keybd_event (16, 0, 0, 0)<br />
            keybd_event (54, 0, 0, 0)<br />
            keybd_event (54, 0, 2, 0)<br />
            keybd_event (16, 0, 2, 0)<br />
        .判断 (ascii ＝ 42)  ' *<br />
            keybd_event (16, 0, 0, 0)<br />
            keybd_event (56, 0, 0, 0)<br />
            keybd_event (56, 0, 2, 0)<br />
            keybd_event (16, 0, 2, 0)<br />
        .判断 (ascii ＝ 40)  ' (<br />
            keybd_event (16, 0, 0, 0)<br />
            keybd_event (57, 0, 0, 0)<br />
            keybd_event (57, 0, 2, 0)<br />
            keybd_event (16, 0, 2, 0)<br />
        .判断 (ascii ＝ 41)  ' )<br />
            keybd_event (16, 0, 0, 0)<br />
            keybd_event (48, 0, 0, 0)<br />
            keybd_event (48, 0, 2, 0)<br />
            keybd_event (16, 0, 2, 0)<br />
        .判断 (ascii ＝ 64)  ' @<br />
            keybd_event (16, 0, 0, 0)<br />
            keybd_event (50, 0, 0, 0)<br />
            keybd_event (50, 0, 2, 0)<br />
            keybd_event (16, 0, 2, 0)<br />
        .默认<br />
            keybd_event (ascii, 0, 0, 0)<br />
            延时 (50)<br />
            keybd_event (ascii, 0, 2, 0)<br />
<br />
        .判断结束<br />
<br />
    .判断结束<br />
<br />
    ' bscan ＝ MapVirtualKeyA (ascii, 0)<br />
    ' keybd_event (16, 0, 0, 0)<br />
    ' keybd_event (ascii － 32, 0, 0, 0)<br />
    ' 延时 (50)<br />
    ' keybd_event (ascii － 32, 0, 2, 0)<br />
    ' keybd_event (16, 0, 2, 0)<br />
    延时 (50)<br />
    编辑框1.加入文本 (“按下键盘：  ” ＋ 到文本 (ascii) ＋ #换行符)<br />
.计次循环尾 ()<br />
<br />
.子程序 模拟鼠标单击, 逻辑型<br />
.参数 hwnd, 整数型, , 窗口句柄<br />
.参数 X, 整数型, , X轴坐标<br />
.参数 Y, 整数型, , Y轴坐标<br />
.局部变量 屏幕坐标, RECT<br />
<br />
.如果真 (GetWindowRect (hwnd, 屏幕坐标) ≠ 真)<br />
    返回 (假)<br />
.如果真结束<br />
.如果真 (API_SetCursorPos (屏幕坐标.left ＋ X, 屏幕坐标.top ＋ Y) ≠ 0)<br />
    mouse_event (#MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)<br />
    延时 (50)<br />
    mouse_event (#MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)<br />
    返回 (真)<br />
.如果真结束<br />
返回 (假)

模拟输入.zip (91.73 KB, 下载次数: 127)