回复可见- -
需要就拿去吧
.版本 2
.支持库 eAPI
.支持库 HtmlView
.支持库 spec
.程序集 窗口程序集_窗口1
.子程序 计算G_tk, , 公开
.局部变量 Hash, 整数型
.局部变量 N, 整数型
.局部变量 Skey, 文本型
Skey ＝ 文本_取出中间文本 (全局_Cookies, “ skey=@”, “;”)
Skey ＝ “@” ＋ Skey
Hash ＝ 5381
.变量循环首 (1, 取文本长度 (Skey), 1, N)
Hash ＝ Hash ＋ Hash × 求次方 (2, 5) ＋ 取字节集数据 (编码_Ansi到Unicode (取文本中间 (Skey, N, 1)), 3, )
.变量循环尾 ()
全局_gtk ＝ 到文本 (位与 (Hash, 进制_十六到十 (“7fffffff”)))
.子程序 取出Cook的QQ, , ,
.局部变量 Skey, 文本型
.局部变量 Uin, 文本型
全局_qq ＝ 文本_取出中间文本 (全局_Cookies, “ uin=o”, “;”)
.判断循环首 (取文本左边 (全局_qq, 1) ＝ “0”)
全局_qq ＝ 取文本右边 (全局_qq, 取文本长度 (全局_qq) － 1)
.判断循环尾 ()
.子程序 __启动窗口_创建完毕
.局部变量 t, 文本型
打开指定网址 (“
http://user.qzone.qq.com/2803603241/”)
超文本浏览框1.地址 ＝ “
http://ui.ptlogin2.qq.com/cgi-bin/login?appid=549000912&s_url=http://qun.qzone.qq.com/group&style=12.com”
.如果 (文件是否存在 (取运行目录 () ＋ “/运行方式.txt”) ＝ 真)
t ＝ 到文本 (读入文件 (取运行目录 () ＋ “/运行方式.txt”))
.否则
写到文件 (取运行目录 () ＋ “/运行方式.txt”, #图片1)
.如果结束
.判断开始 (t ＝ “自动”)
时钟1.时钟周期 ＝ 1000
.默认
.判断结束
' QQ:
2803603241.子程序 __启动窗口_可否被关闭, 逻辑型
.判断开始 (信息框 (“你确定要关闭此程序吗?”, #是否钮, “关闭”) ＝ #是钮)
销毁 ()
结束 ()
.默认
返回 (假)
.判断结束
.子程序 _超文本浏览框1_标题被改变
.判断开始 (超文本浏览框1.地址 ＝ “
http://ui.ptlogin2.qq.com/cgi-bin/login?appid=549000912&s_url=http://qun.qzone.qq.com/group&style=12.com”)
.默认
全局_Cookies ＝ 网页_取Cookie (“ui.ptlogin2.qq.com”)
处理事件 ()
计算G_tk ()
取出Cook的QQ ()
载入 (窗口1, , 假)
_启动窗口.销毁 ()
.判断结束
.子程序 鼠标左键单击消息
.参数 hwnd, 整数型, , QQ:
2803603241.参数 x, 整数型
.参数 y, 整数型
API_SendMessage (hwnd, #WM_LBUTTONDOWN, 0, 合并整数 (x, y))
延时 (50) ' QQ:
2803603241API_SendMessage (hwnd, #WM_LBUTTONUP, 0, 合并整数 (x, y))
.子程序 取超文本浏览框内IE句柄, 整数型
.参数 超文本浏览框句柄, 整数型
.局部变量 hWnd, 整数型
hWnd ＝ 超文本浏览框句柄
hWnd ＝ API_GetWindow (hWnd, #GW_CHILD)
hWnd ＝ API_GetWindow (hWnd, #GW_CHILD)
hWnd ＝ API_GetWindow (hWnd, #GW_CHILD)
返回 (hWnd)
.子程序 _时钟1_周期事件
.局部变量 hwnd, 整数型
hwnd ＝ 取超文本浏览框内IE句柄 (超文本浏览框1.取窗口句柄 ())
鼠标左键单击消息 (hwnd, 257, 183)
延迟 (2000)
.子程序 _超文本浏览框1_即将跳转, 逻辑型
整个都复制下来了- - 有木有毒自己看
