Компонент WebBrowser и PostData

[djalex777]

Вопрос: как через вызов navigate передать PostData?
Имеется ввиду какой формат данных и синтаксис?
Пробовал передавать:

Код: Выделить всё


dim ie As new InternetExplorer
dim post As variant

post="user=me&pwd=me "
ie.navigate "http://www.myhost.ru/main.php",,,post


Таким образом не получается. Объясните пожалуйста

[Cytron]

The post data specified by PostData is passed as a SAFEARRAY Data Type structure. The variant should be of type Array and point to a SAFEARRAY Data Type. The SAFEARRAY Data Type should be of element type Integer, dimension one, and have an element count equal to the number of bytes of post data.

[agat344]

Надо делать так -

Код: Выделить всё

Headers = "Content-Type: application/x-www-form-urlencoded" & vbCrLf
PostData = "user=me&pwd=me"
PostData = StrConv(PostData, vbFromUnicode)

ie.navigate "http://www.myhost.ru/main.php", , , PostData, Headers


Вроде всё просто, да сам с трудом нашёл.

[agat344]

Извиняюсь , в спешке забыл объявить переменные.
Полный код выглядит так -

Код: Выделить всё

Dim PostData() As Byte
Dim Headers As String

Headers = "Content-Type: application/x-www-form-urlencoded" & vbCrLf
PostData = "user=me&pwd=me"
PostData = StrConv(PostData, vbFromUnicode)

ie.navigate "http://www.myhost.ru/main.php", , , PostData, Headers


Теперь всё правильно и должно работать.