[vb]webbrower控件操作问题--问与答 _ 插件大全

查看: 14841\|回复: 13	[插件教程] [vb]webbrower控件操作问题--问与答 [复制链接]

发送短消息 UID 211464 帖子 21164 精华 13 鲜花 258 朵铜币 47817 个银币 60 个性别保密在线时间 263800 注册时间 2008-12-23 最后登录 2022-11-28 1094599314 查看公共资料搜索主题搜索帖子兄弟工程师01 组别版主 UID211464 帖子21164 精华13 鲜花258 朵铜币47817 个银币60 个在线时间263800 注册时间2008-12-23 按键精灵开发者4级可通过提升认证等级来升级勋章：rz.anjian.com 兔年勋章兔年纪念勋章论坛MM 按键论坛女性用户勋章小红帽对论坛提出良好建议（可向管理员申请）学有所成学有所成勋章，新手步入按键学堂的第一枚勋章按键元老资深按键用户的尊贵荣誉勋章管理人员按键论坛的管理团队专属勋章	1^# 字体大小: t T 发表于 2009-03-20 10:44 \| \|只看楼主问：如何返回webbrower页面选定文字？答： WebBrowser1.Document.selection.createRange.Text ----------------------------------------------------------------------------- 问：我的意思是在WebBrowser1里打开这个连接，就是点击这个连接，谢谢答： For i = 0 To WebBrowser1.Document.All.length - 1 If UCase(WebBrowser1.Document.All(i).tagName) = "FRAME" Then WebBrowser1.Navigate2 WebBrowser1.Document.All(i).src End If Next 或者 WebBrowser1.Navigate2 WebBrowser1.document.getElementsByTagName("FRAME")(0).src ----------------------------------------------------------------------------- 问：我还有个小问题，这个页面里有以下 2个 FRAME，我只想打开第2个答： WebBrowser1.Navigate2 WebBrowser1.document.getElementsByTagName("FRAME")(1).src ----------------------------------------------------------------------------- 问：我用WebBrowser1吊入了一个网页，这个网页里有连接，点开连接后会跑出 WebBrowser1，在IE里打开页面，我想让他在WebBrowser1里点开连接后，还是在WebBrowser1 里显示。答： Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean) Cancel = True WebBrowser1.Navigate2 WebBrowser1.Document.activeElement.href End Sub ----------------------------------------------------------------------------- 问：已经可以在打开网页后在用户名和密码框里自动填入用户名和密码,最后的问题是如何点击那个登陆按钮进行自动登陆？答： Private Sub Form_Load() WebBrowser1.Navigate "bbs.jztele.com" End Sub Private Sub Form_Resize() On Error Resume Next Me.WebBrowser1.Move 0, 0, ScaleWidth, ScaleHeight End Sub Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant) Dim u As Object, p As Object, bt As Object Set u = pDisp.Document.getElementById("TUser") Set p = pDisp.Document.getElementById("TPass") Set bt = pDisp.Document.getElementById("Button1") If Not u Is Nothing And Not p Is Nothing And Not bt Is Nothing Then u.Value = "****" p.Value = "****" bt.Click End If End Sub 或者 Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant) Set WBDocument = WebBrowser1.Document WBDocument.body.All("TUser").Value = "userid" WBDocument.body.All("TPass").Value = "mpwd" WBDocument.body.All("Button1").Click End Sub ----------------------------------------------------------------------------- 问：如何用webbrowser打开本地的网页答： WebBrowser1.Navigate (App.Path & "\PIPI.html") 'app.path要用括号括起来，而不是引号 ----------------------------------------------------------------------------- 问：使用webbrowser怎么自动选中这个select标签的选项？如题比如
	答： WebBrowser1.Document.getElementsByName("submit")(0).click 1、getElementsByName获取的都是数组，因为存在重名的问题，你可以家一个监视就能够看到。 2、按钮一直在点击的原因是因为还需要做图像识别，否则提交后将错误。有可能你是在DocumentComplete中处理的，所有会一直重复刷新页面，你可以设置一个全局变量来编码重复提交。 ----------------------------------------------------------------------------- 复制代码
	点赞

	回顶部

上一主题| 下一主题

[插件教程] [vb]webbrower控件操作问题--问与答 [复制链接]