[问题求助] VBS自动点击网页中的内容

ccx0905

<tr>
    <td>
	<div id="KB3Parent" class="parent">
	├<a href="#" onClick="expandIt('KB3'); return false" ><img id="KB3P" SRC="images/plus.gif" height="9" border="0" align="absmiddle">&nbsp;<font color="#000080">成绩查询</font></a>
	</div>
	<div id="KB3Child" class="child">
	│├<A HREF=http://58.192.142.134:7777/pls/wwwbks/bkscjcx.jxjh target="w_right" >教学计划</a><br>
	│├<A HREF=http://58.192.142.134:7777/pls/wwwbks/bkscjcx.yxkc target="w_right" >已修课程</a><br>
	│├<A HREF=http://58.192.142.134:7777/pls/wwwbks/bkscjcx.curscopre target="w_right" >本学期成绩</a><br>
	│└<A HREF=http://58.192.142.134:7777/pls/wwwbks/bkscjcx.bjgkc target="w_right" >不及格课程</a><br>
    </div>
    </td>
</tr>
复制代码

上面是框架网页内一部分源码


VBS怎么模拟点击可以点击到"本学期成绩"上？

suiyanlovetian

设立一个事件，然后触发这个事件，可行么？

CrLf

Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
ie.Navigate "file://" & WScript.Arguments(0)

Do Until ie.ReadyState = 4 : Loop

For Each a In ie.Document.getElementsByTagName("A")
	If a.innertext="本学期成绩" Then a.click
Next
复制代码

ccx0905

回复 3# CrLf


    ie.Navigate "file://" & WScript.Arguments(0)
这个下标越界

CrLf

回复 4# ccx0905


    这是要拖动 htm 文件到 vbs 上执行，如果是访问固定网址，把 ie.Navigate "file://" & WScript.Arguments(0) 改成类似 ie.Navigate "http://www.baidu.com" 这样就行了

ccx0905

回复 5# CrLf


    有没有点击当前页面的？