vbscript - VBScript を使用してファイルから base64 でエンコードされたテキストエリア データを POST する

Question

VBScript を使用して PHP スクリプトにデータを POST しようとしましたが、何か問題がありました...

Dim objStream
Set objStream = CreateObject("ADODB.Stream")
objStream.Type = adTypeBinary
objStream.Open()
objStream.LoadFromFile("base64.txt")
objDocElem.nodeTypedValue = objStream.Read()

Set objHTTP = CreateObject("Microsoft.XMLHTTP")
objHTTP.open "POST", "http://mysite.com/data.php", False
objHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
objHTTP.send "data=" + objDocElem.text
'MsgBox objHTTP.responseText
Set objHTTP = Nothing
Set objStream = Nothing

C:\Documents and Settings\User\Desktop\data\test.vbe(3, 1) ADODB.Stream : 引数が間違った型であるか、許容範囲外であるか、互いに競合しています。

Answer 1

自分で解決しました。

Dim TextArea
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set TextFile = oFSO.OpenTextFile("base64.txt", 1)
TextArea = ""
Do Until TextFile.AtEndOfStream
    TextArea = TextArea & TextFile.ReadLine & vbNewLine
Loop
TextFile.Close

Set objHTTP = CreateObject("Microsoft.XMLHTTP")
objHTTP.open "POST", "http://mysite.com/data.php", False
objHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
objHTTP.send "data=" + TextArea
Set oFSO = Nothing
Set TextFile = Nothing
Set objHTTP = Nothing