VB的webbrowser控件如何用代码来点击超链接

网页中有超链接:<a href='#' onClick="javascript:dopost('form1','repub',9696,'send.php?page=1&check=ok','')">发送</a>

VB中如何用代码来点击这个超链接?
就是说如何用VB中的.click来点击吧

第1个回答  推荐于2016-11-14
我想楼主是想问用WebBrowser自动点这个链接吧。
Dim Str1 As String
Str1 = "发送" '判断是否为要点击的A标签的特征字符
'历遍所有A标签,查找含有"发送"字符的A标签并点击
Set aSet = WebBrowser1.document.All.tags("A")

For i = 0 To aSet.length - 1

If (InStr(1, aSet(i).innerText, Str1)) Then
aSet(i).onclick
' 如果aSet(i).onclick不能点击的话,请试试aSet(i).click
End If
Next i本回答被提问者采纳
第2个回答  2009-03-31
楼上的javascript不是JAVA ,javascript的前身是LiveScrtipt!
第3个回答  2009-03-31
VB中可以直接用shell ("explorer 你的超级连接地址")
下面的代码执行了以后就浏览百度,注意explorer与地址中间还有个空格
Shell ("explorer http://www.baidu.com")
第4个回答  2009-03-31
他要的是点击按钮的代码 不是跳转吧
楼上你那个是直接跳转的
楼主说的那个按钮是java语言 你怎么跳?

VB 点击图片超链接
请加入控件Webbrowser1,并用它打开链接,然后使用下面代码实现点击这个图片超连接效果。dim links,i on error resume next Set links = Webbrowser1.Document.getElementsByTagName("img")For i = 0 To links.length - 1 If instr(links(i).src ,"btn_reg.jpg")>0 Then links(i).click Exit...

vb webbrowser如何根据链接内容按链接
举个简单的例子吧 Dim strURL As String Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)Cancel = True WebBrowser1.Navigate strURL End Sub Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)strURL = Text End Sub Private Sub Command1_Click()WebBrow...

VB WebBrowser怎么点击链接?
网页代码:随缘电脑(朋友)清... 网页代码:随缘电脑(朋友)清(同学)NICE(同学)

vb.net WebBrowser如何点击带的 javascript链接的元素
Dim Str1 As String Str1 = "发送" '判断是否为要点击的A标签的特征字符 '历遍所有A标签,查找含有"发送"字符的A标签并点击 Set aSet = WebBrowser1.document.All.tags("A")For i = 0 To aSet.length - 1 If (InStr(1, aSet(i).innerText, Str1)) Then aSet(i).onclick ' 如...

VB自动点击网页超链接
这个我这VB.net 中测试了好用,用到VB可能需要改动 Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted Dim i As Integer For i = 0 To WebBrowser1.Document.All....

vb6.0中,如何依次点击webbrowser里网页的多个链接?
WebBrowser1.Navigate "你的网址"aa = 0 While aa = 0 DoEvents Wend Static ii Set vdoc = WebBrowser1.Document.frames(3).Document For i = ii To vdoc.All.length - 1 If vdoc.All(i).tagName = "A" Then vdoc.All(i).Click ii = i + 1 Exit For End If Next End Sub ...

vb里的WEBBROWSER怎么后台模拟点击FLASH上的按钮?
我就大概说下思路吧..首先到浏览器中打开这个网页..找到里面的Text标签例如有个Text叫做name吧..我们就在Webbrowser1的documentcomplete事件中写入Webbrowser1.Document.All("namet").value = "你的内容"如果是按钮的话你就可以写 Webbrowser1.Document.All("submit").click ...

如何用vb编个程序…打开按钮链接到一个网页上的某个位置…
VB 中使用IE 打开一个网页的一种方法如下:1、先在程序工程中添加 WebBrowser控件 “工程”->"部件"->找到"Microsoft Internet Controls" 选择->"确定"2、在窗体中添加 WebBrowser 控件,并根据 Form窗体的大小放大 WebBrowser可见区域 3、增加一个按扭Command1 在Command1_Click() 事件中添加如下...

如何用VB编写简单的浏览器(要单击超链接时可以跳转的)
添加的控件有:1.Microsoft Internet Controls 2.Microsoft Windows Common Control 3. Microsoft Windows Common Dialpg软件用到的控件有:1.CommandButton控件 命名为打开网站.2.WebBrowser控件 象地球 3.StatusBar控件和ProgressBar控件 是Common Control里面带的 4.ComboBox控件 5.CommonDialog控件 代码 Pr...

vb的webbroswer控件怎么打开本地的.url文件?
请看下面的代码:'程序调用方法'WebBrowser1.Navigate GetURL(快捷方式路径) '取得URL里链接的函数Public Function GetURL(ByVal urlPath As String) As String Dim FileNum As Integer Dim Id As String Dim Tem As String Id = "[InternetShortcut]" '在URL文件中,这是一个标...

相似回答