公共類WebForm1
繼承System.Web.UI.Page
受保護的子Page_Load（ByVal sender As Object，ByVal e As System.EventArgs）處理Me.Load
End Sub
Protected Sub Button1_Click（ByVal sender As Object，ByVal e As EventArgs）處理Button1。單擊
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（"userid =你的ID＆密碼=你的密碼＆帳號=你的賬號"）
Dim res As Byte（）= web.UploadData（"http://dc.28intercom/sms.aspx ？action = checkkeyword"，"POST"，d）Dim str_res As String
str_res = System.Text.Encoding.GetEncoding（"utf-8"）。GetString（res）
Response。寫（str_res）
結束子
受保護的Sub Button2_Click（ByVal sender As Object，ByVal e As EventArgs）處理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（"userid =你的ID＆密碼=你的密碼＆帳號=你的賬號"）
Dim res As Byte（）= web.UploadData （“http://dc.28inter.com/sms.aspx?action=overage”，“POST”，d）Dim
str_res As String
str_res = System.Text.Encoding.GetEncoding（"utf-8"）。GetString（ res）
Response.Write（str_res）
End Sub
Protected Sub Button3_Click（ByVal sender As Object，ByVal e As EventArgs）處理Button3.Click
Dim web As New System.Net.WebClient（）'發送短信
web.Headers.Add（"Content-Type"，"application / x-www-form-urlencoded"）
Dim d As Byte（）
d = System.Text.Encoding.UTF8.GetBytes（"userid =你的ID＆密碼=你的密碼＆account =你的賬號＆content ="+ TextBox3.Text +"＆mobile =“+ TextBox2.Text"
Dim res As Byte（）= web.UploadData（“http://www.etanzhi.com/sms.aspx？action = send“，”POST“，d）Dim str_res As String
str_res = System.Text.Encoding.GetEncoding（"utf-8"）。GetString（res）
Response.Write（str_res）
End Sub
End Class | 
