vb怎样获取网页上被点击的某个链接名称?

核心提示点击网页最下面的一个链接“关于百度”SetaSet=webbrowser1.Document.All.tags("a")Fori=0ToaSet.length-1If(InStr(1,aSet(i).innerText,"关于百度"))Th

点击网页最下面的一个链接“关于百度”

Set

aSet

=

webbrowser1.document.All.tags("a")

For

i

=

0

To

aSet.length

-

1

If

(InStr(1,

aSet(i).innerText,

"关于百度"))

Then

aSet(i).Click

Next

i

怎么用vb打开网址,希望大师给出相关代码.比如打开www.baidu.com我先谢谢了!

1、打开Microsoft Visual Studio 2008/2010或者Visual basic开发工具;

2、新建一个windows窗体应用程序,并在窗体上添加一个按钮;

3、双击按钮进入按钮单击事件,在事件中添加如下代码:

vb6.0开发环境使用 Shell "explorer http://www.baidu.cn/"

VS2008/2010开发环境使用 Shell("explorer http://www.baidu.cn/")

4、按F5键运行,鼠标点击按钮,程序会启动浏览器并打开所设定的网址,如果需要打开其他网址,将步骤3中的http://www.baidu.cn/更换成你需要的地址即可。

vb.net如何点击webbrower中的超链接

http://zhidao.baidu.com/question/159232408.html

这里看看

Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub cmd_Click()

Dim linkadd As Long

Dim link1 As String

link1 = "http:www.baidu.com"

linkadd = ShellExecute(0&, vbNullString, link1, vbNullString, vbNullString, vbNormalFocus)

'用户单击链接文字时打开IE浏览器并转到相应的链接

End Sub

vb怎样点击百度网盘的上传按钮?

没用过vb.net中的webbrower

下面是VB6.0的代码

1)如果你知道你要点击的A链是第几个,可以用这样的方法

WebBrowser1.document.getElementsByTagName("a")(x).Click

x代表第几个

2)如果你不知道或者你要点击的A链位置不确定的话你可以用遍历的方式找到你要点击的A链

    '请先定义

    'AValue代表A链的innerHTML属性,也就是我们经常的看到超链接上面的字

    '

    Set AObj = WebBrowser1.document.getElementsByTagName("a")

    Debug.Print "AObj:" & TypeName(AObj)

    For Each NewAObj In AObj

        Debug.Print "NewAObj.innerHTML:" & NewAObj.innerHTML

        temp = Trim(NewAObj.innerHTML)

        If temp = AValue Then

            NewAObj.Click

            Debug.Print "点击【" & AValue & "】成功"

            Exit For

        End If

    Next

3)更多方法请百度。

方法有以下两种:

引用或者注册后调用COM插件,比如大漠、乐玩、AE等知名强大插件。

使用一大堆API来完成。例如mouse_event、PostMessage等...

以上就是关于vb怎样获取网页上被点击的某个链接名称?全部的内容,如果了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!

 
友情链接
鄂ICP备19019357号-22