用vb控制文件上传得问题！万分感谢阿！

Question

要实现的功能如下！   
我现在有个网页还有个VB程序，这个网页有个上传文件到目标服务器的功能，我们通过程序打开这个网页，然后在网页上上传东西。   
现在需要实现的是，在网页代码不知道的情况下，单击上传文件的按钮，此时弹出的文件选择对话框所显示的   
路径是我们人为从系统的配置文件上读取的，并设定的！   
其实说简单点就是想通过程序来修改网页选择文件对话框的默认路径！   

Answer 1

使用Winsock连接网站服务端口(80),然后按照IIS的要求格式传递数据就可以了。
   With Winsock1
        .Protocol = sckTCPProtocol
        .RemoteHost = DestUrl.Host ‘服务器地址
        .RemotePort = 80
        End If
    End With        ’打开要上传的文件
    iFreeFileNum = FreeFile
    Open cLocaLFileName For Binary As #iFreeFileNum
    n = LOF(iFreeFileNum)
    ReDim arrBytes(iFreeFileNum To n) As Byte
    Get #iFreeFileNum, , arrBytes
    Close #iFreeFileNum
    
    ’然后发送数据
    cBackInfo = ""
    strHttp = "POST " & DestUrl.URI & "?" & DestUrl.Query & " HTTP/1.0" & vbCrLf
    strHttp = strHttp & "Host: " & DestUrl.Host & vbCrLf
    strHttp = strHttp & "Content-Type: multipart/form-data, boundary=" & RandomAlphaNumString(32) & vbCrLf
    strHttp = strHttp & "Content-Length: " & FileLen(cLocaLFileName) & vbCrLf & vbCrLf
    Winsock1.SendData strHttp
    Winsock1.SendData arrBytes

Answer 2

使用Winsock连接网站服务端口(80),然后按照IIS的要求格式传递数据就可以了。
   With Winsock1
        .Protocol = sckTCPProtocol
        .RemoteHost = DestUrl.Host ‘服务器地址
        .RemotePort = 80
        End If
    End With        ’打开要上传的文件
    iFreeFileNum = FreeFile
    Open cLocaLFileName For Binary As #iFreeFileNum
    n = LOF(iFreeFileNum)
    ReDim arrBytes(iFreeFileNum To n) As Byte
    Get #iFreeFileNum, , arrBytes
    Close #iFreeFileNum
    
    ’然后发送数据
    cBackInfo = ""
    strHttp = "POST " & DestUrl.URI & "?" & DestUrl.Query & " HTTP/1.0" & vbCrLf
    strHttp = strHttp & "Host: " & DestUrl.Host & vbCrLf
    strHttp = strHttp & "Content-Type: multipart/form-data, boundary=" & RandomAlphaNumString(32) & vbCrLf
    strHttp = strHttp & "Content-Length: " & FileLen(cLocaLFileName) & vbCrLf & vbCrLf
    Winsock1.SendData strHttp
    Winsock1.SendData arrBytes