- 用户定义变量 jinyan=1260000 "当前级别升级需要经验"
- 用户定义变量 t=10 "隔多少分钟得到结果"
- 用户定义变量 fb=DropList{"1360×768分辨率1088×612窗口":3|"1440×900分辨率1280×720窗口":0|"1440×900分辨率1088×612窗口":2|"1024×768分辨率800×600窗口":1}=0 "选择屏幕和游戏窗口的分辨率类型//主程序部分"
- 注释:传说中的分割线=======================================================================================
- 标记 程序开始
- 调用 弹出窗口 "老大,我要开始了,单击确定继续程序," & t & " 分钟后知道结果!"
- 调用 判断分辨率类型()
- 调用 鉴别阶段()
- 注释:第一次鉴别是找到开始的经验
- 如果 q = 0 则
- 调用 弹出窗口 "请确认游戏运行正常,经验条没有被遮挡,分辨率正确!!!"
- 跳转到标记 程序结束
- 条件结束
- 令 kaishi = p
- 调用 延时阶段()
- 注释:第二次鉴别是找到设定时间结束时经验,两次使用的是一个子程序,可以节省代码,呵呵。个人认为用子程序是好习惯。!@ !
- 调用 鉴别阶段()
- 令 jieshu = p
- 调用 赋值阶段()
- 如果 zengliang = 0 则
- 调用 没有长经验()
- 跳转到标记 程序结束
- 条件结束
- 如果 w > 1 则
- 调用 总时间大于两个小时()
- 条件结束
- 如果 w = 1 则
- 调用 总时间一个小时()
- 条件结束
- 如果 w = 0 则
- 调用 总时间不到一个小时()
- 条件结束
- 如果 jy > 10000 则
- 令 jy = Fix(jy / 10000)
- 调用 弹出窗口 "你的本级升级所需的剩余经验呢约为 " & jy & " W余点!继续努力!"
- 否则
- 如果 jy > 1000 则
- 令 jy = Fix(jy / 1000)
- 调用 弹出窗口 "你的本级升级所需的剩余经验只有 " & jy & " 千余点!加油加油!"
- 否则
- 调用 弹出窗口 "你的本级升级所需的剩余经验约为 " & jy & " 点!很快就升级了!"
- 条件结束
- 条件结束
- 如果 g > 0 则
- 调用 剩余时间大于一个小时()
- 条件结束
- 如果 g = 0 则
- 调用 剩余时间不到一个小时()
- 条件结束
- 调用 弹出窗口 "本级升级效率是每分钟 " & i & " 点经验!"
- 注释:下面的代码是来估计完成时间的,把系统的时间和得到时间相加,并且判断是否大于24点的(因为挂机的一般都是晚上,^_^)
- 令 shi = Hour(Now) + g
- 令 fen = Minute(Now) + k
- 令 half = 0
- 如果 fen > 60 则
- 令 jinshi = Fix(fen / 60)
- 令 fen = fen - 60 * jinshi
- 令 shi = shi + jinshi
- 条件结束
- 如果 shi > 23 则
- 令 shi = shi - 24
- 条件结束
- 如果 shi > 12 则
- 令 shi = shi - 12
- 令 half = 1
- 条件结束
- 如果 half = 0 则
- 调用 弹出窗口 "预计本次升级结束时间为 " & shi & ":" & fen & " " & " Am!"
- 否则
- 调用 弹出窗口 "预计本次升级结束时间为 " & shi & ":" & fen & " " & " Pm!"
- 条件结束
- 调用 弹出窗口 "OK,我的工作是结束了哦,你还要继续呢!!!拜拜!!"
- 标记 程序结束
- 注释:传说中的分割线========================================================================================
- 以下是程序的子程序部分()
- 注释:子程序的分割线----------------------------------------------------------------------------------------------------------------------------------------------------------
- 子程序 判断分辨率类型()
- 注释:我的电脑是1440*900的宽屏分辨率,点是自己抓得,如果各位大侠测试的时候没有找到游戏,可以自己改点(本来想用找颜色的,可是用这个比较方便)
- 如果 fb = 0 则
- 令 leng = 970
- 注释:leng是经验条的长度,抓点以后自己算得
- 令 f = 744
- 注释:f是经验条绿色部分的纵坐标,可以稍微偏差一点
- 令 zuimodian = 1204
- 注释:zuimodian是经验条最末点x坐标
- 条件结束
- 如果 fb = 1 则
- 令 leng = 791
- 令 f = 618
- 令 zuimodian = 907
- 条件结束
- 如果 fb = 3 则
- 令 leng = 970
- 令 f = 623
- 令 zuimodian = 1164
- 条件结束
- 如果 fb = 2 则
- 令 leng = 970
- 令 f = 689
- 令 zuimodian = 1204