网站 › 『编程语言区』 › 领淘金币+淘里程.方便我们新手领取

walled 发表于 2017-2-19 01:43

领淘金币+淘里程.方便我们新手领取

本帖最后由 walled 于 2017-2-19 01:46 编辑

领淘金币+淘里程.方便我们新手领取
VBS代码：
Dim oShell
Set oShell = WScript.CreateObject ("WSCript.shell")
oShell.run "https://taojinbi.taobao.com/coin/userCoinDetail.htm"
wscript.Sleep 8888
' 打开【淘宝】请手动登录（保存登录密码下次方便）；脚本等待8秒

oShell.run "https://www.chaidu.com/App/Web/Taobao-Coin/"
wscript.Sleep 11111
' 打开【一键领取页面】请点击：领取金币，共130金币；脚本等待11秒

oShell.run "http://h5.m.taobao.com/vip/index3.html"
wscript.Sleep 6666
' 打开【手机淘宝客户端每日领淘金币】请点击：领取金币；脚本等待6秒

oShell.run "http://trip.taobao.com/mytrip/"
wscript.Sleep 6666
' 打开【每日领淘里程】请点击：领取里程；脚本等待6秒

oShell.run "http://trip.taobao.com/mytrip/?tvm=tvip"
wscript.Sleep 6666
' 打开【每日领淘里程】请点击：领取里程；脚本等待6秒

oShell.run "http://h5.m.taobao.com/trip/member/index.html"
wscript.Sleep 6666
' 打开【手机淘宝客户端每日领淘里程】请点击：领取里程；脚本等待6秒

oShell.run "http://taojinbi.taobao.com/coin/introduct.htm"
wscript.Sleep 666
' 打开【店铺签到】只有买过东西的店铺参加活动才会出现
msgbox "脚本执行完毕",64,"提示"
Set oShell = Nothing

独孤成 发表于 2017-2-19 10:22

感谢分享，我又开始每天领淘金币了

坑爹酱、 发表于 2017-2-19 02:13

{:1_918:}感谢分享 这个也有人发过

870844869 发表于 2017-2-19 02:35

赞成的！   我觉得不错！

禽兽。 发表于 2017-2-19 04:43

谢谢分享

黄河渡 发表于 2017-2-19 07:44

没有你截图里的那么多 不明白怎么用 有没有签到送淘金币的店家链接啊

lan2602144404 发表于 2017-2-19 08:01

这个不错，谢谢分享

wangpeng2050 发表于 2017-2-19 08:19

这个也有人发过

Shadow_hy 发表于 2017-2-19 08:53

哎呦 不错呀

macintosh 发表于 2017-2-19 09:13

#薅羊毛 支持分享～

Eleven 发表于 2017-2-19 09:37

用了很方便，谢谢楼主。

查看完整版本: 领淘金币+淘里程.方便我们新手领取