Foxtable(狐表)用户栏目专家坐堂 → 发送短信代码,好难搞呀,请帮忙!


  共有24770人关注过本帖树形打印复制链接

主题:发送短信代码,好难搞呀,请帮忙!

帅哥哟,离线,有人找我吗?
bad
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:148 积分:1406 威望:0 精华:0 注册:2008/9/10 16:41:00
发送短信代码,好难搞呀,请帮忙!  发帖心情 Post By:2011/10/7 16:22:00 [只看该作者]

Dim tel As String = e.form.Controls("TextBox2").Value '手机号码输入框名称
Dim msg As String = e.form.Controls("TextBox1").Value '短信内容输入框名称
Dim url As String
Dim http As Object

 

url = "http://service.winic.org:8009/sys_port/gateway/?id=sdytgs&pwd=888888&to=接收短信手机号码&content=短信内容&time="

 

http = CreateObject("MSXML2.XMLHTTP")
http.Open("get", url, False)
http.send()
MessageBox.Show("返回信息:" & http.responseText)

 

上面中间红色这一段,想将短信内容换为 msg ,  手机号码换为 tel ,怎么弄呀?谢谢!!


 回到顶部