Hawk37,
Русская справка
Попробуйте так:
Код:
![Выделить весь код](images/misc/selectcode.png)
#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