2021qqkey
新版易语言获取QQKEY源码
.版本 2
.如果真 (hWnd > 0)
API_AtlAxGetControl (hWnd, This)
This.写属性 (“Silent”, 真) ' 静默
.循环判断首 ()
mber = This.读数值属性 (“ReadyState”, )
.判断开始 (mber = 0)
This.清除 ()
返回 (0)
.判断 (mber = 4)
跳出循环 ()
.默认
.判断结束
处理事件 ()
.循环判断尾 (真)
This.对象型方法 (“Document”, ).读对象型属性 (“parentWindow”, ).逻辑方法 (“execScript”, #常量1, “JavaScript”)
InnerText = 分割文本 (This.对象型方法 (“Document”, ).对象型方法 (“body”, ).读文本属性 (“innerText”, ), “;”, )
.计次循环首 (取数组成员数 (InnerText), i)
dwText = 分割文本 (InnerText [i], “|”, )
.如果真 (取数组成员数 (dwText) ≥ 3)
dwSize.uin = dwText [1]
dwSize.name = dwText [2]
dwSize.key = dwText [3]
加入成员 (size, dwSize)