1 Тема от Sergey59

  • Sergey59
  • Гость

Тема: Требуется фрилансер для разработки серии скриптов на VBS

Ищу фрилансера для разработки скриптов на VBS. Работы много, но скрипты относительно сложные.:)

Тестовое задание (ОПЛАЧИВАЕТСЯ):

Есть web-форма, содержащая, предположим 10 полей. Web-форма размещена на сайте. Сейчас web-форма заполняется вручную с помощью браузера.  Нужно разработать VBS, которому, в качестве параметров, передаются названия и значения полей web-формы, после чего VBS автоматически заполняет поля web-формы и сообщает код возврата: - успех или код ошибки.

2 Ответ от Felix Faria

  • Felix Faria
  • Разработчик
  • Неактивен

Re: Требуется фрилансер для разработки серии скриптов на VBS

Just for fun

Скрипт берёт параметры из текстового файла, который имеет следующую структуру:
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
В основе всего лежит простота.