For i = 1 to Len(str)
strtmp = Mid(str,i,1)
KeyPress strtmp,1
Delay 10
Next
PS：变量前后不要加双引号，不然就是字符串了
Dim str,n
str = "vrbrothers"
n = len(str)
For i = 1 To n
Dim j
j = mid(str, i, 1)
KeyPress j, 1
Delay 200
Next
for i = 0 to len(str)
keypress "mid(str,i+1,1)"
end for
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ号：24596024