选择后没效果

lzgucdos

Private Declare Sub Sleep Lib "Kernel32" (ByVal dwMilliseconds As Long)

Private Sub Command1_Click()
pd = 4
WebBrowser1.Document.All.Item("search_keyword").Value = "tsdfsdfsdfem"
Delay (1)
WebBrowser1.Document.getElementById("search_radio_" & pd).Checked = "checked"
Delay (2)
WebBrowser1.Document.getElementById("search_form").submit
End Sub

Private Sub Form_Load()
WebBrowser1.Navigate "http://www.duba.com/?un_366879_944474"
Delay (2)
End Sub



Public Sub Delay(PauseTime As Long) '延时
Dim Start As Single
Start = Timer
Do While Timer < Start + PauseTime
    DoEvents
    Sleep 10
Loop
End Sub

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－


上面的代码，功能是按键后，自动在搜索框输入字符，并用搜狗引擎搜索。
但实际情况是，他输入字符后，用百度进行搜索。

如果手工点击到搜狗引擎上，就会一直用搜狗引擎搜索， 手工点击到百度引擎上，就会用百度搜索。  而用软件选择引擎后，不能达到相应效果。

lzgucdos

我那个晕，都一天了，沙发还是我的。 是没人愿意帮我，还是没人会呀！~！！！{:soso_e123:}