Скрипт берёт параметры из текстового файла, который имеет следующую структуру:
1 строка: адрес сайта
2 строка: имя формы
Далее идут строки вида: имя_поля==значние_поля
Допустим, для захода на этот сайт файлик будет такой:
http://forum.script-coding.com/login.php
login
req_username==Sergey59
req_password==Sergey'sPassword
Dim URL, FormName, ArrValues, FileName
FileName = "input_values.txt" ' Имя файла
Set FSO = CreateObject("Scripting.FileSystemObject")
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True
Set Input = FSO.OpenTextFile(FileName,1,True)
URL = Input.ReadLine
FormName = Input.ReadLine
Call Navigate(URL,2000)
Set objForm = objIE.Document.forms(FormName)
While Not(Input.AtEndOfStream)
ArrValues = Split(Input.ReadLine,"==")
objForm.elements(ArrValues(0)).value = ArrValues(1)
Wend
Input.Close
objForm.submit()
MsgBox "Выполнено"
' ===== Functions =======
Sub Navigate(Link,LTime)
objIE.Navigate Link
While objIE.Busy
WScript.Sleep 100
Wend
WScript.Sleep LTime
End SubТестовое задание (ОПЛАЧИВАЕТСЯ):
Есть web-форма, содержащая, предположим 10 полей. Web-форма размещена на сайте. Сейчас web-форма заполняется вручную с помощью браузера. Нужно разработать VBS, которому, в качестве параметров, передаются названия и значения полей web-формы, после чего VBS автоматически заполняет поля web-формы и сообщает код возврата: - успех или код ошибки.
]]>