WebBrowser 控件的 Navigate 的紧急问题

Question

Sub Command1_Click()
         Dim URL As String
         Dim Flags As Long
         Dim TargetFrame As String
         Dim PostData() As Byte
         Dim Headers As String         URL = "http://YourServer" ' A URL that will accept a POST
         Flags = 0
         TargetFrame = ""         PostData = "Information sent to host"         ' VB creates a Unicode string by default so we need to
         ' convert it back to Single byte character set.
         PostData = StrConv(PostData, vbFromUnicode)         Headers = "Content-Type: application/x-www-form-urlencoded" & _
            vbCrlf
         WebBrowser1.Navigate URL, Flags, TargetFrame, PostData, Headers
      End Sub

Answer 1

鄙人愚钝，我还是不知道postdata到底因该发什么数据？
比如username=aaa password=bbb ok=login我因该怎么组织这些信息？postdata到底因该等于什么字符串？

Answer 2

就象Url上的参数表一样：
username=aaa&password=bbb&ok=login
然后用StrConv函数转换成字节数组就可以了

Answer 3

那就举一个登陆的例子
怎么样用
WebBrowser1.Navigate URL, Flags, TargetFrame, PostData, Headers
通过对PostData参数的设置登陆到随便什么站点因为我试了半天总是不行一但成功，加到200分，因为我真的很急，谢谢各位了

Answer 4

procedure TForm1.Button1Click(Sender: TObject);
var
url, Flags, TargetFrame, Postdata, Headers: Olevariant;
begin
Url := 'https://lc1.law5.hotmail.passport.com/cgi-bin/dologin';
TargetFrame:=0;
Flags:=NavNoHistory;
headers := StringtoVarArray('Content-Type:application/x-www-form-urlencoded'#13#10);
Postdata := StringToVarArray(Encode('login=<MyUsername>&passwd=<MyPassword>'));
EmbeddedWb1.Navigate2(URL, Flags, TargetFrame, PostData, Headers);
end;
这是一个进入Hotmail邮箱的例子

Answer 5

procedure TForm1.Button1Click(Sender: TObject);
var
url, Flags, TargetFrame, Postdata, Headers: Olevariant;
begin
Url := 'https://lc1.law5.hotmail.passport.com/cgi-bin/dologin';
TargetFrame:=0;
Flags:=NavNoHistory;
headers := StringtoVarArray('Content-Type:application/x-www-form-urlencoded'#13#10);
Postdata := StringToVarArray(Encode('login=<MyUsername>&passwd=<MyPassword>'));
EmbeddedWb1.Navigate2(URL, Flags, TargetFrame, PostData, Headers);
end;
这是一个进入Hotmail邮箱的例子

Answer 6

StringToVarArray 和 Encode 怎么改？navigate 和 navigate2有什么区别？