Старожил
Сообщения: 307
Благодарности: 137
|
Профиль
|
Отправить PM
| Цитировать
Цитата ikif:
Уровень и силу получаю, вот все остальное не получается »
|
Вот, пробуй:
читать дальше »
Код:
#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)
Несколько раз пробовал, вроде работает, но только при определенных условиях (какие у тебя в цикле прописаны, поэтому скрипт тебе нужно улучшать. Ибо теперь у меня появляется счетчик - и текст: Вы несете службу..., а что оно означает я не знаю... И соответственно, код страницы обрабатывается неправильно!)
|
-------
Не в кількості знань полягає освіта, а в повному розумінні і вмілому використанні того, що знаєш.
Отправлено: 01:05, 28-07-2009
| #4
|