国产片在线看-国产片自拍-国产片欧美片亚洲片久久综合-国产片性视频免费播放-91福利区-91福利在线观看视频

發(fā)送短信的內(nèi)容，整體做用urlencode。短信的格式為：【簽名】放在內(nèi)容的最前方。
示范：【創(chuàng)信信息】您本次注冊(cè)的驗(yàn)證碼是：888888，
其中簽名可根據(jù)自己公司的名稱或簡稱自定義，字?jǐn)?shù)為2-8字，不可以是純數(shù)字，電話號(hào)碼或者網(wǎng)址，不可以是無意義的簽名，比如【大家好】;【哈哈哈】;【提示】;【測(cè)試】等
正確示例：【創(chuàng)信信息】，【京東】，【百度】，【工商銀行】
錯(cuò)誤示例：【你好】，【通知】，【測(cè)試一下】，【哈哈哈】，【123123】

 公共類WebForm1 
繼承System.Web.UI.Page 

受保護(hù)的子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（）'驗(yàn)證帳號(hào)
web.Headers.Add（"Content-Type"，"application / x-www-form-urlencoded"）
Dim d As Byte（）= System.Text。 Encoding.UTF8.GetBytes（"userid =你的ID＆密碼=你的密碼＆帳號(hào)=你的賬號(hào)"）
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） 
結(jié)束子

受保護(hù)的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＆密碼=你的密碼＆帳號(hào)=你的賬號(hào)"）
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（）'發(fā)送短信
web.Headers.Add（"Content-Type"，"application / x-www-form-urlencoded"）
Dim d As Byte（）
d = System.Text.Encoding.UTF8.GetBytes（"userid =你的ID＆密碼=你的密碼＆account =你的賬號(hào)＆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