模拟按键

stillness

遵照CPOL协议 / 转载请注明出处

  

.DocVersion 2
.Module MainWindow, , , Module
.Sub ImitateEvent, , , 模拟事件
.Arg command, String
.LocalVar asc, Integer
.LocalVar i, Integer
.LocalVar len, Integer
.LocalVar null, Integer
len = StrLen (command)
.IfTrue (len <= null)
Return ()
.if_end
.Count (len, i)
asc = Asc (StrMid (command, i, 1), )
keybd_event (asc, null, null, null)
keybd_event (asc, null, #KEYEVENTF_KEYUP, null)
.CountNext ()
.Sub _btnImitate_Click
txtCommand.SetFocus ()
ImitateEvent (txtCommand.Text)

.DocVersion 2<br /> <br /> .Module MainWindow, , , Module<br /> <br /> .Sub ImitateEvent, , , 模拟事件<br /> .Arg command, String<br /> .LocalVar asc, Integer<br /> .LocalVar i, Integer<br /> .LocalVar len, Integer<br /> .LocalVar null, Integer<br /> <br /> len = StrLen (command)<br /> .IfTrue (len <= null)<br />     Return ()<br /> .if_end<br /> .Count (len, i)<br />     asc = Asc (StrMid (command, i, 1), )<br />     keybd_event (asc, null, null, null)<br />     keybd_event (asc, null, #KEYEVENTF_KEYUP, null)<br /> .CountNext ()<br /> <br /> .Sub _btnImitate_Click<br /> <br /> txtCommand.SetFocus ()<br /> ImitateEvent (txtCommand.Text)

ImitateEvent.rar (1.26 KB, 下载次数: 44)

2014-12-25 14:08 上传

点击文件名下载附件

l0447195

谢谢楼主的分享！！

86800892

不错。。厉害。。

宇智波·佐助

下页小七 发表于 2014-12-25 19:02
建议楼主去学 C++或者 C#

C#还需要环境太恶心了

ylva1989

ylva1989 发表于 2014-12-28 15:54
能支持中文字符吗？

明白！

ylva1989

能支持中文字符吗？

1440126177

好流弊

疯人愿i

谢谢楼主的分享！！

温xun

看不懂

微安

不懂英文。

炫影

额 易语言的代码有点意思 不过还是谢谢楼主啦