Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Аватара для madmasles

Ветеран


Сообщения: 812
Благодарности: 353

Профиль | Отправить PM | Цитировать


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

Отправлено: 23:03, 12-04-2010 | #5