Private Sub Command1_Click()WebBrowser1.Navigate "http://zhidao.baidu.com/"End SubPrivate Sub Command2_Click()WebBrowser1.SetFocusSendKeys "为什么下雪"End Sub
同样期待这个问题的答案,不过这里边儿好像还有用到网页中HTML格式的问题吧?