分享下永久挂爱疯的源码[非原创]

社区服务
高级搜索
猴岛论坛电脑百科分享下永久挂爱疯的源码[非原创]
发帖 回复
正序阅读 最近浏览的帖子最近浏览的版块
5个回复

分享下永久挂爱疯的源码[非原创]

楼层直达
qq1609874069

ZxID:19169093

等级: 新兵
举报 只看楼主 使用道具 楼主   发表于: 2013-08-19 0

.版本 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要]
另外需要说一下的是我弄得是用模块自绘 启动窗口不需要添加组件。
-
xiaohy741

ZxID:28045899

等级: 上士
-  -一天一天就这样过了,哎唉aii
举报 只看该作者 5楼  发表于: 2013-10-01 0
......楼主你想表达什么?

际遇之神

奖励

不小心在路边拣到一个信封, 发现里面原来有3DB

bfg75ee

ZxID:29785577

等级: 列兵
举报 只看该作者 4楼  发表于: 2013-09-27 0
不好看
独木的故事

ZxID:17528676

等级: 中士
举报 只看该作者 地板   发表于: 2013-08-21 0
晕 去哪下载 就没上传 坑
独木的故事

ZxID:17528676

等级: 中士
举报 只看该作者 板凳   发表于: 2013-08-21 0
谢谢分享 试试2开头的能用不
2014

ZxID:21900290

等级: 元老
     ๑热心会员๑      ๑值得拥有๑

举报 只看该作者 沙发   发表于: 2013-08-19 0
直接发源码多好。
引用
« 返回列表
发帖 回复