WebBrowserからの<INPUT type="file">へのPOST (ID:100371)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

【開発環境】
Windows XP Pro SP3 / Visual Basic 6.0 SP6

WebBrowserを利用してファイルをPOSTすることを試みています。
下記のような、通常のPOSTは問題なくできます。この手のブラウザ操作はいつも、ieHTTPHeadersを見て、流れているデータをそのままPOSTしているものです。

Private Sub LOGIN()

Dim strURL As String
Dim strData As String
Dim strHeader As String

strURL = "http://www.post.com/login.php"

strData = "id=xxxxx" 
strData = strData & "&pwd=xxxxx"

strHeader = "Content-Type: application/x-www-form-urlencoded"

WebBrowser1.Navigate2 strURL, , , DATA_POST(strData),strHeader

End Sub

同じように、ファイルをPOSTした際に流れているデータをブラウザからPOSTしているのですが、データはPOSTされていません。コードは以下です。

Private Sub FILE_POST()

Dim strURL As String
Dim strData As String
Dim strHeader As String

strURL = "http://www.post.com/upload.php"

strData = "-----------------------------7d825d2020334" & vbCrLf
strData = strData & "Content-Disposition: form-data; name="MAX_FILE_SIZE" & vbCrLf
strData = strData & "40000000" & vbCrLf
strData = strData & vbCrLf
strData = strData & "-----------------------------7d825d2020334" & vbCrLf
strData = strData & "Content-Disposition: form-data; name="csv_file"; filename="C:\Documents and Settings\Administrator\デスクトップ\xxx.csv" & vbCrLf
strData = strData & "Content-Type: application/vnd.ms-excel" & vbCrLf
strData = strData & vbCrLf
strData = strData & "メール" & vbCrLf
strData = strData & "xxx@xxx.jp" & vbCrLf
strData = strData & vbCrLf
strData = strData & "-----------------------------7d825d2020334" & vbCrLf
strData = strData & "Content-Disposition: form-data; name="insert" & vbCrLf
strData = strData & vbCrLf
strData = strData & "登録" & vbCrLf
strData = strData & "-----------------------------7d825d2020334--" & vbCrLf

strHeader = "Content-Type: multipart/form-data; boundary=---------------------------7d825d2020334" & vbCrLf

WebBrowser1.Navigate2 strURL, , , DATA_POST(URL_ENCODE(strData)),strHeader

End Sub

POSTする際のURL_ENCODE関数は、strDataをSHIFT-JISにエンコードするための関数です。

←解決時は質問者本人がここをチェックしてください。

戻る