加企鹅。。点10个人睡觉。。。新人混脸熟。我是骗子。我就是狗操的。

.版本 2
.支持库 HtmlView
.支持库 internet
.支持库 xplib

.程序集 窗口程序集1
.程序集变量 文本, 文本型
.程序集变量 地址, 文本型

.子程序 _超文本浏览框1_即将跳转, 逻辑型

地址 ＝ 超文本浏览框1.地址

.子程序 取指定内容, 文本型
.参数 文本, 文本型
.参数 前面的文本, 文本型
.参数 后面的文本, 文本型
.局部变量 a, 整数型
.局部变量 b, 整数型
.局部变量 c, 文本型

a ＝ 寻找文本 (文本, 前面的文本, , 假) ＋ 取文本长度 (前面的文本)
b ＝ 寻找文本 (文本, 后面的文本, , 假) － a
c ＝ 取文本中间 (文本, a, b)
返回 (c)

.子程序 _按钮1_被单击

文本 ＝ 到文本 (HTTP读文件 (“http://app.qqxy.qq.com/cgi-bin/act/a20100812icon/hide_icon.cgi?rid=0.2160092596812917&cmd=1&area=201&role=59672695063088809”))
输出调试文本 (文本)
标签1.标题 ＝ 取指定内容 (文本, #常量1, #常量2)

.子程序 _超文本浏览框1_载入完毕

.如果真 (寻找文本 (地址, “http://ptlogin2.qq.com/jump?clientuin=”, , 假) ≠ -1)
    标题 ＝ “QQ西游图标点亮器 by：猴岛论坛 ” ＋ 取指定内容 (地址, “clientuin=”, “&clientkey=”) ＋ “登录成功！”
    超文本浏览框1.地址 ＝ “http://qzs.qq.com/qzone/mobile/login.html”
.如果真结束



.子程序 __启动窗口_创建完毕

XP风格 (3)

谢谢分享

谢谢分享

e  w

早知道了

试试看哈