Метод Post в Webbrowser в Vbscript

  • Автор темы programmister
  • Дата начала
Статус
Закрыто для дальнейших ответов.
P

programmister

#1
Всем привет!!!

Подскажите, пожалуйста!
В некоторой кастомизируемой системке (SalesLogix), создаю на форме объект Microsoft WebBrowser. На нем нужно выести результат URL и часть данных передать методом POST.
В нем есть иетод Navigate, в котором присутствует параметр PostData. В Delphi проверял - все работает, а вот в этом VBS - никак!!!
Вот пример:

procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
EncodedStr: string;
Header: OleVariant;
Post: OleVariant;
begin
EncodedStr := 'family=Фамилия&name=Имя&sname=Отчество&seria=8000&num=123456&region=2';
Post := VarArrayCreate([0, Length(EncodedStr) - 1], varByte);
for I := 1 to Length(EncodedStr) do
Post[I - 1] := Ord(EncodedStr);
Header := 'Content-Type: application/x-www-form-urlencoded' + #10#13;
WebBrowser1.Navigate('http://results.rustest.ru/ivcct/', EmptyParam, EmptyParam, Post, Header);
end;

Как это в VBScript написать?

Спасибо!
 
Статус
Закрыто для дальнейших ответов.