vb获取webrowser网页某一按钮并点击?
<inputtype="submit"name="g"class="btn"value="快速回复">就是这句代码怎么用PrivateSubCommand2_Click(...
<input type="submit" name="g" class="btn" value="快速回复">就是这句代码怎么用
Private Sub Command2_Click()
On Error Resume Next
Dim vDoc, vTag
Dim i As Integer
Set vDoc = WebBrowser1.Document
For i = 0 To vDoc.All.length - 1 '检测所有标签
If UCase(vDoc.All(i).tagName) = "INPUT" Then '找到input标签
Set vTag = vDoc.All(i)
If vTag.Type = "text" Then
vTag.Value = Text1 '这个是输入到用户名中得值
If vTag.Name = "g" Then
vTag.Click
End If
End If
Next i
End Sub
点击按钮,是了半天没成,怎么办? 展开
Private Sub Command2_Click()
On Error Resume Next
Dim vDoc, vTag
Dim i As Integer
Set vDoc = WebBrowser1.Document
For i = 0 To vDoc.All.length - 1 '检测所有标签
If UCase(vDoc.All(i).tagName) = "INPUT" Then '找到input标签
Set vTag = vDoc.All(i)
If vTag.Type = "text" Then
vTag.Value = Text1 '这个是输入到用户名中得值
If vTag.Name = "g" Then
vTag.Click
End If
End If
Next i
End Sub
点击按钮,是了半天没成,怎么办? 展开
1个回答
展开全部
当然,是获得当页面已经完成了从事件相关的事件发生时加载信息-wego.com.sg DocumentCompleted。导航发生前
在BeforeNavigate2
。 (当刷新页面后,此事件不会发生) - 中东
CommandStateChange
状态发生变化时,命令这事件告诉您何时做出
BR>
的DocumentComplete
时或禁用后退和前进的菜单类似或按钮来加载全部完成整个文档发生,如果您刷新页面,此事件不会激发。
DownloadBegin
当下载时,该项目开始,这一事件也刷新发生(的IWebBrowser2 ::
NavigateComplete2
DownloadComplete
党的刷新会出现下载整个项目完工)。发生该事件也发生在完成刷新页面。
当完成整个导航此事件对应于在BeforeNavigate2。
项NewWindow2
在新窗口被创建来显示网页或其他资源时发生。例如,你在打开一个新的窗口,连接
OnFullScreen
全屏财产的方式在页面上,当时间发生改变。此事件带有VARIANT_ BOOL类型的输入参数指示是否IE浏览器的全屏(全屏)模式(慧埋VARIANT_TRUE),或在正常模式(VARIANT_FALSE)。该发生的时候
OnMenuBar
菜单栏MenuBar属性被改变。一个VARIANT_ BOOL类型的输入参数指的是IE浏览器的菜单栏属性是可见的(VARIANT_TRUE)或隐藏(VARIANT_假)。
OnQuit
当Internet Explorer正在退出发生。当用户关闭浏览器或调用Quit方法的事件。当时间发生
OnStatusBar
状态栏属性更改。活动开展VARIANT_ BOOL类型的输入参数指示是否IE浏览器的状态栏可见(VARIANT_TRUE)或隐藏(VARIANT_FALSE)。
OnTheaterMode
时TheaterMode属性更改。活动开展VARIANT_ BOOL类型的输入参数指示是李碧罩否IE浏览器的状态栏可见(VARIANT_TRUE)或隐藏(VARIANT_FALSE)。在工具栏属性更改时发生
OnToolBar
。活动进行VARIANT_ BOOL类型的输入参数指示是否IE浏览器的状态栏可见(VARIANT_TRUE)或隐藏(VARIANT_FALSE)。
OnVisible
时,会出现web浏览器将显示或隐藏。本次活动进行VARIANT_ BOOL类型的输入参数指示是否IE浏览器的状态栏可见(VARIANT_TRUE)或隐藏(VARIANT_FALSE)。
ProgressChange
当下载进度更新
时发生
的PropertyChange在PropGOLuxury
当发生属性更改时间。通常情况下,当PutProperty方法被调用
StatusTextChange
Internet Explorer和改变状态栏时,WebBrowser控件发生。即使没有状态栏WebBrowser控件。 StatusTextChange给客户一个机会改变状态栏
TitleChange
。当文档对象哪闹的标题是可用还是在发生变化时
.......
在BeforeNavigate2
。 (当刷新页面后,此事件不会发生) - 中东
CommandStateChange
状态发生变化时,命令这事件告诉您何时做出
BR>
的DocumentComplete
时或禁用后退和前进的菜单类似或按钮来加载全部完成整个文档发生,如果您刷新页面,此事件不会激发。
DownloadBegin
当下载时,该项目开始,这一事件也刷新发生(的IWebBrowser2 ::
NavigateComplete2
DownloadComplete
党的刷新会出现下载整个项目完工)。发生该事件也发生在完成刷新页面。
当完成整个导航此事件对应于在BeforeNavigate2。
项NewWindow2
在新窗口被创建来显示网页或其他资源时发生。例如,你在打开一个新的窗口,连接
OnFullScreen
全屏财产的方式在页面上,当时间发生改变。此事件带有VARIANT_ BOOL类型的输入参数指示是否IE浏览器的全屏(全屏)模式(慧埋VARIANT_TRUE),或在正常模式(VARIANT_FALSE)。该发生的时候
OnMenuBar
菜单栏MenuBar属性被改变。一个VARIANT_ BOOL类型的输入参数指的是IE浏览器的菜单栏属性是可见的(VARIANT_TRUE)或隐藏(VARIANT_假)。
OnQuit
当Internet Explorer正在退出发生。当用户关闭浏览器或调用Quit方法的事件。当时间发生
OnStatusBar
状态栏属性更改。活动开展VARIANT_ BOOL类型的输入参数指示是否IE浏览器的状态栏可见(VARIANT_TRUE)或隐藏(VARIANT_FALSE)。
OnTheaterMode
时TheaterMode属性更改。活动开展VARIANT_ BOOL类型的输入参数指示是李碧罩否IE浏览器的状态栏可见(VARIANT_TRUE)或隐藏(VARIANT_FALSE)。在工具栏属性更改时发生
OnToolBar
。活动进行VARIANT_ BOOL类型的输入参数指示是否IE浏览器的状态栏可见(VARIANT_TRUE)或隐藏(VARIANT_FALSE)。
OnVisible
时,会出现web浏览器将显示或隐藏。本次活动进行VARIANT_ BOOL类型的输入参数指示是否IE浏览器的状态栏可见(VARIANT_TRUE)或隐藏(VARIANT_FALSE)。
ProgressChange
当下载进度更新
时发生
的PropertyChange在PropGOLuxury
当发生属性更改时间。通常情况下,当PutProperty方法被调用
StatusTextChange
Internet Explorer和改变状态栏时,WebBrowser控件发生。即使没有状态栏WebBrowser控件。 StatusTextChange给客户一个机会改变状态栏
TitleChange
。当文档对象哪闹的标题是可用还是在发生变化时
.......
追问
你是百度的把?怎么看不懂
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询