我用vc编写了个程序,测试成功了,哈哈,感觉就是爽!
原理就是利用http协议,模拟网页浏览器的功能将字符发送过去即可。
原理就是利用http协议,模拟网页浏览器的功能将字符发送过去即可。
解决方案 »
- 关于winsock控件
- VB 编写的 验证码功能 请求帮助
- [求助]Adodc突然不能访问SQL,大家帮忙看一下是怎么回事
- 问一个在ActiveReport报表中很基本的问题
- 树形目录中点击a: ,g:驱动器,出来实时错误 '68' ---设备不可用.该如何检查驱动器是否准备好?
- 请帮忙修改 Ultimate Frontend (终极命令行前端)[仅76KB, GPL]
- 如何控制另一程序的Toolbar的按钮的可用性(Enable)
- 这样的窗口怎样实现(袁飞在吗)?
- vb串口小问题
- vb嵌套循环?
- 怎样做绿色软件的卸载程序?
- SQL SErver中的Numeric字段类型在VB中对应哪一种变量类型?
email:[email protected]
'參數:?User = 自己手机號&; pwd = 密碼&; rcv = 接收方手机號碼&; msg = 經過url編碼的內容
strData.Protocol = icHTTP
strData.RequestTimeout = 10
Info = "http://sms.sina.com.cn/cgi-bin/ccgi/esina?user=" & Rst!MobilePhone & "&pwd=" & Rst!NPassWord & "&rcv=" & 手机?? & "&msg=" & Server.HTMLEncode(信息)
If BackInfo = "" Or IsNumeric(Left(BackInfo, 2)) = False Then BackInfo = "信息?送失?"
End If
?是是用新浪的手机?送端信:
1、要有自己注??的手机密?和??
2、必?要?信息Server.HTMLEncode??;[引用Micoroft Webclass Library]在信息后?缺了?送,抱歉
BackInfo = strData.OpenURL(Info, 0)
If BackInfo = "" Or IsNumeric(Left(BackInfo, 2)) = False Then BackInfo = "信息?送失?"不好意,我也是從別的地方搞來的 ,在我這沒搞定。
假如 誰搞定了 給 email [email protected]
要的话,发份信给我
[email protected]
给俺一个,如果需要,咱也另开贴,给高分
请24小时内到jsuny.myetang.com/cmpp120.zip下载。过期删除。
请发一份
[email protected]
http://lihuasoft.go163.net