Можете прокомментировать ошибку, в чем проблема:
Код:
==> Illegal text at the end of statement (one statement per line).:
If StringRegExp($sHTML, $sPattern, 0) Then MsgBox(64, '', '???????? ? ????????: ' & $i) $str = $i EndIf
If StringRegExp($sHTML, $sPattern, 0) Then MsgBox(64, '', '???????? ? ????????: ' & $i) ^ ERROR
Код:
$sPattern = $domens
For $i = 1 To 100 Step 1
If StringRegExp($sHTML, $sPattern, 0) Then MsgBox(64, '', 'Страница с запросом: ' & $i) EndIf
_IELinkClickByText ($oIE, "Следующая")
_IELoadWait($oIE)
Sleep(1000)
$sHTML = _IEDocReadHTML($oIE)
Next