写的自动填写表单的功能，
现在我想command3按钮把text2 text3的值 post提交上到 savesubmit.php

不知道如何写代码 麻烦高手贴下代码或者告诉我实现思路  谢谢

Dim text() As String
Private Sub Command1_Click()
  text = Split(Text1.text, "/")
  wb = ""
  For i = 0 To UBound(text)
    If i = UBound(text) Then
      wb = wb + "document.all('" + text(i) + "')"
    Else
      wb = wb + "document.frames('" + text(i) + "')."
    End If
    Web.Navigate "javascript:try{" + wb + ".value='" + Text2.text + "';};catch(e){alert('表单路径不正确.')};function a(){};a();"



  Next
End Sub

Private Sub Command2_Click()
 text = Split(Text4.text, "/")
  wb = ""
  For i = 0 To UBound(text)
    If i = UBound(text) Then
      wb = wb + "document.all('" + text(i) + "')"
    Else
      wb = wb + "document.frames('" + text(i) + "')."
    End If
    Web.Navigate "javascript:try{" + wb + ".value='" + Text3.text + "';};catch(e){alert('表单路径不正确.')};function a(){};a();"

  Next
End Sub

Private Sub Command3_Click()

End Sub

Private Sub Form_Load()
Web.Navigate "http://www.
End Sub

请问下版主，这个post包的格式怎么找 ，是通过抓包来找吗？调用函数是指的哪个函数呀，
开始导航事件里 找post数据，小菜愚钝 请版主指教

POST /savesubmit.php HTTP/1.1
Host: www.
User-Agent: Mozilla/5.0 (Windows NT 5.1; rv:22.0) Gecko/20100101 Firefox/22.0
Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
Accept-Language: zh-cn,zh;q=0.8,en-us;q=0.5,en;q=0.3
Accept-Encoding: gzip, deflate
Referer: http://www.
Cookie: CNZZDATA288018=cnzz_eid%3D1457558237-1375626128-http%253A%252F%252Fwww.
Connection: keep-alive
Content-Type: application/x-www-form-urlencoded
Content-Length: 89

user=%B2%E2%CA%D4&os=0&reason=0&hackmode=0&url=http%3A%2F%2Fwww.baidu.com&submit=+Submit+

这个是我抓到的数据 请问版主要怎么组合，然后填充到哪里

感谢版主~~帮了我的忙 谢谢分给你啦