网页点击问题

blue_dvd

这个代码是：打开一个网页，并且收集网页的超链接，找到自己要的超链接并打开它；
#include <IE.au3>
$oIE=_IECreate("http://www.baidu.com/",0,1,1,0)
$sMyString = "图片"
$oLinks = _IELinkGetCollection($oIE) ;返回文档中所有链接的集合
For $oLink in $oLinks  ;从第一个链接到最后一个链接循环查找
    $sLinkText = _IEPropertyGet($oLink, "innerText") ;
    If StringInStr($sLinkText, $sMyString) Then
        _IEAction($oLink, "click")  ;找到匹配的就点击的它
        ExitLoop
    EndIf
Next

但是在电信网页那里就不行了
#include <IE.au3>
$oIE=_IECreate("http://gd.ct10000.com/zs/",0,1,1,0)
$sMyString = "短信营业厅"
$oLinks = _IELinkGetCollection($oIE)
For $oLink in $oLinks  
    $sLinkText = _IEPropertyGet($oLink, "innerText")
    If StringInStr($sLinkText, $sMyString) Then
        _IEAction($oLink, "click")  
        ExitLoop
    EndIf
Next
那位懂得高手指导一下！

tsys

回复 1# blue_dvd


    我试过的你的代码没问题， 点击的时候Ie 可能会阻止，先添加信用或者关闭弹出窗口阻止程序

cxlater

是2楼所说的问题  这种连接又没有js代码  为什么不直接_IENavigate呢
或者修改A标签的Target属性值 让其在自身窗口打开连接

#include <IE.au3>
$oIE = _IECreate("http://gd.ct10000.com/zs/", 0, 1, 1, 0)
$sMyString = "短信营业厅"
$oLinks = _IELinkGetCollection($oIE)
For $oLink In $oLinks
        $sLinkText = _IEPropertyGet($oLink, "innerText")
        If StringInStr($sLinkText, $sMyString) Then
                $oLink.target = ""
                _IEAction($oLink, "click")
                ExitLoop
        EndIf
Next

tsys

回复 3# cxlater


      吼吼，这个是写作弊脚本的精华所在，提醒下_IEPropertyGet($oLink, "innerText") 效率不如 object.innertext效率高哦，亲测。

blue_dvd

多谢3楼，终于搞定了，但是为什么加多一行代码“$oLink.target = ""”，就搞定了呢？什么原理？

user11

mark 学习一下，，最近恰好用到这个。。

blue_dvd

#include <IE.au3>
$oIE = _IECreate("http://gd.ct10000.com/zs/", 0, 1, 1, 0)
$oInputs = _IETagNameGetCollection ($oIE, "input")

;找到 名子控件 輸入名子
For $oInput In $oInputs
        if $oInput.ID = "短信营业厅" then
       _IEAction ($oInput, "click")
EndIf

Next
这个运行不成功，原因在哪？

ak47gglllk

感谢，学习了，学习了

damoo

学习了，多谢分享。