请教VB WebBrowser模拟点击网页按钮失败
</SCRIPT></head><bodyonload="window_onload()"onresize="window_onresize()"><tablecellp...
</SCRIPT>
</head>
<body onload="window_onload()" onresize="window_onresize()">
<table cellpadding=0 cellspacing=0 border=0 width="100%" height="100%" >
<tr><td height=30 style="border-bottom:1px solid #E0E0E0">
<!--<table cellpadding=0 cellspacing=0 width="100%" height="100%">
<tr><td style="background:url(images/topbg.gif)">-->
<table width="100%" border=0><tr><td width=30><a href="javascript:switchFrame()"><b><font id=fntBarLeft>«</font></b></a>
<td id=tdPlayerControl style="display:none;padding-right:20px;">
<input type=button value=" 上一个 " class="btn btn60" style="font-size:8pt" id=btnPrev onclick="loadPrevSCO()"> <input type=button value=" 下一个 " style="font-size:8pt" class="btn btn60" id=btnNext onclick="loadNextSCO()"></td>
<td align=right><a href="javascript:adjustFrame()"><b><font id=fntBar>»</font></b></a></table>
<!--</table>-->
<tr><td>
<div id=divTree style="width:100%;overflow:auto;height:100%;padding:10px;">
<SCRIPT LANGUAGE="JavaScript">
<!--
document.write(organHandle.tree.getHTML());
//-->
</SCRIPT>
==================================================================
Private Sub Command1_Click()
Dim vDoc, vTag
Dim i As Integer
Set vDoc = WebBrowser1.Document
For i = 0 To vDoc.All.length - 1
If UCase(vDoc.All(i).tagName) = "input" Then
Set vTag = vDoc.All(i)
If vTag.Type = "button" And vTag.Value = " 上一个 " Then vTag.Click
End If
Next i
End Sub
============================================================
按照百度找到的答案,可以模拟点击百度一下的按钮,却不能点击我所需求那个网页上的上一个或者下一个。请问是不是跟网页源码中value=" 上一个 "里面的空格有关系?(是不是网页上的按钮有问题?)除此之外还有什么别的方法能够模拟点击?
If vTag.Type = "button" And vTag.Value = " 上一个 " Then vTag.Click
那个“上一个”和网页代码中的一模一样...
纠结了,到底为什么呢
谢谢一楼的朋友,可是问题还是没解决,是不是那个按钮有问题?请朋友们帮帮忙!谢谢
------6.5补充------三楼的朋友,错误91...请指教....谢谢 展开
</head>
<body onload="window_onload()" onresize="window_onresize()">
<table cellpadding=0 cellspacing=0 border=0 width="100%" height="100%" >
<tr><td height=30 style="border-bottom:1px solid #E0E0E0">
<!--<table cellpadding=0 cellspacing=0 width="100%" height="100%">
<tr><td style="background:url(images/topbg.gif)">-->
<table width="100%" border=0><tr><td width=30><a href="javascript:switchFrame()"><b><font id=fntBarLeft>«</font></b></a>
<td id=tdPlayerControl style="display:none;padding-right:20px;">
<input type=button value=" 上一个 " class="btn btn60" style="font-size:8pt" id=btnPrev onclick="loadPrevSCO()"> <input type=button value=" 下一个 " style="font-size:8pt" class="btn btn60" id=btnNext onclick="loadNextSCO()"></td>
<td align=right><a href="javascript:adjustFrame()"><b><font id=fntBar>»</font></b></a></table>
<!--</table>-->
<tr><td>
<div id=divTree style="width:100%;overflow:auto;height:100%;padding:10px;">
<SCRIPT LANGUAGE="JavaScript">
<!--
document.write(organHandle.tree.getHTML());
//-->
</SCRIPT>
==================================================================
Private Sub Command1_Click()
Dim vDoc, vTag
Dim i As Integer
Set vDoc = WebBrowser1.Document
For i = 0 To vDoc.All.length - 1
If UCase(vDoc.All(i).tagName) = "input" Then
Set vTag = vDoc.All(i)
If vTag.Type = "button" And vTag.Value = " 上一个 " Then vTag.Click
End If
Next i
End Sub
============================================================
按照百度找到的答案,可以模拟点击百度一下的按钮,却不能点击我所需求那个网页上的上一个或者下一个。请问是不是跟网页源码中value=" 上一个 "里面的空格有关系?(是不是网页上的按钮有问题?)除此之外还有什么别的方法能够模拟点击?
If vTag.Type = "button" And vTag.Value = " 上一个 " Then vTag.Click
那个“上一个”和网页代码中的一模一样...
纠结了,到底为什么呢
谢谢一楼的朋友,可是问题还是没解决,是不是那个按钮有问题?请朋友们帮帮忙!谢谢
------6.5补充------三楼的朋友,错误91...请指教....谢谢 展开
2010-06-04
展开全部
Private Sub Command1_Click()
'上一个
WebBrowser1.Document.getElementById("btnPrev").Click
End Sub
Private Sub Command2_Click()
'下一个
WebBrowser1.Document.getElementById("btnNext").Click
End Sub
'上一个
WebBrowser1.Document.getElementById("btnPrev").Click
End Sub
Private Sub Command2_Click()
'下一个
WebBrowser1.Document.getElementById("btnNext").Click
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询