|
楼主 |
发表于 2012-3-3 14:25:42
|
显示全部楼层
河南省焦作市
.版本 2
.支持库 xplib
.支持库 iext
.支持库 internet
.支持库 TrayIcon
.支持库 eAPI
.支持库 HtmlView
.程序集 窗口程序集1
.程序集变量 窗口坐标, 坐标型
.程序集变量 游戏窗口H, 整数型
.程序集变量 游戏窗口W, 整数型
.程序集变量 通用速度, 整数型
.程序集变量 窗口ID, 整数型
.程序集变量 开始时间, 整数型
.子程序 __启动窗口_创建完毕
.局部变量 命令行, 文本型, , "0"
.局部变量 命令行数组成员数, 整数型
.局部变量 验证命令, 文本型
XP风格 (1)
取命令行 (命令行)
命令行数组成员数 = 0
.如果真 (取数组成员数 (命令行) > 0)
.循环判断首 ()
命令行数组成员数 = 命令行数组成员数 + 1
验证命令 = 验证命令 + 命令行 [命令行数组成员数]
.循环判断尾 (取数组成员数 (命令行) > 命令行数组成员数)
.如果真结束
.如果 (验证命令 = “start呱呱精灵5920”)
检测版本 ()
状态条1.加入栏目 (“脚本未开始!”, -1, , , )
监视热键 (&开始挂机, #F11键, , )
监视热键 (&停止挂机, #F12键, , )
.否则
信息框 (“程序非法调用!”, 0, “呱呱提示:”)
结束 ()
.如果结束
.子程序 检测版本
.局部变量 下载地址, 文本型
.局部变量 信息, 文本型
.局部变量 文件ming, 文本型
文件ming = 到文本 (取随机数 (, ))
写到文件 (取特殊目录 (1) + “/” + 文件ming + “.txt”, HTTP读文件 (“http://www.csoljl.com/ver59203210.txt”))
下载地址 = 读配置项 (取特殊目录 (1) + “/” + 文件ming + “.txt”, “Ver”, “下载地址”, )
.如果 (读配置项 (取特殊目录 (1) + “/” + 文件ming + “.txt”, “Ver”, “版本”, ) ≠ “Ver1.0”)
.如果真 (下载地址 = “”)
下载地址 = “http://www.csoljl.com/”
.如果真结束
.如果真 (信息框 (“发现最新版本,是否下载?”, #询问图标 + #确认取消钮, “提示”) = #确认钮)
打开网页2 (下载地址)
.如果真结束
结束 ()
.否则
信息 = 读配置项 (取特殊目录 (1) + “/” + 文件ming + “.txt”, “Ver”, “信息”, “当前为最新版本!”)
信息框 (信息, 0, “友情提示:”)
.如果结束
.子程序 开始挂机
窗口ID = 取当前窗口 ()
.如果真 (取窗口进程 (窗口ID) = “cstrike-online.exe”)
.如果真 (组合框_速度.现行选中项 = 0)
通用速度 = 2000
.如果真结束
.如果真 (组合框_速度.现行选中项 = 1)
通用速度 = 3000
.如果真结束
.如果真 (组合框_速度.现行选中项 = 2)
通用速度 = 4000
.如果真结束
窗口坐标 = 取窗口内顶点 (取当前窗口 ())
取窗口内大小 (取当前窗口 (), 游戏窗口W, 游戏窗口H)
时钟_找开始游戏.时钟周期 = 通用速度
时钟_找阵营.时钟周期 = 4500
时钟_检测YY.时钟周期 = 300000
状态条1.置文本 (1, “脚本已开始!”)
Beep (400, 100)
Beep (500, 100)
开始时间 = 取启动时间 ()
托盘图标_嗨吧.图标 = #运行图标
托盘图标_嗨吧.托盘信息框 (“呱呱提示:”, “脚本已开始!”, 1, 5000)
_时钟_检测YY_周期事件 ()
.如果真结束
.子程序 _时钟_找阵营_周期事件
.局部变量 阵营坐标, 坐标型
阵营坐标 = 新识图.找颜色 (6409194, , 窗口坐标.x + 970, 窗口坐标.y + 80, 窗口坐标.x + 990, 窗口坐标.y + 100, , 3, )
.如果真 (阵营坐标.x ≠ -1)
.如果 (组合框_阵营.现行选中项 = 0)
模拟鼠标点击 (窗口坐标.x + 460, 窗口坐标.y + 120, 0)
.否则
模拟鼠标点击 (窗口坐标.x + 815, 窗口坐标.y + 120, 0)
.如果结束
时钟_刷雷.时钟周期 = 0
.如果真结束
按键 (#回车键, 3, )
.子程序 _时钟_找开始游戏_周期事件
.局部变量 开始坐标, 坐标型
新识图.傻瓜式找图 (窗口坐标.x + 900, 窗口坐标.y + 525, 窗口坐标.x + 930, 窗口坐标.y + 545, #开始游戏, 90, 开始坐标.x, 开始坐标.y)
.如果真 (开始坐标.x ≠ -1)
文本投递 (窗口ID, “GGJL YY:59203210 www.csoljl.com”)
按键 (#回车键, 50, )
_启动窗口.标题 = “ * * * 上 局 用 時 : ” + 到文本 ((取启动时间 () - 开始时间) ÷ 1000) + “ 秒 * * * ”
模拟鼠标点击 (开始坐标.x + 5, 开始坐标.y - 5, 0)
开始时间 = 取启动时间 ()
.如果 (选择框_自雷.选中 = 真)
时钟_刷雷.时钟周期 = 1500
.否则
时钟_刷雷.时钟周期 = 0
.如果结束
.如果真结束
.如果真 (取启动时间 () - 开始时间 > 300000)
.如果真 (选择框_蜂鸣声.选中 = 真)
Beep (500, 500)
.如果真结束
.如果真结束
按键 (#回车键, 3, )
.子程序 _时钟_刷雷_周期事件
按键2 (#PageDown键, 3, )
鼠标键2 (1, 2)
鼠标键2 (1, 4)
.子程序 停止挂机
按键 (#PageDown键, 4, )
按键 (#回车键, 4, )
时钟_找开始游戏.时钟周期 = 0
时钟_找阵营.时钟周期 = 0
时钟_刷雷.时钟周期 = 0
时钟_检测YY.时钟周期 = 0
.如果真 (时钟_找阵营.时钟周期 = 0 或 时钟_刷雷.时钟周期 = 0 或 时钟_找开始游戏.时钟周期 = 0 或 时钟_检测YY.时钟周期 = 0)
状态条1.置文本 (1, “脚本已停止!”)
Beep (500, 100)
Beep (400, 100)
托盘图标_嗨吧.图标 = #停止图标
托盘图标_嗨吧.托盘信息框 (“呱呱提示:”, “脚本已停止!”, 1, 5000)
.如果真结束
.子程序 __启动窗口_将被销毁
托盘图标_嗨吧.置托盘图标 (, )
信息框 (“脚本已退出”, 0, )
结束 ()
.子程序 _按钮_隐藏_被单击
_启动窗口.可视 = 假
托盘图标_嗨吧.托盘信息框 (“呱呱提示:”, “窗口已隐藏到此处,用右键单击将弹出脚本窗口!”, 1, 10000)
.子程序 _托盘图标_嗨吧_托盘图标被右击
_启动窗口.可视 = 真
.子程序 _时钟_检测YY_周期事件
.如果真 (YY验证 (#YYID) = 0)
停止挂机 ()
.如果真 (选择框_蜂鸣声.选中 = 真)
时钟_报警.时钟周期 = 2000
.如果真结束
信息框 (“为了支持脚本发展,请挂一个YY到” + #YYID + “,谢谢合作!”, 0, )
时钟_报警.时钟周期 = 0
.如果真 (信息框 (“是否自动进入YY” + #YYID + “?”, #是否钮, “提示”) = #是钮)
超文本浏览框1.地址 = “ http://yy.duowan.com/go.html#” + #YYID
.如果真结束
.如果真结束
.子程序 YY验证, 整数型, , 返回登录此ID的数量
.参数 YYID, 文本型, , 需验证的YYID
.局部变量 窗口句柄, 整数型, , "0"
.局部变量 变量, 整数型
.局部变量 YY数量, 整数型
枚举窗口2 (窗口句柄)
YY数量 = 0
.计次循环首 (取数组成员数 (窗口句柄), 变量)
.如果真 (取窗口进程 (窗口句柄 [变量]) = “duospeak.exe”)
.如果真 (取类名 (窗口句柄 [变量]) = “YYChannelWindow”)
.如果真 (取文本左边 (取标题2 (窗口句柄 [变量]), 取文本长度 (YYID) + 3) = YYID + “ - ”)
YY数量 = YY数量 + 1
.如果真结束
.如果真结束
.如果真结束
.计次循环尾 ()
.如果真 (YY数量 = 0)
取句柄数组2 (窗口句柄, “duospeak.exe”, “YYChannelWindow”, )
.如果真 (取数组下标 (窗口句柄, ) ≠ 0)
.计次循环首 (取数组成员数 (窗口句柄), 变量)
.如果真 (取文本左边 (取标题 (窗口句柄 [变量]), 取文本长度 (YYID) + 3) = YYID + “ - ”)
YY数量 = YY数量 + 1
.如果真结束
.计次循环尾 ()
.如果真结束
.如果真结束
返回 (YY数量)
.子程序 _时钟_报警_周期事件
Beep (500, 500)
一会上图
|
|