高分求VB模拟按下“百度一下”的按钮

在VB6.0里，如何实现如上的问题呢？不可以使用鼠标模拟单击。

例如：

按下command1的同时就按下了“百度一下”的这个按钮进行搜索

问题也够清楚了，希望回复的都是些高质量答案。

Private Sub Command1_Click() Dim vDoc As Object Dim vTag As Object Dim j As Integer Set vDoc = WebBrowser1.Document

For j = 0 To vDoc.All.length - 1

If UCase(vDoc.All(j).tagName) = "INPUT" Then '在页面源码中找出标签input Set vTag = vDoc.All(j) If vTag.Type = "submit" And vTag.Id = "sb" Then '对比标签 的属性及ID 如果是 则执行CLICK vTag.Click End If End If Next j '备注-百度的【百度一下】ID是sb ，属性是submit End Sub

Private Sub Form_Load() WebBrowser1.Navigate " http://www.baidu.com" End Sub