求教一个WINSOCK向服务器上传的问题.

[caixicn]

传到服务器时会出现错误,但用WEB传不会出现.
请前辈帮我修正以下代码:


Dim blnConnected As Boolean

Private Sub Command1_Click()

If blnConnected Then Exit Sub

Dim postSize As Long
Dim postData As String
Dim postHeader As String
Dim strHttp As String

filePath = "C:\ddd.EXE"
fileContent = GetFileContents(filePath)

'测试
postData = "-----------------------------7d6251223700b8" & vbCrLf
postData = postData & "Content-Disposition: form-data; name=""image1""; filename=""" & filePath & """" & vbCrLf
postData = postData & "Content-Type: application/octet-stream" & vbCrLf & vbCrLf
postData = postData & fileContent & vbCrLf


postData = postData & "-----------------------------7d6251223700b8" & vbCrLf
postData = postData & "Content-Disposition: form-data; name=""submit""" & vbCrLf & vbCrLf

postData = postData & "submit" & vbCrLf
postData = postData & "-----------------------------7d6251223700b8--" & vbCrLf & vbCrLf

postSize = Len(postData)
'MsgBox postSize

postHeader = "POST /test/imageupload.asp HTTP/1.1" & vbCrLf
postHeader = postHeader & "Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, */*" & vbCrLf
postHeader = postHeader & "Referer: http://127.0.0.1/imageupload.htm" & vbCrLf
postHeader = postHeader & "Accept-Language: zh-cn" & vbCrLf
postHeader = postHeader & "Content-Type: multipart/form-data; boundary=---------------------------7d6ab313700b8" & vbCrLf
postHeader = postHeader & "UA -CPU: x86" & vbCrLf
postHeader = postHeader & "Accept-Encoding: gzip , deflate" & vbCrLf
postHeader = postHeader & "User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.2; SV1; Maxthon; .NET CLR 1.1.4322; icast 0.1214)" & vbCrLf
postHeader = postHeader & "Host: 127.0.0.1" & vbCrLf
postHeader = postHeader & "Content-Length: " & postSize & vbCrLf
postHeader = postHeader & "Connection: Keep-Alive" & vbCrLf
postHeader = postHeader & "cache-Control: no-cache" & vbCrLf
postHeader = postHeader & "Cookie: ASPSESSIONIDQADCDABC=MCHJBLEBMBBHMOELCOAKICDO" & vbCrLf & vbCrLf

strHttp = postHeader & postData

Winsock1.Protocol = sckTCPProtocol
Winsock1.RemoteHost = "www.0069.cn"
Winsock1.RemotePort = 80
' make the connection and send the HTTP request
Winsock1.Connect

While Not blnConnected
DoEvents
Wend

txtRequest.Text = strHttp
Winsock1.SendData strHttp

End Sub

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

[faysky2]

UP

[yoyo9250]

用call copymemory API函数
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
试试看吧

[kmlxk0]

study..

[celevantis]

UP