HTTP multipart/form-data form data Post

[BenoitGirard]

Edit: I found the solution after talking a one hour break, thanks for looking here anyways! If an admin see this, you may delete this post!

I'm currently working as a QA Tester and I need to automate the web testing. It's just repetive work so I found the following code to post normal data "application/x-www-form-urlencoded" type data:

Private Sub cmdSubmit_Click()
edtPostData.Text = "" ' Initialize an edit box for testing
ReDim aByte(0) As Byte ' Array of bytes to hold data to post

' Extract the URL encoded data from the UI,
' and pack it into an array of bytes
cPostData = startStr()
PackBytes aByte(), cPostData

' For testing, rebuild the POST data and stuff
' it into an edit box
For i = LBound(aByte) To UBound(aByte)
edtPostData = edtPostData + Chr(aByte(i))
Next

Dim vPost As Variant
vPost = aByte ' Assign the byte array to a VARIANT
Dim vFlags As Variant
Dim vTarget As Variant
Dim vHeaders As Variant
vHeaders = _
"Content-Type: application/x-www-form-urlencoded" _
+ Chr(10) + Chr(13)

' You're done. Now call Navigate
' Note: modify path to server as appropriate
g_oIE.Navigate "http://<server>", _
vFlags, vTarget, vPost, vHeaders



End Sub
' Utility function to pack the data to post into an array of bytes
Private Sub PackBytes(ByteArray() As Byte, ByVal PostData As String)
iNewBytes = Len(PostData) - 1 ' Get rid of the null termination
If iNewBytes < 0 Then
Exit Sub
End If
ReDim ByteArray(iNewBytes)
For i = 0 To iNewBytes
ch = Mid(PostData, i + 1, 1)
If ch = Space(1) Then
ch = "+"
End If
ByteArray(i) = Asc(ch)
Next
End Sub

It work fine and is about the equivilent navigating to "http://server/app?blah=fo&param=value". However more complicated forms use the following "multipart/form-data" encoding and I can't find any way to change the code to automate those. Is there a way I could change the code, or just navigate to a certain url that would have the same effect?

Here the modification I made so far but it's not working:

Private Sub Command1_Click()
edtPostData.Text = "" ' Initialize an edit box for testing
ReDim aByte(0) As Byte ' Array of bytes to hold data to post

' Extract the URL encoded data from the UI,
' and pack it into an array of bytes
cPostData = Text1
PackBytes aByte(), cPostData

' For testing, rebuild the POST data and stuff
' it into an edit box
For i = LBound(aByte) To UBound(aByte)
edtPostData = edtPostData + Chr(aByte(i))
Next

Dim vPost As Variant
vPost = aByte ' Assign the byte array to a VARIANT
Dim vFlags As Variant
Dim vTarget As Variant
Dim vHeaders As Variant
vHeaders = _
encTypeHeader() _
+ Chr(10) + Chr(13)

' You're done. Now call Navigate
' Note: modify path to server as appropriate
g_oIE.Navigate "http://<server>?func=ll&objAction=copy&ObjId=2112", _
vFlags, vTarget, vPost, vHeaders
End Sub

Where Text1 holds a cut in paste of a valid Post Data String.

The code results in the web server telling me "Error parsing the GET/POST data stream.". Just a guest but is it possible that the new line character needs to be changed for another character before making the request? Or any other ideas on what I might be doing wrong?