• 按键公众号 :
按键精灵电脑版
立即下载

软件版本:2014.06
软件大小:22.9M
更新时间:2021-12-03

按键精灵安卓版
立即下载

软件版本:3.7.2
软件大小:46.2M
更新时间:2023-05-10

按键精灵iOS版
立即下载

软件版本:1.8.0
软件大小:29.2M
更新时间:2023-03-21

按键手机助手
立即下载

软件版本:3.8.0
软件大小:262M
更新时间:2023-05-30

快捷导航

登录 后使用快捷导航
没有帐号? 注册

发新话题 回复该主题

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

1#

  1. 问:如何返回webbrower页面选定文字?
  2. 答:
  3. WebBrowser1.Document.selection.createRange.Text
  4. -----------------------------------------------------------------------------
  5. 问:我的意思是在WebBrowser1里打开这个连接,就是点击 这个连接,谢谢

  6. 答:
  7. For i = 0 To WebBrowser1.Document.All.length - 1
  8. If UCase(WebBrowser1.Document.All(i).tagName) = "FRAME" Then
  9. WebBrowser1.Navigate2 WebBrowser1.Document.All(i).src
  10. End If
  11. Next
  12. 或者
  13. WebBrowser1.Navigate2 WebBrowser1.document.getElementsByTagName("FRAME")(0).src
  14. -----------------------------------------------------------------------------
  15. 问:我还有个小问题, 这个页面里有以下 2个 FRAME,我只想打开 第2个
  16. 答:
  17. WebBrowser1.Navigate2 WebBrowser1.document.getElementsByTagName("FRAME")(1).src
  18. -----------------------------------------------------------------------------
  19. 问:我用WebBrowser1吊入了一个网页,这个网页里有连接,点开连接后 会跑出 WebBrowser1,在IE里打开页面,
  20. 我想让他在WebBrowser1里点开连接后,还是在WebBrowser1 里显示。
  21. 答:
  22. Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
  23. Cancel = True
  24. WebBrowser1.Navigate2 WebBrowser1.Document.activeElement.href
  25. End Sub
  26. -----------------------------------------------------------------------------
  27. 问:已经可以在打开网页后在用户名和密码框里自动填入用户名和密码,最后的问题是如何点击那个登陆按钮进行自动登陆?
  28. 答:
  29. Private Sub Form_Load()
  30. WebBrowser1.Navigate "bbs.jztele.com"
  31. End Sub
  32. Private Sub Form_Resize()
  33. On Error Resume Next
  34. Me.WebBrowser1.Move 0, 0, ScaleWidth, ScaleHeight
  35. End Sub
  36. Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
  37. Dim u As Object, p As Object, bt As Object
  38. Set u = pDisp.Document.getElementById("TUser")
  39. Set p = pDisp.Document.getElementById("TPass")
  40. Set bt = pDisp.Document.getElementById("Button1")
  41. If Not u Is Nothing And Not p Is Nothing And Not bt Is Nothing Then
  42. u.Value = "******"
  43. p.Value = "******"
  44. bt.Click
  45. End If
  46. End Sub
  47. 或者
  48. Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
  49. Set WBDocument = WebBrowser1.Document
  50. WBDocument.body.All("TUser").Value = "userid"
  51. WBDocument.body.All("TPass").Value = "mpwd"
  52. WBDocument.body.All("Button1").Click
  53. End Sub
  54. -----------------------------------------------------------------------------
  55. 问:如何用webbrowser打开本地的网页
  56. 答:
  57. WebBrowser1.Navigate (App.Path & "\PIPI.html")
  58. 'app.path要用括号括起来,而不是引号
  59. -----------------------------------------------------------------------------
  60. 问:使用webbrowser怎么自动选中这个select标签的选项?
  61. 如题 比如


  • 答:
  • WebBrowser1.Document.getElementsByName("submit")(0).click
  • 1、getElementsByName获取的都是数组,因为存在重名的问题,你可以家一个监视就能够看到。
  • 2、按钮一直在点击的原因是因为还需要做图像识别,否则提交后将错误。有可能你是在DocumentComplete中处理的,所有会一直重复刷新页面,你可以设置一个全局变量来编码重复提交。
  • -----------------------------------------------------------------------------
  • 复制代码
    发新话题 回复该主题