perl weixin 登陆

GET URL：
https://login.weixin.qq.com/cgi-bin/mmwebwx-bin/login?loginicon=true&uuid=4fVPJo_Jkw==&tip=1&r=1921101475&_=1454072811136

参数:

_	        1454072811136
loginicon	true
r	        1921101475
tip      	1
uuid	    4fVPJo_Jkw==
"手机微信扫码成功，请在手机微信上点击 [登录] 按钮...后

把my $show_tip = 0;

GET URL:
https://login.weixin.qq.com/cgi-bin/mmwebwx-bin/login?loginicon=true&uuid=4fVPJo_Jkw==&tip=0&r=1921087898&_=1454072811137

返回:
window.code=200;
window.redirect_uri="https://wx.qq.com/cgi-bin/mmwebwx-bin/webwxnewloginpage?ticket=AazAjnUKYDH8jZJMoCSzTHvD@qrticket_0&uuid=4fVPJo_Jkw==&lang=zh_CN&scan=1454072830";

返回ticket=AazAjnUKYDH8jZJMoCSzTHvD@qrticket_0

scan=1454072830



r是随机产生的 没太大意义

perl 程序:

"https://login.weixin.qq.com/cgi-bin/mmwebwx-bin/login?loginicon=true&uuid=$uuid&tip=$show_tip&r=-$now&_=$now";