Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Пользователь


Сообщения: 143
Благодарности: 24

Профиль | Отправить PM | Цитировать


Проверить на деле не получилось, не получилось найти эту страницу на этом сайте.
Код: Выделить весь код
#Include <Array.au3>
#include <IE.au3>

$oIE = _IECreate("")
$Html = _IEDocReadHTML($oIE)
;MsgBox(0,"",$HTML)
$banner_digit = StringRegExp($HTML,'(?s).*?<DIV id=.*?banner_(\d*).*?>',3)
_ArrayDisplay($banner_digit,"")
    If @error = 0 Then
	For $i = 0 to Ubound($banner_digit)
	      _IEImgClick($oIE, "Banner_"&$banner_digit[$i], "alt")
	next
    Else
	MsgBox(0,@error,"Баннеров не найдено")
    EndIf

Последний раз редактировалось HORRIBLE, 12-10-2009 в 12:45.

Это сообщение посчитали полезным следующие участники:

Отправлено: 12:23, 12-10-2009 | #2