PDA

Показать полную графическую версию : Форма с 2-я вводами.


ikif
28-07-2009, 20:55
<FORM class=center action=dozor.php method=post><INPUT type=hidden value=14295 name=k> <INPUT type=hidden value=500701 name=char_id> <INPUT type=hidden value=1 name=type> <INPUT type=hidden value=0 name=min> <INPUT type=hidden value=3 name=max> <INPUT type=hidden value=1 name=do_attack> <INPUT class="image cmd" onmouseover="doImage(this,'b_nap',null)" type=image alt=напасть src="images/b_nap_p.png" name=do_attack><INPUT class="image cmd" onmouseover="doImage(this,'b_newfind',null)" type=image alt="новый поиск" src="images/b_newfind_p.png" name=do_search></FORM>
<TR>

Эта форма одна единственная на страничке.
В в IE выглядят как две кнопки картинки, но находятся в одной форме.

На деле надо нажать или одну или другую.
Пробовал с помощью :_IEFormImageClick ($oIE, "новый поиск", "alt") , но срабатывает она так же как и _IEFormImageClick ($oIE, "напасть", "alt").
Одна должна напасть , вторая продолжить поиск, а получается ,что в двух случаях нападает.
Проблема решена у меня временно длинным путём , просто начинает всё сначала, но хотелось бы правильно использовать данные кнопки.
Пароль поменял , так как , кто то там начал играть :))
Как добраться до нужного места с кнопками:

#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, "test1234")
_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
WEnd




© OSzone.net 2001-2012