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

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)