Что нового

[Автоматизация] автоматическое заполнение анкеты

Dk

Новичок
Сообщения
358
Репутация
2
Версия AutoIt: 3.0 3.

Описание:
Хочу что бы автоматически заполнялась анкета. Я знаю эта тема уже где то была, но у меня почему то выходит что всё заполняет в одну строчку.


Примечания:
И ещё вопрос как сделать что бы eто всё работалo через Firefox. У меня аBтоматически загружается Explorer, хотя Firefox стоит как Стандартный browser.



Код:
#include <IE.au3>

$IE = _IECreate("http://www.sellermania.de/SellerDE/pages/inventory/inventory.jsf" )
$Coll = _IEFormElementGetCollection($IE,1)
$Obj = _IEFormElementGetObjByName($Coll, "loginName" )
_IEAction($Obj, "focus")
send("LOGIN")


$Coll = _IEFormElementGetCollection($IE,1)
$Obj = _IEFormElementGetObjByName($Coll, "password" )
_IEAction($Obj, "focus")
send("PAROL")
 
Автор
D

Dk

Новичок
Сообщения
358
Репутация
2
Так мне ждать помощь или нет?
 

axlwor

Скриптер
Сообщения
657
Репутация
147
1. Ты используешь IE.au3. Это значит что ты подключаешься к InternetExplorer.Application
2. Чтобы использовать firefox используй библиотеку ff.au3
 

Yashied

Модератор
Команда форума
Глобальный модератор
Сообщения
5 379
Репутация
2 712
Автор
D

Dk

Новичок
Сообщения
358
Репутация
2
Всё теперь оформил как надо :-[
 

madmasles

Модератор
Глобальный модератор
Сообщения
7 790
Репутация
2 319
Dk,
С IE могу помочь, с FF нет.
 
Автор
D

Dk

Новичок
Сообщения
358
Репутация
2
с IE тоже подойдёт
 

madmasles

Модератор
Глобальный модератор
Сообщения
7 790
Репутация
2 319
Dk [?]
с IE тоже подойдёт
Попробуйте так.
Код:
#include <IE.au3>

$sLogin = 'LOGIN'
$sPass = 'PAROL'
$sUrl = 'http://www.sellermania.de/SellerDE/pages/inventory/inventory.jsf'

AdlibRegister('_Close_MessageIE')
$oIE = _IECreate($sUrl)
If @error Then
	MsgBox(16, 'Error', '_IECreate')
	Exit
EndIf
For $i = 1 To 1
	$oForm = _IEGetObjById($oIE, 'authenticationBeanForm')
	If @error Then ExitLoop
	$oLogin = _IEFormElementGetObjByName($oForm, 'loginName')
	If @error Then ExitLoop
	$oPass = _IEFormElementGetObjByName($oForm, 'password')
	If @error Then ExitLoop
	_IEFormElementSetValue($oLogin, $sLogin)
	If @error Then ExitLoop
	_IEFormElementSetValue($oPass, $sPass)
	If @error Then ExitLoop
	_IEFormSubmit($oForm)
Next
If @error Then
	MsgBox(16, 'Error', 'Error')
Else
	MsgBox(64, 'Info', 'OK')
EndIf
AdlibUnRegister('_Close_MessageIE')

Func _Close_MessageIE()
	;У меня вылазит окно с предупреждением, в нем нажимаем кнопку Да.
	Local $hWin = WinGetHandle('[Title:Предупреждение о безопасности; Class:#32770]')
	If $hWin Then ControlClick($hWin, '', '[CLASS:Button; INSTANCE:1]')
EndFunc   ;==>_Close_MessageIE
 
Верх