Question

问一个vb中sendkeys的问题!

请问一下这个代码要怎么写.
新建一个text1.
在text1中输入thanks
点击按钮后按顺序自动按 thanks 几个键.
输入 +-*/
点击后自动 按 +-*/

Answer 1

()[]~%^&={}+
以上字符都是有特殊含义的，输出时要加个"{}"
就是说：
要按"("，代码就是sendkeys "{(}"，其他以此类推。
所以，你要写的代码我可以给你一部分：
dim s as string, illstr as string, c as string
dim i as integer
illstr = "()[]~%^&={}+"

for i = 1 to len(s)
c = mid(s, i, 1)
if instr(1, illstr, c) <> 0 then
sendkeys "{"+c+"}"
else
sendkeys c
end if
next i
其中，你要按的键放在s字串中，循环的作用是剥离每个字符，看是否为特殊字符，不是就直接输出，否则放括号里