批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程
[批处理文件精品]批处理版照片整理器[批处理文件精品]纯批处理备份&还原驱动在线第三方下载
返回列表 发帖

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

  1. <tr>
  2.     <td>
  3. <div id="KB3Parent" class="parent">
  4. ├<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>
  5. </div>
  6. <div id="KB3Child" class="child">
  7. │├<A HREF=http://58.192.142.134:7777/pls/wwwbks/bkscjcx.jxjh target="w_right" >教学计划</a><br>
  8. │├<A HREF=http://58.192.142.134:7777/pls/wwwbks/bkscjcx.yxkc target="w_right" >已修课程</a><br>
  9. │├<A HREF=http://58.192.142.134:7777/pls/wwwbks/bkscjcx.curscopre target="w_right" >本学期成绩</a><br>
  10. │└<A HREF=http://58.192.142.134:7777/pls/wwwbks/bkscjcx.bjgkc target="w_right" >不及格课程</a><br>
  11.     </div>
  12.     </td>
  13. </tr>
复制代码
上面是框架网页内一部分源码


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

设立一个事件,然后触发这个事件,可行么?

TOP

  1. Set ie = CreateObject("InternetExplorer.Application")
  2. ie.Visible = True
  3. ie.Navigate "file://" & WScript.Arguments(0)
  4. Do Until ie.ReadyState = 4 : Loop
  5. For Each a In ie.Document.getElementsByTagName("A")
  6. If a.innertext="本学期成绩" Then a.click
  7. Next
复制代码

TOP

回复 3# CrLf


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

TOP

回复 4# ccx0905


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

TOP

回复 5# CrLf


    有没有点击当前页面的?

TOP

返回列表