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