阿里巴巴网站某链接如何点击？

bob

如同：


http://search.china.alibaba.com/ ... 033180&offset=2
主要是想点击页面中“跟我洽谈”的链接地址

这是网页中相关源代码
<table height="50" class="list_mt4 ff_m1">
    <tr valign="top">
      <td align="center"><a href="javascript:h324798('222404094','asgcc249845','isOnline','SALE','pm','1033171',0)" onmousedown="searchclick(this,'?infor=searchsell_1_1_jy_j2_altalk_rfid_1033171');doParrotTrace(this,'?type=alitalk&sourcetype=searchsell&memberLevel=&toid=asgcc')"  target="_self"> 跟我洽谈 </a></td>
    </tr>
  </table>

我写的代码，可惜行不通

#include <IE.au3>
#include <Array.au3>

$oIE = _IECreate("http://search.china.alibaba.com/selloffer/rfid/1.html?max_cat_id=1033180&offset=2",0,1,1,0);创建一个IE浏览器窗口
_IEAction($oIE,"visible");设置对象状态为可见
$oInputs = _IETableGetCollection ($oIE) ;返回指网页内所有表格的目标变量
$i = 0
For $oInput In $oInputs
$table = _IETableGetCollection ($oIE,$i)
$oInput = _IETableWriteToArray ($table) ;读取指定表格内的数据,写入到数组
if $oInput[0][0] = "跟我洽谈" then
    _IEAction ($oInput, "click");此处变量应该有问题
EndIf
$i += 1
Next

[ 本帖最后由 bob 于 2008-11-5 23:02 编辑 ]

liongodmien

你改一改就应该可以点中那个＂跟我洽谈＂了：

#include <IE.au3>
$oIE = _IECreate("http://search.china.alibaba.com/selloffer/rfid/1.html?max_cat_id=1033180&offset=2",0,1,1,0)

Dim $string = '', $i = 0
$oLinks = _IELinkGetCollection ($oIE)
$iNumLinks = @extended
MsgBox(0, "Link Info", $iNumLinks & " links found")
For $oLink In $oLinks
        If StringInStr($oLink.href, 'javascript:')<> 0 And StringInStr($oLink.href, 'isOnline')<> 0 Then
                If StringInStr($string, $oLink.href) Then
;~                         _IEAction($oLink, 'click')
                        ContinueLoop
                Else
                        $i += 1
                        $string &= $i & '=' & $oLink.href & @CRLF
                EndIf
        EndIf
Next

MsgBox(64, "Link Info", '共有"谈生意"链接:' & $i & @CRLF & $string)

黑菜

按楼主这要求能做出旺旺垃圾广告群发器

javarike

太强了。。。。

catcher

狮子好强大