[Medic84]

_IEFormSubmit

[zbruy]

Код:

_IEFormSubmit

и как ее этой функцией привентить?

[evg64]

Пожалуй, вот так:

Код:

$oIE = _IECreate (" http://www.сайт.ru/") 
_IELoadWait ($oIE) 
$Form=_IEFormGetObjByName($oIE,"loginForm"); насколько я понял, в данном примере форма называется loginForm, хотя в каждом случае отдельно смотреть надо название формы
$oUser =_IEGetObjByName($Form,"login") 
$oPass =_IEGetObjByName($Form,"password") 
_IEFormElementSetValue ($oUser, 'ник') 
_IEFormElementSetValue ($oPass, 'пароль')
_IEFormSubmit($Form)

Если что-то не получится, дайте название сайта, посмотрим

[zbruy]

Ага, спасибо, сделал уже вчера, как-то так..:

Код:

#include <IE.au3>
Opt("TrayIconDebug",1)
$oIE = _IECreate (" http://www.сайт.ру")
$oUser =_IEGetObjByName($oIE,"login")
If @Error = 0 Then
_IELoadWait ($oIE)
$oSubmit = _IEGetObjByName ($oIE,"loginForm")
$oUser =_IEGetObjByName($oIE,"login")
$oPass =_IEGetObjByName($oIE,"password")
_IEFormElementSetValue ($oUser, 'ник') 
_IEFormElementSetValue ($oPass, 'йцукен') 
_IEFormSubmit ($oSubmit, "click") 
EndIf

[evg64]

Если нет иных ссылок, имеющих статическую часть "http://192.168.12.158/infa1", можно так:

Код:

#include <IE.au3>
Opt("TrayIconDebug",1)
$oIE = _IECreate (" http://www.сайт.ру")
$Links=_IELinkGetCollection($oIE)
for $Link in $Links
if StringInStr(_IEPropertyGet($Link,"innerhtml"),"http://192.168.12.158/infa1")<>0 then
$Link.click
exitloop
endif
next

Либо если текст ссылки всегда постоянен, можно так:

Код:

#include <IE.au3>
Opt("TrayIconDebug",1)
$oIE = _IECreate (" http://www.сайт.ру")
$Links=_IELinkGetCollection($oIE)
for $Link in $Links
if _IEPropertyGet($Link,"innertext")=="текст ссылки" then
$Link.click
exitloop
endif
next

[evg64]

В первом скрипте все ссылки перебираются по очереди. Если программа определяет, что в текущей ссылке имеется кусок "http://192.168.12.158/infa1", она кликнет по этой ссылке, каким бы ни было продолжение.

Во втором примере вам нужно знать текст ссылки (то, что на ней написано). Программа определяет нужную ссылку, исходя из текста, а не URL-адреса, на который эта ссылка отсылает.

[zbruy]

evg64, да, но ведь изначально кусок ссылки "http://192.168.12.158/infa1" в коде страницы не указывается, там есть только '?response=3&info=12' кусок. Поэтому скрипт ничего не найдет. Мысль я понял. Но простой поиск даже если я буду искать скажем по шаблону ?response=3&info= найти то он найдет, затем нужно эту ссылочку собрать, чтобы по ней перейти

[evg64]

http://192.168.12.158/infa1?response=0&info=хх

хх - две цифры?
Тогда:

Код:

#include <IE.au3>
$FinalLink=""
$LinkFound=0
Opt("TrayIconDebug",1)

$oIE = _IECreate (" http://www.сайт.ру")
$Links=_IELinkGetCollection($oIE)
for $Link in $Links
if StringInStr(_IEPropertyGet($Link,"innerhtml"),"?response=0&info=")<>0 then ; находим ссылку с частью "?response=0&info=", насколько я понял, она на странице одна-единственная
	for $i=0 to 99; начинаем перебирать варианты от 00 до 99
	$LinkPart="?response=0&info="&$i
	if $i<10 then $LinkPart="?response=0&info=0"&$i
	if _IEPropertyGet($Link,"innerhtml")==$LinkPart then ; если есть совпадение, значит компонуем финальную ссылку в следующей строке и выходим из циклов
	$FinalLink="http://192.168.12.158/infa1"&$LinkPart
	$LinkFound=1
	exitloop
	endif	
	next
endif
if $LinkFound then exitloop
next
msgbox(0,"Искомая ссылка:",$FinalLink)

[Sp01LeR]

Она бы подошла если б сразу написать пример исходного URL. Вот, подкорректированный рабочий вариант(ищет и помещает в массив результатов только первую ссылку):

Код:

#include <IE.au3>
#include <INet.au3>
#include <Array.au3>

Dim $prot = "http://"
Dim $domen = "192.168.12.158"
Dim $delim = "/"
Dim $s_get = "infa1"
Dim $s_page = "index.html"
;Dim $browser = "iexplore.exe"

$get_data = _INetGetSource($domen&$delim&$s_get)


If @Error = 1 Then
	MsgBox(16, "Error", "Не могу загрузить страницу!")
	Exit
Else
	MsgBox(4096, "Ok!", "Загружено: "&StringLen($get_data)&" байт")
EndIf

$qts = "['""]"
$prs_data = "<a.*href="&$qts&"(\?response=0&info=[0-9]+)"&$qts& _
".*>(.[^><]*)</a><br/><br/>"
$prs_arr = StringRegExp($get_data, $prs_data, 1)

If UBound($prs_arr) > 0 Then
	_ArrayDisplay( $prs_arr, "Результаты поиска:" )
	_IECreate ($prot&$domen&$delim&$s_get&$prs_arr[0])
Else
	MsgBox(16, "RegExp Error", "Ошибка поиска по шаблону. Код ошибки="&@error)
EndIf

В строке:

Код:

Dim $s_page = "index.html"

"index.html" нужно заменить на страницу с сылками.