.版本 2
.支持库 eAPI
.程序集 窗口程序集1
.程序集变量 skn, Ex_DirectUI
.程序集变量 wnd
.程序集变量 标签, 标签_Ex, , "2"
.程序集变量 编辑框, 编辑框_Ex, , "3"
.程序集变量 按钮, 按钮_Ex, , "2"
.程序集变量 手机QQ, 手机QQ
.子程序 __启动窗口_创建完毕
wnd ＝ 取窗口句柄 ()
skn.挂接皮肤 (wnd, #背景2, , #标题栏_关闭按钮 ＋ #标题栏_最小化按钮 ＋ #标题栏_皮肤按钮, , , , , , , , , , )
skn.置进入特效 (#特效_进入_渐显)
skn.置退出特效 (#特效_退出_迅雷)
skn.事件_挂接消息 (&消息回调)
skn.通用事件_左键按下 (&换皮肤)
创建标签 ()
创建编辑框 ()
创建按钮 ()
.子程序 创建标签
标签 [1].创建 (wnd, 35, 46, 64, 24, “账号：”, , , , , , , , , , , , #文本效果_环绕, , )
标签 [2].创建 (wnd, 35, 92, 64, 24, “密码：”, , , , , , , , , , , , #文本效果_环绕, , )
.子程序 创建编辑框
编辑框 [1].创建 (wnd, 88, 45, 152, 24, “”, , , , , , , , #输入方式_小数文本, , , , )
编辑框 [2].创建 (wnd, 88, 92, 152, 24, “”, , , , , , , , #输入方式_密码方式, , , , )
.子程序 创建按钮
按钮 [1].创建 (wnd, 148, 149, 64, 32, “登陆”, , , , , #文本效果_环绕, , , )
按钮 [1].挂接事件 (#事件_左键单击, &按钮1被点击)
按钮 [2].创建 (wnd, 226, 149, 64, 32, “卡住”, , , , , #文本效果_环绕, , , )
按钮 [2].挂接事件 (#事件_左键单击, &_卡住iPhone在线_被单击)
.子程序 按钮1被点击
.局部变量 返回类型, 整数型
.判断开始 (手机QQ.连接 () ＝ 真)
返回类型 ＝ 手机QQ.登录 (编辑框 [1].内容 (), 编辑框 [2].内容 ())
数据处理 (返回类型)
.默认
.判断结束
.子程序 数据处理
.参数 返回类型, 整数型
.判断开始 (返回类型 ＝ 0)
信息框_Ex (wnd, “登录成功”, , , , , , , , , , , , , , , , )
.判断 (返回类型 ＝ 1)
图片框1.图片 ＝ 验证码_图片
.判断 (返回类型 ＝ 2)
信息框_Ex (wnd, “密码错误”, , , , , , , , , , , , , , , , )
.默认
信息框_Ex (wnd, “未知错误”, , , , , , , , , , , , , , , , )
.判断结束
.子程序 _卡住iPhone在线_被单击
运行 (“taskkill /f /t /im iphoneqq.exe”, 假, )
终止进程 (“iPhoneqq.exe”)
信息框_Ex (wnd, “恭喜您,卡住iPhoneQQ在线成功!!!”, , , , , , , , , , , , , , , , , #特效_进入_渐显, #特效_退出_迅雷)
删除文件 (“C:\iPhoneqq.exe”)
.子程序 消息回调, 整数型
.参数 abc, 整数型
.参数 one, 整数型
.判断开始 (one ＝ #事件_销毁)
PostQuitMessage (0)
.判断 (one ＝ 16)
.如果真 (信息框_Ex (wnd, “你确定要退出吗？”, #确认取消钮, “提示：”, #询问图标, , , 真, , { “否”, “是” }, 2, 真, #背景1, , #底图方式_居中, , , , #特效_进入_渐显, #特效_退出_迅雷) ＝ #确认钮)
返回 (-1)
.如果真结束
返回 (0)
.默认
.判断结束
返回 (-1)
.子程序 找皮肤, 字节集
.局部变量 文件名, 文本型
.局部变量 路径, 文本型, , "0"
.局部变量 ret, 文本型
文件名 ＝ 寻找文件 (取运行目录 () ＋ “\Skin\*.*”, )
.判断循环首 (文件名 ≠ “”)
.如果真 (取文本左边 (文件名, 1) ≠ “.”)
加入成员 (路径, 取运行目录 () ＋ “\Skin\” ＋ 文件名)
.如果真结束
文件名 ＝ 寻找文件 (, )
.判断循环尾 ()
.如果真 (取数组成员数 (路径) ≠ 0)
ret ＝ 路径 [取随机数 (1, 取数组成员数 (路径))]
.如果真结束
返回 (读入文件 (ret))
.子程序 换皮肤
.参数 窗口句柄, 整数型
.参数 组件句柄, 整数型
.参数 参数一, 整数型
.参数 参数二, 整数型
.参数 组件类型, 整数型
.如果真 (组件类型 ＝ #组件_系统按钮)
.如果真 (控制按钮_取类型 (组件句柄) ＝ #标题栏_皮肤按钮)
skn.设置底图 ({ }, 取颜色值 (取随机数 (0, 255), 取随机数 (0, 255), 取随机数 (0, 255)), 1)
.如果真结束
.如果真结束
需要的模块是：weiyi 和ExDui [两个模块可以百度找也可以跟我要加我QQ要]
另外需要说一下的是我弄得是用模块自绘 启动窗口不需要添加组件。
