AutoIt Français

Code : Tout sélectionner

#include <IE.au3>
$oIE = _IECreate ("http://bux.to/surf.php")
$sHTML = _IEDocReadHTML ($oIE)
$nOffset = 1
While 1
    ConsoleWrite($sHTML)
    $array = StringRegExp( $sHTML, 'href=view.php\?ad=(.*?) ', 1, $nOffset)
    
    If @error = 0 Then
        MsgBox(0, "1", "1")
        $nOffset = @extended
    Else
        ExitLoop
        MsgBox("0", "2", "2")
    EndIf
    for $i = 0 to UBound($array) - 1
        msgbox(0, "RegExp Test with Option 1 - " & $i, $array[$i])
    Next
WEnd
_IELoadWait ($oIE)
 

Code : Tout sélectionner

#include <Array.au3>
#include <String.au3>
#include <IE.au3>
$oIE = _IECreate ("http://bux.to/surf.php")
$oLinks = _IELinkGetCollection($oIE)
Dim $alink[1]
For $oLink in $oLinks
   ConsoleWrite($olink.href & @CRLF)
    If StringInStr($oLink.href,"view.php?ad=") Then
        $id = _StringBetween($oLink.href,"?ad=","")
        _ArrayAdd($alink,$id[0])
    EndIf
Next
_ArrayDelete($alink,0)
_ArrayDisplay($alink)