批处理之家 - Powered by Discuz! Board

标题: [问题求助] VBS自动点击网页中的内容 [打印本页]

作者: ccx0905 时间: 2013-6-17 00:33 标题: VBS自动点击网页中的内容

<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 时间: 2013-6-17 19:21

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

作者: CrLf 时间: 2013-6-19 13:45

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 时间: 2013-6-21 02:52

回复 3# CrLf

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

作者: CrLf 时间: 2013-6-21 03:00

回复 4# ccx0905

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

作者: ccx0905 时间: 2013-6-22 21:30

回复 5# CrLf

有没有点击当前页面的？

欢迎光临批处理之家 (http://www.bathome.net/)

Powered by Discuz! 7.2