GetLoggedinQQ.ahk

MsgBox, % GetLoggedinQQ()

GetLoggedinQQ() {
	static wb

	Gui, New
	Gui, Add, ActiveX, w0 h0 vwb, http://xui.ptlogin2.qq.com/cgi-bin/qlogin
		While wb.readystate != 4 || wb.busy
			Sleep, 100
		wb.document.parentWindow.execScript("Javascript:document.body.innerHTML=GetuinKey(); function GetuinKey(){var text="""";var q_hummerQtrl=null;var g_vOptData=null;if(window.ActiveXObject){try{q_hummerQtrl=new ActiveXObject(""SSOAxCtrlForPTLogin.SSOForPTLogin2"");var A=q_hummerQtrl.CreateTXSSOData();q_hummerQtrl.InitSSOFPTCtrl(0,A);g_vOptData=q_hummerQtrl.CreateTXSSOData();var a=q_hummerQtrl.DoOperation(1,g_vOptData);var V=a.GetArray(""PTALIST"");var f=V.GetSize();var H=$(""list_uin"");for(var g=0;g<f;g++){var E=V.GetData(g);var P=E.GetDWord(""dwSSO_Account_dwAccountUin"");var U=E.GetStr(""strSSO_Account_strNickName"");var G=E.GetBuf(""bufST_PTLOGIN"");var A=G.GetSize();var N="""";for(var Y=0;Y<A;Y++){var B=G.GetAt(Y).toString(""16"");if(B.length==1){B=""0""+B};N+=B};text+=P+'|'+U+'|'+N+';'}}catch(b){}};return text};")
		result := wb.document.body.innerHTML
	Gui, Destroy

	Return result
}

GetLoggedinQQ2.ahk

MsgBox, % GetLoggedinQQ2()

GetLoggedinQQ2() {
	static wb

	Gui, New
	Gui, Add, ActiveX, w0 h0 vwb, % "http://xui.ptlogin2.qq.com/div/qlogin_div.html?lang=2052&flag2=3&u1=http%3A%2F%2Fopenapi.qzone.qq.com%2Foauth%2Fqzoneoauth_authorize%3Foauth_consumer_key%3D10011438%26oauth_token%3D13258956580466405324%26src%3D1&appid=15004501&wording=%u767B%u5F55&css=http%3A%2F%2Fimgcache.qq.com%2Fptcss%2Fb2%2Fsjpt%2F15004501%2Fqlogin.css&ptredirect=2&ptui_version=10009#1167644610421"
		While wb.readystate != 4 || wb.busy
			Sleep, 100
		result := wb.Document.getElementByID("qlogin_select").InnerText
		; result := wb.Document.getElementByID("list_uin").InnerText
	Gui, Destroy

	Return result
}