主题：直接运行代码可以发送短信，采用页面后就无法发送短信，麻烦老师看看！

Dim e As RequestEventArgs = args(0)

Dim wb As New weui

If e.PostValues.Count = 0 Then

    wb.AddForm("","form1","sem.htm")

    With wb.AddInputGroup("form1","ipg1","信息编辑")

        .AddInput("电话号码","电话号码","text")

    End With

    With wb.AddInputGroup("form1","ipg2","信息内容")

        .AddTextArea("信息内容",10).Placeholder = "请输入500字以内的信息内容"

    End With

    With wb.AddButtonGroup("form1","btg1",True)

        .Add("btn1", "确定", "submit")

    End With

    e.WriteString(wb.Build)

Else

    Dim t As Date= Date.Now

    Dim t1 As String =Format(Date.Now, "yyyMMddHHmmss")

    Dim Val As String = Rand.Next(1000) '

    Dim s As String = val.PadLeft(4, "0")

    Dim password As String= "qnrmjcy " '接入密码

    Dim t2 As String = password & t1 & s

    Dim account As String = "85154 "  '接入账号

    Dim serviceCode As String = "1065712 " '接入号

    Dim authCode As String = System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(t2, "MD5")

    Dim reqNo As String = t1 & s

    Dim msisdn As String =e.PostValues.ContainsKey("电话号码")

    Dim sem As String =e.PostValues.ContainsKey("信息内容")

    MessageBox.Show(sem)

    Output.Show(sem) '改为发送的代码'

    Dim content1 As String =Functions.Execute("utf8",sem)

    Dim hc1 As New HttpClient("http://218.201.202.174:8900/smstemp/http/sendSms?account="&account.Trim()&"&reqNo="&reqNo.Trim()&"&authCode="&authCode.Trim()&"&serviceCode="&serviceCode.Trim()&"&msisdn="&msisdn.Trim()&"&c&msgType=0")

    Dim ret1 As String = hc1.GetData()

    output.show(ret1)

    MessageBox.Show(sem) '改为发送的代码'

    With wb.AddMsgPage("","msgpage","增加成功", "好好学习,天天向上") '生成成功提示页

        .AddButton("btn1","继续增加","sem.htm")

    End With

    e.WriteString(wb.Build)

End If

Dim szInput As String = Args(0)