按键精灵读取自带编辑框的内容(只有字母和数字)，然后以按键的形式，依次按出编辑框里面的内容 50
1个回答
展开全部
我帮你找了一个参考的程序
Call sendstring("这是个测试")
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
Call sendstring("这是个测试")
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
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
