关于WebBrowser空间 调用网页按钮点击 事件 在线等!!
我想在一个Form里面 用了一个WebBrowser1 里面打开的是百度网址 想在打开百度后 搜索框里面自动填写我已经代码里设定好的内容 然后自动调用搜索事件 请问怎么才能调到搜索事件?我用的VS2005 vb
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
WebBrowser1.Navigate("www.baidu.com")
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i As Integer
For i = 0 To Me.WebBrowser1.Document.All.Count - 1 '检测所有标签
If UCase(Me.WebBrowser1.Document.All(i).TagName) = "INPUT" Then '找到input标签
If Me.WebBrowser1.Document.All(i).Id = "kw" Then
Me.WebBrowser1.Document.All(i).InnerText = "要查询的内容"
ElseIf UCase(Me.WebBrowser1.Document.All(i).Id) = "SU" Then
Me.WebBrowser1.Document.All(i).RaiseEvent("ClientClick")
End If
End If
Next i
End Sub
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
WebBrowser1.Navigate("www.baidu.com")
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i As Integer
For i = 0 To Me.WebBrowser1.Document.All.Count - 1 '检测所有标签
If UCase(Me.WebBrowser1.Document.All(i).TagName) = "INPUT" Then '找到input标签
If Me.WebBrowser1.Document.All(i).Id = "kw" Then
Me.WebBrowser1.Document.All(i).InnerText = "要查询的内容"
ElseIf UCase(Me.WebBrowser1.Document.All(i).Id) = "SU" Then
Me.WebBrowser1.Document.All(i).RaiseEvent("ClientClick")
End If
End If
Next i
End Sub
...全文
相关推荐
webbrowser模拟点击按钮
webbrowser模拟点击按钮 ,找了很久才找到的非常经典的源码,绝对能帮你成就经典程序
C++实现WebBrowser控件中获取鼠标点击事件和超链接
用一个基本窗口MFC程序实现WebBrowser控件对指定网页页面的加载、展示、点击事件响应,以及实现对鼠标在页面中点击标签事件的捕获,并且返回标签的超链接。
VC++实现WebBrowser控件中获取鼠标点击事件和超链接
用一个基本窗口MFC程序实现WebBrowser控件对指定网页页面的加载、展示、点击事件响应,以及实现对鼠标在页面中点击标签事件的捕获,并且返回标签的超链接。 在VS2010环境下编译通过。
WebBrowser模拟点击
输入想要点击的网页URL、自定义X轴、Y轴坐标、进行鼠标WebBrowser模拟点击、连击次数均可自定义(代码所属一朋友:星辰)
webBrowser 网页放大缩小
webBrowser 网页放大缩小 开发浏览器


