主题：[分享]在http://www.810086.com.cn/网站平台发送短信的方法

经过琢磨，本人在论坛分享“飞信发送短信”的基础上，琢磨出在http://www.810086.com.cn/网站平台发送短信的方法，发送速度快，大家可以一试。特别简单哦。本人已整合到自己的小软件上，测试成功。平台扣扣：2355700795.（附件中有参数说明）

Dim txt As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim info As String = ""

For Each r As Row In Tables("表A").Rows
    Info += "正在发送第 " & r.Index + 1 & " 行信息.....第一次连接需要较长时间" & vbcrlf
    txt.Text = Info

    '这段是核心内容,参数依次是 zh平台账号,mm平台密码,sms_type通道编号.余同.
    Dim web As New System.Windows.Forms.WebBrowser()
    web.Navigate("http://www.810086.com.cn/jk.aspx?zh=123456&mm=123456&sms_type=49&hm=" & r("好友手机") & "&nr=" & System.Web.HttpUtility.URLEncode(r("发送内容")) )
    Do Until web.ReadyState = 4
        Application.DoEvents
    Loop
   
    info += web.Document.Body.InnerText & vbcrlf & vbcrlf
    txt.Text = Info
Next

txt.Text = Info & "---发送完毕---"