• 首页
  • 教程
  • 资源
  • 脚本
  • 源码库
  • 卖脚本
  • 用户中心
  • 作者成长
加入收藏  返回官网
你的位置:按键精灵资源站
[vb]webbrower控件操作问题--问与答
发布: 2009-03-20 10:44:48 | 作者: | 来源: 按键精灵资源站
[code]
问:如何返回webbrower页面选定文字?
答:
WebBrowser1.Document.selection.createRange.Text
-----------------------------------------------------------------------------
问:我的意思是在WebBrowser1里打开这个连接,就是点击 这个连接,谢谢
<FRAME name="form" src="http://chat.qingdaonews.com:8900/Form?user=魔女小可爱&pass=ODYYnnXmVxtZNwLiWdrYAVrevTWRvwgR&r=15956">
答:
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标签的选项?
如题 比如
<select name='test' class='input' id='selectcom'>
<option>aaaaaa</option>
<option>bbbbbb</option>
<option>cccccc</option>
<option>dddddd
答:
WebBrowser1.Document.getElementById("selectcom").Options(1).Selected = True
'自动选中bbbbbb
-----------------------------------------------------------------------------
问:webboroser怎么提交表单
下面是html
<TR><TD class=f14 vAlign=top>
<DIV style="MARGIN: 10px 0px"><INPUT id=btn_submit style="FONT-SIZE: 14px; WIDTH: 145px" type=submit value=" 同意以下协议并提交 " name=submit> </DIV>
答:
WebBrowser1.Document.getElementsByName("submit")(0).click
1、getElementsByName获取的都是数组,因为存在重名的问题,你可以家一个监视就能够看到。
2、按钮一直在点击的原因是因为还需要做图像识别,否则提交后将错误。有可能你是在DocumentComplete中处理的,所有会一直重复刷新页面,你可以设置一个全局变量来编码重复提交。
-----------------------------------------------------------------------------


[/code]