-
AutoIt
(
http://forum.oszone.net/forumdisplay.php?f=103)
Поочередное авто заполнение поля
Помогите написать следующие:
Вот код который вставляет в определенное поле текст:
Код:
#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
Это реально реализовать!? |
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;
|
zonderz, Была бы у мну справка на РуссиШээ )
ПОМОГИ ТОВАРИСЧУ! НАКАЙ МНЕ ЭТОТ СКРИПТ!!
|
Слушай ну напиши этот КОД!!!
|
Hawk37,
Русская справка
Попробуйте так:
Код:
#include <IE.au3>
#include <file.au3>
Dim $aArray
_FileReadToArray("base.txt", $aArray)
For $i = 1 To $aArray[0]
$oIE = _IECreate("URL");адрес тоже как-то менять, наверное, надо?
$oForm = _IEFormGetObjByName($oIE, "Auth")
$oUser = _IEGetObjByName($oIE, "numerocell")
_IEFormElementSetValue($oUser, $aArray[$i])
$iMsgBoxAnswer = MsgBox(68, "", "Ввели строку: " & _IEFormElementGetValue($oUser) & @CRLF & "Продолжить?")
Select
Case $iMsgBoxAnswer = 6
_IEFormSubmit($oForm)
_IELoadWait($oIE)
_IEQuit($oIE)
Case $iMsgBoxAnswer = 7
_IEQuit($oIE)
ContinueLoop
EndSelect
Next
|
Время: 14:26.
© OSzone.net 2001-
