Question

vb自动填表网页中的textarea无法填写

最近在搞一个自动填表的软件，但是textarea无法输入，分配焦点时无法分配给输入框，textarea是一个整体的控件，求高人正解，或者给出vb2008下输入什么代码相当于按下了键盘的Tab键，就是焦点自动移动到下一个制表位。在线等高人

Answer 1

我自己在2009年也做了一个类似的软件，感觉效果还可以，是用的TAB键实现的。

追问

关键是我不会用TAB键，高手可以给点代码吗？？或者给点思路，我用send keys无法在webbrowers上移动焦点

追答

我也是用的TAB和SENDKEYS，你要先将焦点放入开始的那个TEXT中，开始发送时要将本窗口最小化或隐藏，每发送一个数据要SLEEP一段时间（时间可以自己调整），发送完后再将窗口显示出来。
但这种做法偶尔会出来问题，如本来该是A的数据发到B中去了，与计算机的性能及你的SLEEP时间设置有一定关系。

追问

我现在无法声明sendkey，你能给点代码吗？？谢谢了借鉴一下

追答

SENDKEYS是不用声明的，是VB自带的函数啊。
我找一下代码，你HI我，这里有语句字数限制，无法给你传。
哦，可以。
Private Sub cmdPaste_Click()
On Error Resume Next
Dim i As Integer
Dim j As Integer
Dim s1 As String
Dim iSleep As Integer
Me.WindowState = 1 '.Hide
Sleep Val(Me.txtDelay.Text) '100
DoEvents
'For i = 0 To Me.Text1.UBound
For i = lStartPos To Me.Text1.UBound
If Me.Check1(i).Value = 1 Then
If InStr(1, Me.Check1(i).Caption, "日期") > 0 Or InStr(1, Me.Check1(i).Caption, "值") > 0 Then
iSleep = Val(Me.txtDelay.Text)
Else
iSleep = Val(Me.txtDelay.Text) / 2
End If

If i < Me.Text1.UBound - 1 Then
SendKeys "{ENTER}" '再发送个回车键，如果有对话框自己处理掉
DoEvents
Sleep iSleep
End If

s1 = ""
s1 = Trim(Me.Text1(i).Text)
SendKeys s1
DoEvents
Sleep iSleep

'If i < Me.Text1.UBound Then
SendKeys "{TAB}"
DoEvents
Sleep iSleep
'End If
Else
End If
Next i
'SendKeys "{ENTER}" '再发送个回车键，如果有对话框自己处理掉

'SendKeys "{TAB}" '再走一步
Me.WindowState = 0 '.Visible = True
End Sub