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

null@example.com (Felix Faria) — Sat, 03 Nov 2012 07:56:24 +0000

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

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

null@example.com (Sergey59) — Tue, 23 Oct 2012 13:32:25 +0000

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

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

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

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

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

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