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

ikif · Сообщение **ikif** » 28 июл 2009, 20:55

Код:

Эта форма одна единственная на страничке.

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

На деле надо нажать или одну или другую.

Пробовал с помощью :_IEFormImageClick ($oIE, "новый поиск", "alt") , но срабатывает она так же как и _IEFormImageClick ($oIE, "напасть", "alt").

Одна должна напасть , вторая продолжить поиск, а получается ,что в двух случаях нападает.

Проблема решена у меня временно длинным путём , просто начинает всё сначала, но хотелось бы правильно использовать данные кнопки.

Пароль поменял , так как , кто то там начал играть

)

Как добраться до нужного места с кнопками:

Код:

Код: Выделить всё

#include 
$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