Компьютерный форум OSzone.net  

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)
-   AutoIt (http://forum.oszone.net/forumdisplay.php?f=103)
-   -   Форма с 2-я вводами. (http://forum.oszone.net/showthread.php?t=146497)

ikif 28-07-2009 20:55 1180095

Форма с 2-я вводами.
 
Код:

<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



Время: 09:16.

Время: 09:16.
© OSzone.net 2001-