如何实现表单的post方法

Question

刚才看了一下IIS的日志，用第二种方法，在日志里写的居然是get方法！
各位高手，我是不是那里的属性设置有问题？还是参数用的不对？？
请快给我回答吧，我快急死了~~

Answer 1

我已经解决了，呵呵，原来是
postdate需要定义成byte的数组

Answer 2

有三种方法可以实现，自己选
Private Sub Command1_Click()Dim vDoc, vTagDim i As IntegerSet vDoc = WebBrowser1.DocumentFor i = 0 To vDoc.All.length - 1 '检测所有标签    If UCase(vDoc.All(i).tagName) = "INPUT" Then '找到INPUT标签        Set vTag = vDoc.All(i)
        If UCase(vTag.Name) = "KEY_TITLE" Then
            vTag.Value = "Mp3"
        ElseIf vTag.Type = "submit" Then        vTag.Select '也可以没有这个        vTag.Click '点击提交了，一切都OK了
    
        End If
    End If
Next i
End SubPrivate Sub Command2_Click()
Inet1.Execute "http://bs1/testvb.asp", "POST", "key=MP3", "Content-Type: application/x-www-form-urlencoded"
End SubPrivate Sub Command3_Click()
         Dim URL As String
         Dim Flags As Long
         Dim TargetFrame As String
         Dim PostData() As Byte '必须这么定义
         Dim Headers As String         URL = "http://bs1/testvb.asp" ' A URL that will accept a POST
         Flags = 0
         TargetFrame = ""         PostData = "key=mp3"         ' 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"
         WebBrowser1.Navigate URL, Flags, TargetFrame, PostData, HeadersEnd SubPrivate Sub Form_Load()WebBrowser1.Navigate "http://bs1/brothersoft/adv_form.asp"End Sub