标题：[原创]发送短信代码问题？

首先承认没有好好学习，求大家帮忙，我在网上申请了短息二次开发的接口，现在情况是这样子的，我把下面的代码写在按钮的单击事件里面，试运行点击可以按照代码发送信息，可是怎样才能在窗口的面板里面实现新输入的号码和内容发送啊，手机号码表格的字段是：sjhm，发送内容是：fsnr，我主要是不会写格式，求老师指点！

 

代码：Dim url As String
Dim http As Object
url = "http://218.246.34.171/daredo/pushsms/mingxun_mt_rpt_l.jsp?CP_ID=155901&CP_PASSWORD=21073&PHONE=15901271109&DELIVEROID=0&MSG=接口测试&SPNUMBER=100301&SVCTYPE=TEST&LINKID=TEST&AUTHCODE= TEST"
http = CreateObject("MSXML2.XMLHTTP")
http.Open("get", url, False)
http.send()
MessageBox.Show("返回信息:" & http.responseText)

 

 

此主题相关图片如下：窗口.png

求解！！！！！

Dim tel As string = e.form.Controls("手机号码输入框名称").Value
Dim msg As string = e.form.Controls("短信内容输入框名称").Value
Dim url As String
Dim http As Object
url = "http://218.246.34.171/daredo/pushsms/mingxun_mt_rpt_l.jsp?CP_ID=155901&CP_PASSWORD=21073&PH&DELIVEROID=0&MSG=" & msg & "&SPNUMBER=100301&SVCTYPE=TEST&LINKID=TEST&AUTHCODE= TEST"
http = CreateObject("MSXML2.XMLHTTP")
http.Open("get", url, False)
http.send()
MessageBox.Show("返回信息:" & http.responseText)

狐爸你太伟大了！