用winsock向web服务器上传文件的问题

Question

我的大致思路是这样的，
1、构造http头（这部分问题不大）
2、构造form，类似一个<form action="2.asp" method="post" name="form1" enctype="multipart/form-data">
  <input name="FileName" type="FILE" class="tx1" size="35">
</form>（这部分问题也不大）
3、将要发送的我文件用下面的方法换成2进制附加到构造的form里
Private Function GetFileContents(ByVal strPath As String) As String
    Dim StrReturn As String
    Dim lngLength As Long
    
    lngLength = FileLen(strPath)
    StrReturn = String(lngLength, Chr(0))
    
    On Error GoTo ERR_HANDLER
    
    Open strPath For Binary As #1
    
    Get #1, , StrReturn
    
    GetFileContents = StrReturn
    
    Close #1
    
    Exit Function
    
ERR_HANDLER:
    MsgBox Err.Description, vbCritical, "ERROR"
    
    Err.Clear
End Function
4、请求post到服务器上的某个asp
这时我发现post上的数据与原文件有点出于，
请大家提示一下

Answer 1

我用winhex比较过，很多地方都不一样了啊
Private Function GetFileContents(ByVal strPath As String) As String
换成As Byte()
也不行，不知道怎么搞的

Answer 2

我知道哪里错了，但还未解决
我把文件以二进制打开，直接以string的形式返回后，此时已经丢失信息了。
所以问题仍然编程一个文件怎么样保存成二进制文本的问题了。