怎么用sendmessage向webbrowser指定位置发送消息

在WebBrowser1上自动百度：asdfasdf
参考下
部件里面选择 Microsoft HTML Object Library和 Microsoft Internert Controls
Private Sub Command1_Click()
Dim objDoc As HTMLDocument
Set objDoc = Me.WebBrowser1.Document
objDoc.getElementById("sb").Click
End Sub
Private Sub Form_Load()
Me.WebBrowser1.Navigate ("www.baidu.com")
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Dim objDoc As HTMLDocument
Set objDoc = Me.WebBrowser1.Document
objDoc.getElementById("kw").innerText = "asdfasdf"
End Sub

我这个实现了在自动打开百度，然后自动点击百度的搜索按钮搜索 asdfasdf 虽然不是用sendmessage 但是能实现你的功能啊！

..网页又没有句柄 怎么sendmessage啊。。
webbrowser句柄 和 webbrowser里网页的句柄差远了 搞清楚

可以选择广播