[beve]

Уровень и силу получаю, вот все остальное не получается »

Вот, пробуй:

читать дальше »

Код:

#include <IE.au3>

$oIE = _IECreate ("http://g1.botva.ru/")
$oForm = _IEFormGetCollection ($oIE, 0)
$email = _IEFormElementGetCollection ($oForm, 1)
$pass= _IEFormElementGetCollection ($oForm, 2)
_IEFormElementSetValue ($email, "abastrakciya@mail.ru")
_IEFormElementSetValue ($pass, "test123")
_IEFormSubmit ($oForm)

_IELoadWait ($oIE)
_IEImgClick ($oIE, "but_bodalka_p.png", "src")            ;Idem v Bodalku

While 1                                    ;Na4inaem iskat' Jertvu
    _IELoadWait ($oIE)
    $oForm = _IEFormGetCollection ($oIE, 0)                ;Ishem Jertvu
    _IEFormSubmit ($oForm)
    $KodHtml=_IEDocReadHTML($oIE)                    ;Proveryaem nashli li kogo ?
    $pattern="(?s).*?Никого (.*?) нашли.*"
    $Kri = StringRegExpReplace($KodHtml, $pattern, "\1")    
    If $Kri <> "не" Then                            ;Esli nashli , to ne ishem dal'she
        ExitLoop 
    EndIf
Sleep(1000)
WEnd

$KodHtml=_IEDocReadHTML($oIE)

$pattern='(?s).*?<TD class="c3 center">(.*?)<TD.*'
$Lvl = StringRegExpReplace($KodHtml, $pattern, "\1")    ;lvl

$pattern_Sila="(?si).*Сила.*c4>(\d*).*"
$Sila = StringRegExpReplace($KodHtml, $pattern_Sila, "\1")

$pattern_Masterstvo="(?si).*Мастерство.*?(\d*)</TD></TR>.*"
$Masterstvo = StringRegExpReplace($KodHtml, $pattern_Masterstvo, "\1")

$pattern_Lovkost="(?si).*Ловкость.*?(\d*)</TD></TR>.*"
$Lovkost = StringRegExpReplace($KodHtml, $pattern_Lovkost, "\1")

$pattern_Zaschita="(?si).*Защита.*?(\d*)</TD></TR>.*"
$Zashita = StringRegExpReplace($KodHtml, $pattern_Zaschita, "\1")

$pattern_Massa="(?si).*Масса.*?(\d*)</TD></TR>.*"
$Massa = StringRegExpReplace($KodHtml, $pattern_Massa, "\1")

$pattern_Slava="(?si).*Слава.*<TD class=center>(\d*).*"
$Slava = StringRegExpReplace($KodHtml, $pattern_Slava, "\1")

$pattern_Protivnik='(?si).*<DIV class="blockTitle2 ">(.*?)</DIV>.*'
$Protivnik = StringRegExpReplace($KodHtml, $pattern_Protivnik, "\1")


MsgBox(0, $Protivnik,"Уровень: "&$Lvl&@CRLF&"Сила: "&$Sila&@CRLF&"Защита: "&$Zashita&@CRLF&"Ловкость: "&$Lovkost&@CRLF&"Macca: "&$Massa&@CRLF&"Мастерство: "&$Masterstvo&@CRLF&"Слава: "&$Slava)

Несколько раз пробовал, вроде работает, но только при определенных условиях (какие у тебя в цикле прописаны, поэтому скрипт тебе нужно улучшать. Ибо теперь у меня появляется счетчик - и текст: Вы несете службу..., а что оно означает я не знаю... И соответственно, код страницы обрабатывается неправильно!)