Excel VBA→ASP.NET POSTメソッドでのテキスト送信

Private Sub CommandButton1_Click()

    'IEの起動
    Dim objIE As Object
    Set objIE = CreateObject("InternetExplorer.Application") 'オブジェクトを作成します。
    objIE.Visible = True      '可視、Trueで見えるようにします。
   
    'ページへPostDataを送ります
    Dim bPostData() As Byte  'バイト型の配列を作る
    Dim strHeaders As String 'ヘッダー情報(送信データのヘッダー)

    '送信先とヘッダー情報の代入
    Dim strURL As String     'POSTの送り先URL
    strURL = "http://localhost:2494/WebForm6.aspx"
    strHeaders = "Content-Type: application/x-www-form-urlencoded" & vbCrLf

    'StrConv で 変換して、バイト型の配列に強引に入れる。
    bPostData = StrConv(TextBox1.Text, vbFromUnicode)

    '.Navigate メソッドで Postする、Dataを送る。
    objIE.Navigate strURL, , , bPostData, strHeaders


End Sub



using System;
using System.Collections;
using System.Configuration;
using System.Data;
using System.Linq;
using System.Web;
using System.Web.Security;
using System.Web.UI;
using System.Web.UI.HtmlControls;
using System.Web.UI.WebControls;
using System.Web.UI.WebControls.WebParts;
using System.Xml.Linq;
using System.Text;

namespace WebApplication1
{
    public partial class WebForm6 : System.Web.UI.Page
    {
        protected void Page_Load(object sender, EventArgs e)
        {
            //データを受信
            byte[] bdata = Request.BinaryRead(Request.ContentLength);
            //Shift_JISの文字列に変換（ExcelはデフォルトでShfit_JIS)
            Encoding sjisEnc = Encoding.GetEncoding("Shift_JIS");
            string str = sjisEnc.GetString(bdata);
            //テキストボックスに文字列をセット
            TextBox1.Text = str;
        }
    }
}