Imports System.Net
Imports System.IO

Partial Class _Default
    Inherits System.Web.UI.Page

    Private url As String = "http://kaede2/kamaya/login.html"
    Private postData As String = "LoginID=0DAIBIKI-1&LoginPW="

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        'Webページが初めて表示されたか判別する
        If Page.IsPostBack Then
            '    Label1.Text = "2回目の処理です"
        Else
            url = "http://kaede2/kamaya/login.html"
            postData = "LoginID=0DAIBIKI-1&LoginPW="
            Call loadPage(url, postData)
        End If

    End Sub

    Private Sub loadPage(ByVal url As String, ByVal postData As String)
        Dim enc As Encoding = Encoding.UTF8

        'ポストデータの作成
        Dim postDataBytes As Byte() = System.Text.Encoding.ASCII.GetBytes(postData)

        'リクエスト作成
        Dim req As HttpWebRequest = CType(WebRequest.Create(url), HttpWebRequest)
        req.UserAgent = "Mozilla/4.0 (compatible; MSIE 6.0; Windows XP)"
        req.Method = "POST"
        req.ContentType = "application/x-www-form-urlencoded"
        req.ContentLength = postDataBytes.Length

        ' ポスト・データの書き込み
        Dim reqStream As Stream = req.GetRequestStream()
        reqStream.Write(postDataBytes, 0, postDataBytes.Length)
        reqStream.Close()

        ' レスポンスの取得と読み込み
        Dim res As WebResponse = req.GetResponse()
        Dim st As Stream = res.GetResponseStream()

        Dim sr As StreamReader = New StreamReader(st, enc)
        Dim html As String = sr.ReadToEnd()
        sr.Close()
        st.Close()

        Label1.Text = html


    End Sub


    Protected Sub bNews_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bNews.Click
        url = "http://kaede2/kamaya/order_sheet_top_work.html"
        postData = "LoginID=0DAIBIKI-1&LoginPW="
        Call loadPage(url, postData)
    End Sub

    Protected Sub bSearch_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bSearch.Click
        url = "http://kaede2/kamaya/order_sheet_list.html"
        postData = ""
        Call loadPage(url, postData)

    End Sub

    Protected Sub bComfirm_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bComfirm.Click
        url = "http://kaede2/kamaya/order_sheet_confirm.html"
        postData = ""
        Call loadPage(url, postData)

    End Sub
End Class