#include <IE.au3>
$oIE = _IECreate ("http://wad.ojooo.com/")
WinSetState("[CLASS:IEFrame]", "", @SW_MAXIMIZE); развернуть страницу эксплорера
Sleep(500)
_IENavigate ($oIE, "http://wad.ojooo.com/ads.php")
_IELoadWait($oIE)
$oLinks = _IELinkGetCollection($oIE)
;~ $iCount = 0
If IsObj($oLinks) Then
For $oLink In $oLinks
If StringInStr($oLink.href, 'cks.php?a=b&k=') Then
;$iCount += 1
;
; MsgBox(4096, "Link Info", $oLink.href)
$oLinkIE = _IECreate($oLink.href) ; откроется окно ссылки
_IELoadWait($oLinkIE)
WinSetState("[CLASS:IEFrame]", "", @SW_MAXIMIZE); развернуть страницу эксплорера
Sleep(10000)
; здесь необходимо рисовать рисунок, т.е. скрипт или отдельная программа
; --------------------------------------------------------------------------
;
; --------------------------------------------------------------------------
;_IELinkClickByText ($oLinkIE, ' Закройте окно')
_IEQuit($oLinkIE); закроет открытую рекламную страницу
Send("{ENTER}")
Send("{ENTER}")
Sleep(500)
; EndIf
EndIf
;If $iCount >= 3 Then ExitLoop
Next
EndIf