Question

VB输入字符

Dim s As Long
Dim t As Long
Dim r As Long

t = Len(copy_txt.Text)
MsgBox t
Tim = 5
'Tim = Tim - 1
Label6.Caption = "将在，" & Tim & " 秒后输入..."
If Tim <= 0 Then
s = 1
If s < t Then
r = Mid("copy_txt.Text", s - 1, s + 1)
MsgBox r
VBA.SendKeys r
'VBA.SendKeys Mid("copy_txt.Text", 4, 6) 截取4 6位置之间的字符
'VBA.SendKeys copy_txt.Text
Label6.Caption = "双击选择要输入的内容..."
s = s + 1
End If
Timer2.Enabled = False
End If

以上代码是一个按钮调用时间控件，一个一个将copy_txt.Text字符输入到文本中，可是输出不了，帮我看下啊，到底要怎么改啊？
是文本，比如记事本，地址栏，密码输入框之类的。

Answer 1

你的Tim已经是5，不可能满足If Tim <= 0 Then，因此在If....End If的程序不会执行。

Answer 2

txtA = copy_txt.Text
for i = 1 to len(txtA)
VBA.Sendkeys mid(txtA,i,1)
sleep(1000) '停一秒
next i

是个例子.

Answer 3

把程序 发给我
我给你检查
现在这样根本看不出来的zsq6@chinaren.com

Answer 4

将copy_txt.Text字符输入到文本中？
文本是指文件吗？

Answer 5

你的代码应该在Timer事件中，如果是1秒间隔的话，5秒倒数后应该执行sendkeys代码，但你的Tim=Tim-1被注释掉了，请问还能倒计时吗？