.版本 2
.支持库 spec
.程序集 程序集1
.子程序 _启动子程序, 整数型, , 请在本子程序中放置动态链接库初始化代码
_临时子程序 () ' 在初始化代码执行完毕后调用测试代码
返回 (0) ' 返回值被忽略。
.子程序 _临时子程序
.局部变量 QQ, UinKey, , "0"
.局部变量 i, 整数型
.计次循环首 (GetuinKey (QQ), i)
调试输出 (QQ .uin, QQ .name, QQ .key)
.计次循环尾 ()
.子程序 GetuinKey, 整数型, 公开, SnowSnow;
.参数 size, UinKey, 参考 可空 数组
.局部变量 hWnd, 整数型
.局部变量 This, 对象
.局部变量 mber, 整数型
.局部变量 InnerText, 文本型, , "0"
.局部变量 dwText, 文本型, , "0"
.局部变量 dwSize, UinKey
.局部变量 i, 整数型
清除数组 (size)
.如果真 (This.创建 (“SSOAxCtrlForPTLogin.SSOForPTLogin2”, ) ＝ 假)
调试输出 (“请先安装腾讯网页快速登录控件。”)
返回 (0)
.如果真结束
This.清除 ()
API_AtlAxWinInit ()
hWnd ＝ API_CreateWindowEx (0, “AtlAxWin”, “http://xui.ptlogin2.qq.com/cgi-bin/qlogin”, 0, 0, 0, 0, 0, 0, 0, 0, 0)
.如果真 (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 , “|”, )
.如果真 (取数组成员数 (dwText) ≥ 3)
dwSize.uin ＝ dwText [1]
dwSize.name ＝ dwText [2]
dwSize.key ＝ dwText [3]
加入成员 (size, dwSize)
.如果真结束
.计次循环尾 ()
This.清除 ()
API_SendMessage (hWnd, 16, 0, 0) ' 最后销毁窗口
.如果真结束
返回 (取数组成员数 (size))
QQ交流群226200416
直接将以上代码复制易语言空白工程中运行就可以在调试窗口看到你本机的QQ号码,QQ名称与QQKEY了！
