.NETのMicrosoft Application Center Testを使って
HTTP通信のテストをしようとしたのですが、
データを送信できません。
VBSの記述は以下のとおりです。
（新規テスト作成で記録したロジックです）
=========================================================
Option Explicit
Dim fEnableDelays
fEnableDelays = False
Sub SendRequest1()
Dim oConnection, oRequest, oResponse, oHeaders, strStatusCode
If fEnableDelays = True then Test.Sleep (0)
Set oConnection = Test.CreateConnection("xxx.xxx.xx.xxx", xx, false)
If (oConnection is Nothing) Then
Test.Trace "Error: Unable to create connection to xxx.xxx.xx.xxx"
Else
Set oRequest = Test.CreateRequest
oRequest.Path = "/test/test.aspx"+"?TESTCD=111111"
oRequest.Verb = "POST"
oRequest.HTTPVersion = "HTTP/1.0"
set oHeaders = oRequest.Headers
oHeaders.RemoveAll
oHeaders.Add "Accept", "image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/vnd.ms-powerpoint, application/vnd.ms-excel, application/msword, application/x-shockwave-flash, */*"
oHeaders.Add "Accept-Language", "ja"
oHeaders.Add "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0; .NET CLR 1.1.4322)"
'oHeaders.Add "Host", "xxx.xxx.xx.xxx"
oHeaders.Add "Host", "(automatic)"
oHeaders.Add "Cookie", "(automatic)"
Set oResponse = oConnection.Send(oRequest)
If (oResponse is Nothing) Then
Test.Trace "Error: Failed to receive response for URL to " + "/test/test.aspx"
Else
strStatusCode = oResponse.ResultCode
End If
oConnection.Close
End If
End Sub
Sub Main()
call SendRequest1()
End Sub
Main
=========================================================
このロジックで oRequest.Verb = "GET"で実行したら
パラメータが送られていないようだったので
oRequest.Verb = "POST" にして実行してみましたが
エラー４１１、Content-Length が無いためリクエストを受け付けません
で、うまくいきません。
どのようにコーディングすれば、パラメータを送信してテストが出来るようになるのでしょうか？
長文となってしまい申し訳ありませんが、ご存知の方がおりましたら
ご教授ください。
おねがいします。
