论坛 › 『 提问交流 』 › 如何打开网页中的固定链接(完了,结吧)

lluxury 发表于 2011-4-25 16:36:43

如何打开网页中的固定链接(完了,结吧)

本帖最后由 lluxury 于 2011-5-1 08:05 编辑

在类似http://abc/wx.main.asp这种网页的源码里，看到些固定不变的链接

哪如何点击网页中的连接呢 ，类似这样的 <a href='main.asp?mode=action&method=itemuse&pos=1'>[使用]</a>

kxing 发表于 2011-4-25 17:46:03

先读取htm内容，再用正则提取链接。$link="<a href='main.asp?mode=action&method=itemuse&pos=1'>[使用]</a>"
$aLink=stringregexp($link,"href='([^']+)'",3)
for $i=0 to ubound($aLink)-1
msgbox(0,'',$aLink[$i])
next

lluxury 发表于 2011-4-25 17:51:17

谢谢楼上，不过我是要运行这个连接 ，_IELinkClickByText 函数好像不能用于au3，不知道还有别的方法没

lluxury 发表于 2011-5-1 08:04:48

本帖最后由 lluxury 于 2011-5-1 08:11 编辑

#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 Or StringInStr($oLink.href, 'game.htm')<> 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)



哎,解决问题都要我自问自答么,感觉来论坛提问都没什么必要了

查看完整版本: 如何打开网页中的固定链接(完了,结吧)