PDA

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


Hawk37
11-04-2010, 03:32
Помогите написать следующие:

Вот код который вставляет в определенное поле текст:


#include <IE.au3>
$oIE = _IECreate ("URL ссылка")
_IELoadWait ($oIE)
$oForm = _IEFormGetObjByName ($oIE, "Auth")

$oUser =_IEGetObjByName($oIE,"numerocell")


_IEFormElementSetValue ($oUser, 'Что писать в поле')

_IEFormSubmit ($oForm)


Нужно чтобы за место "Что писать в поле" - вводились данные из текстового файла ( base.txt ),который содержит текст формата:


Всем привет! Гулять пойдешь!?
ДА нет я дома посижу
ку ку ку


Чтобы текст указанный с новой строчки вводился по очереди..


ПРИМЕР РАБОТЫ:

1. Открывается IE
2. Вводятся данные "Что писать в поле" ( из base.txt )
3. Подтверждение
4. Закрытие IE

Потом:

1. Открывается IE
2. Вводятся данные "Что писать в поле" ( из base.txt ) - со следующей строчкой
3. Подтверждение
4. Закрытие IE

Это реально реализовать!?

zonderz
11-04-2010, 04:09
Hawk37,

возможно все! :) учитесь работать со справкой.

fileopen, filereadline, _filecountlines

пример алгоритма (логика) - это не рабочий код autoit!!!

file = base.txt
a = _FileCountLines (file)
FileOpen (file);
for i:=0 to a - 1 do
begin
WinOpen (IE);
Send (FileReadLine(i));
Send (EnterButton);
WinClose (IE);
Sleep (1000);
end;

Hawk37
12-04-2010, 20:17
zonderz, Была бы у мну справка на РуссиШээ )

ПОМОГИ ТОВАРИСЧУ! НАКАЙ МНЕ ЭТОТ СКРИПТ!!

Hawk37
12-04-2010, 20:36
Слушай ну напиши этот КОД!!!

madmasles
12-04-2010, 23:03
Hawk37,
Русская справка (http://www.autoitscript.com/autoit3/docs.shtml)
Попробуйте так:#include <IE.au3>
#include <file.au3>

Dim (http://www.autoitscript.com/autoit3/docs/keywords.htm#Dim) $aArray
_FileReadToArray("base.txt", $aArray)
For (http://www.autoitscript.com/autoit3/docs/keywords.htm#For) $i = 1 To (http://www.autoitscript.com/autoit3/docs/keywords.htm#To) $aArray[0]
$oIE = _IECreate("URL");адрес тоже как-то менять, наверное, надо?
$oForm = _IEFormGetObjByName($oIE, "Auth")
$oUser = _IEGetObjByName($oIE, "numerocell")
_IEFormElementSetValue($oUser, $aArray[$i])
$iMsgBoxAnswer = MsgBox (http://www.autoitscript.com/autoit3/docs/functions/MsgBox.htm)(68, "", "Ввели строку: " & _IEFormElementGetValue($oUser) & @CRLF (http://www.autoitscript.com/autoit3/docs/macros.htm#@CRLF) & "Продолжить?")
Select (http://www.autoitscript.com/autoit3/docs/keywords.htm#Select)
Case (http://www.autoitscript.com/autoit3/docs/keywords.htm#Case) $iMsgBoxAnswer = 6
_IEFormSubmit($oForm)
_IELoadWait($oIE)
_IEQuit($oIE)
Case (http://www.autoitscript.com/autoit3/docs/keywords.htm#Case) $iMsgBoxAnswer = 7
_IEQuit($oIE)
ContinueLoop (http://www.autoitscript.com/autoit3/docs/keywords.htm#ContinueLoop)
EndSelect (http://www.autoitscript.com/autoit3/docs/keywords.htm#EndSelect)
Next (http://www.autoitscript.com/autoit3/docs/keywords.htm#Next)




© OSzone.net 2001-2012