Поочередное авто заполнение поля

[Hawk37]

Помогите написать следующие:



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





Код:

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

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

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]

zonderz, Была бы у мну справка на РуссиШээ )



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

[Hawk37]

Слушай ну напиши этот КОД!!!

[madmasles]

Hawk37,

Русская справка

Попробуйте так:

Код:

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

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