Public Class WebForm1

    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        TextBox1.Text = Now.ToString("yyyyMMddHHmmss")

    End Sub

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click

        Dim web As New System.Net.WebClient() '验证帐号

        web.Headers.Add("Content-Type", "application/x-www-form-urlencoded")

        Dim d As Byte() = System.Text.Encoding.UTF8.GetBytes("id=test&pwd=test&cmd=1")

        Dim res As Byte() = web.UploadData("http://ls5588.vicp.cc:8090", "POST", d)

        TextBox4.Text = System.Text.Encoding.Default.GetString(res)

    End Sub

    Protected Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button2.Click

        Dim web As New System.Net.WebClient() '余额查询

        web.Headers.Add("Content-Type", "application/x-www-form-urlencoded")

        Dim d As Byte() = System.Text.Encoding.UTF8.GetBytes("id=test&pwd=test&cmd=2")

        Dim res As Byte() = web.UploadData("http://ls5588.vicp.cc:8090", "POST", d)

        TextBox4.Text = System.Text.Encoding.Default.GetString(res)

    End Sub

    Protected Sub Button3_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button3.Click

        Dim web As New System.Net.WebClient() '发送短信

        web.Headers.Add("Content-Type", "application/x-www-form-urlencoded")

        Dim d As Byte()

        If (CheckBox1.Checked) Then '定时发送时，日期格式为yyyyMMddHHmmss 如 20110520120000

            d = System.Text.Encoding.UTF8.GetBytes("id=test&pwd=test&content=" + TextBox3.Text + "&mobile=" + TextBox2.Text + "&sendtime=" + TextBox1.Text)

        Else

            d = System.Text.Encoding.UTF8.GetBytes("id=test&pwd=test&content=" + TextBox3.Text + "&mobile=" + TextBox2.Text + "&sendtime=0")

        End If

        Dim res As Byte() = web.UploadData("http://ls5588.vicp.cc:8090", "POST", d)

        TextBox4.Text = System.Text.Encoding.Default.GetString(res)

    End Sub

End Class