Winsock 组件安装及示范代码(利用139邮箱发免费手机短信)

wcymiss · 发表于 2014-5-27 12:20

收藏学习。
顺便再贴一个xmyjk大师的winsock作品：http://club.excelhome.net/forum. ... p;page=1#pid5934736

kangatang · 发表于 2014-5-27 15:52

wcymiss 发表于 2014-5-27 12:20
收藏学习。
顺便再贴一个xmyjk大师的winsock作品：http://club.excelhome.net/forum.php?mod=viewthread&t ...

像你这样聪敏好学，触类就旁通了

592rmb · 发表于 2014-5-27 16:25

无效的外部过程是怎么回事啊？

kangatang · 发表于 2014-5-27 16:28

592rmb 发表于 2014-5-27 16:25
无效的外部过程是怎么回事啊？

你运行1楼VBS附件了？请上传出错窗口图片

592rmb · 发表于 2014-5-27 16:35

本帖最后由 592rmb 于 2014-5-27 16:38 编辑

运行了的,不知道怎么回事

592rmb · 发表于 2014-5-27 16:39

终于学会上传图片了

kangatang · 发表于 2014-5-27 20:47

本帖最后由 kangatang 于 2014-5-27 20:55 编辑

liucqa 发表于 2014-5-27 00:33
winhttp据说可以获取 httponly的cookie，你可以再研究研究

经过测试winhttp方法也可以。wcymiss 已经实现。我之所以不能用winhttp方法。因为我用的邮箱接口是WAP版的 (http://wapmail.10086.cn/index.htm)  而miss wu用的是电脑网页版的 (http://mail.10086.cn/default.html).  分别用winhttp访问两接口。

'正常
With CreateObject("WinHttp.WinHttpRequest.5.1")'
      .Open "GET", "http://mail.10086.cn/default.html", False
      .send
msgbox .responsetext
End With

'出错
With CreateObject("WinHttp.WinHttpRequest.5.1")'
      .Open "GET", "http://wapmail.10086.cn/index.htm", False
      .send
msgbox .responsetext
End With

我也不知道为什么会这样。。。。如果Winhttp可以用，我也不需要那么辛苦地求助于WINSOCK了。

kangatang · 发表于 2014-5-27 20:54

592rmb 发表于 2014-5-27 16:35
运行了的,不知道怎么回事

我放在2楼的代码是不完整的。当然出错。不打算公开，也希望别人不去公开。你知道，飞信接口就是因为滥用而被网站限制又限制。而翼聊接口就干脆被关闭了。

liucqa · 发表于 2014-5-27 22:18

kangatang 发表于 2014-5-27 20:47
经过测试winhttp方法也可以。wcymiss 已经实现。我之所以不能用winhttp方法。因为我用的邮箱 ...

加上
.setRequestHeader "User-Agent", "Mozilla/5.0 (compatible; MSIE 9.0; Windows NT 6.1; Trident/7.0)"

测试通过

yishang3 · 发表于 2014-10-1 19:23

楼主发一个发邮箱的附件更实用呀！VBA新手，正需要这样的东东！

		自动登录	找回密码
密码			免费注册

[原创] Winsock 组件安装及示范代码(利用139邮箱发免费手机短信)

评分