首页 > 站长日志 > 按键精灵把目标字符串拆分成一个一个的逐个输入
2020
10-24

按键精灵把目标字符串拆分成一个一个的逐个输入

txt = "这是个测试"

Call sendstring(txt)

Sub sendstring(str)
Dim i, j, t
For i = 1 To len(str)
t = asc(mid(str, i, 1)) + 65536
KeyDown 18,1
For j = 1 To len(t)
KeyPress "Num " & mid(t, j, 1), 1
Next
KeyUp 18,1
Next
End Sub

找了好久终于找到这方法。因为速度降下来了,比SayString更真实。厉害!

最后编辑:
作者:苏苏
头像
网赚信息网站长苏苏,90后一枚,虚度互联网数载,网站建设,淘宝,网络营销,主机域名,空间人气等都有所涉猎。欢迎交流。QQ:599561857 站长交流Q群:208907234
捐 赠广交天下英雄豪杰~~支付宝:fuyouchangsheng@126.com

留下一个回复