请各位高手看看我的这个通过sms.sina.com.cn发送短消息的代码错在什么地方?

[chenhengxin]

本人参考以下网页:
http://expert.csdn.net/Expert/topic/2041/2041941.xml?temp=.4516107
我试过,在vb中能够成功发送,但我编写以下PB代码:
unsignedlong ulParam,result
string str,msgSend
int length
blob buf
ulParam=1

sClient.ioctlsocket(wsk.FIONBIO, ulParam)
result=wsk.inet_addr("sms.sina.com.cn")
sClient.wsconnect(result,80)
msgSend= "login=1&mobile="+Mobile+"&msg="+SMSmsg+"&sname="+NickName+"&user="+User+"&passwd="+PWD
Length = len(msgSend)
str=str + "POST /cgi-bin/sms/sendto.cgi HTTP/1.1" + char(13)+char(10)
str=str + "Accept: *.*" + char(13)+char(10)
str=str + "Accept-Language: zh-cn" + char(13)+char(10)
str=str + "Accept-Encoding: gzip , deflate" + char(13)+char(10)
str=str + "User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows 98)" + char(13)+char(10)
str=str + "Host::0" + char(13)+char(10)
str=str + "Content-Type: application/x-www-form-urlencoded" + char(13)+char(10)
str=str + "Content-Length: " + string(Length) + char(13)+char(10)
str=str + "Connection: Keep -Alive" + char(13)+char(10)
str=str + msgSend

buf=Blob(str)
sClient.send(buf,Len(buf),1)

sina的用户名和密码肯定没有错!但就是收不到短消息,请各位高手指点迷津!谢谢!

[qqjj7758]

很有趣 看看

[zhangdatou]

服了呀 学习

[ropriest]

牛！学习！：）

[dingzhaofeng]

我看到过这样的一个例程，不过没有试过，你搜索一下，会找到的，使用pb写的

[鸡翅多]

有意思，哈哈

[xyzliuin]

我有个例子，不过他用的动态连接库，你要的话，我发给你