吾爱分享资源网

 找回密码
 立即注册
快捷导航
搜索
查看: 472|回复: 2

千年网游辅助程序易语言源码

  [复制链接]

1668

主题

1790

帖子

1万

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
18384
金币
8274
发表于 2021-1-24 16:39:33 | 显示全部楼层 |阅读模式
请点击此处下载

请先注册会员后在进行下载

已注册会员,请先登录后下载

提取密码:5ifx88 
下载次数:2  文件大小:0 Bytes  售价:10金币 [记录]
下载权限: 不限 以上或 VIP会员   [加入VIP]   [获取金币]  [免费赚金币]



QQ截图20210124163619.jpg
部分代码如下
  
窗口程序集名保 留  保 留备 注
窗口程序集1   
变量名类 型数组备 注
参考色整数型8 
动作数据动作结构8 
k整数型  
x整数型  

子程序名返回值类型公开备 注
__启动窗口_创建完毕  
变量名类 型静态数组备 注
配置文件名文本型  
计数器整数型  
节名数组文本型 0
编辑框1.加入文本 (“======使用说明======”, #换行符, #换行符, “1、按 Ctrl+F1 键启动;”, #换行符, “2、按 Ctrl+F2 键停止;”, #换行符, “3、如果你选刷一个怪的地方挂机(如石巨人、沙漠蝎子、黄沙鬼等),请选中”, #左引号, 选择框1.标题, #右引号, “;”, #换行符, “4、如果你想抓住一个怪物后打死再换另一个,请选中”, #左引号, 选择框2.标题, #右引号, #换行符, “5、如果需要设定每怪轮流攻击的时间,请选择”, #左引号, 选择框3.标题, #右引号, “并设定延时时间;”, #换行符, “6、做脚本的方法与 <按键精灵> 的抓点方法类似,将鼠标移到至怪物身上按 Ctrl+数字键(见提示)即可。”, #换行符, #换行符, “      少林:一柱”)
组合框1.加入项目 (“连点器”, )
配置文件名 = 取运行目录 ()“\type.ini”
如果真 (文件是否存在 (配置文件名))
节名数组 = 取配置节名 (配置文件名)
计次循环首 (取数组成员数 (节名数组), 计数器)
组合框1.加入项目 (节名数组 [计数器], )
计次循环尾 ()
k = 0
启动热键.时钟周期 = 60
子程序名返回值类型公开备 注
_启动热键_周期事件  
如果真 (处理热键 ( #Ctrl键 ) 处理热键 ( #F1键 ))
启动热键.时钟周期 = 0
如果真 (喊话 = )
要喊话.时钟周期 = 喊话周期
如果真 (组合框1.现行选中项 ≠ -1)
查身边.时钟周期 = 80


子程序名返回值类型公开备 注
_组合框1_列表项被选择  
变量名类 型静态数组备 注
一点文本型  
怪物文本型  
计数器整数型  
如果 (组合框1.现行选中项 = 0)
选择框2.禁止 = 真
选择框3.禁止 = 真
x = 0
选择框2.禁止 = 假
选择框3.禁止 = 假
怪物 = 组合框1.取项目文本 (组合框1.现行选中项)
计次循环首 (8, 计数器)
一点 = 读配置项 (取运行目录 ()“\type.ini”, 怪物, 到文本 (计数器), )
动作数据 [计数器].水平坐标 = 到数值 (取文本左边 (一点, 3))
动作数据 [计数器].垂直坐标 = 到数值 (取文本中间 (一点, 5, 3))
动作数据 [计数器].颜色 = 到数值 (取文本右边 (一点, 8))
计次循环尾 ()
小化.获取焦点 ()
子程序名返回值类型公开备 注
_抓点_被单击  
启动热键.时钟周期 = 0
是否是抓点 = 真
窗口1.可视 = 真
载入 (窗口1, , )
子程序名返回值类型公开备 注
_查身边_周期事件  
变量名类 型静态数组备 注
i整数型  
tpos指针结构  
如果真 (处理热键 ( #Ctrl键 ) 处理热键 ( #F2键 ))
查身边.时钟周期 = 0
启动热键.时钟周期 = 60
返回 ()
如果 (组合框1.现行选中项 = 0)
如果真 (选择框1.选中 = )
如果真 (x ≥ 40)
按下某键 ( #F2键 )
放开某键 ( #F2键 )

取得坐标 (tpos)
按下某键 ( #Shift键 )
鼠标单击 (tpos.水平坐标, tpos.垂直坐标)
鼠标单击 (tpos.水平坐标, tpos.垂直坐标)
放开某键 ( #Shift键 )
如果 (x ≥ 40)
x = 0
x = x + 1
延时 (500)
计次循环首 (8, i)
如果真 (处理热键 ( #Ctrl键 ) 处理热键 ( #F2键 ))
查身边.时钟周期 = 0
启动热键.时钟周期 = 60
返回 ()
如果真 (取颜色 (动作数据 [i].水平坐标, 动作数据 [i].垂直坐标) = 动作数据 [i].颜色)
k = i
开打 (动作数据 [i].水平坐标, 动作数据 [i].垂直坐标)
延时 (到数值 (编辑框2.内容) × 1000)
如果真 (选择框2.选中 = 选择框1.选中 = )
查身边.时钟周期 = 0
怪死否.时钟周期 = 100
跳出循环 ()

计次循环尾 ()

子程序名返回值类型公开备 注
_删除_被单击  
变量名类 型静态数组备 注
当前脚本文本型  
如果 (组合框1.现行选中项 ≠ 0)
如果 (组合框1.现行选中项 ≠ -1)
当前脚本 = 组合框1.取项目文本 (组合框1.现行选中项)
如果 (信息框 (“你确实要删除{” + 当前脚本 + “}脚本?”, 36, “真的吗?”)#是钮 )
组合框1.删除项目 (组合框1.现行选中项)
写配置项 (取运行目录 ()“\type.ini”, 当前脚本, , )



信息框 (“未选择脚本!”, #警告图标, “删除”)

信息框 (“嘿嘿,你休想!”, #错误图标, “删除”)

子程序名返回值类型公开备 注
_小化_被单击  
_启动窗口.位置 = 2
_启动窗口.可视 = 假
置托盘图标 ( #托盘图, “柱杀 V1.0”)
子程序名返回值类型公开备 注
__启动窗口_托盘事件  
参数名类 型参考可空数组备 注
操作类型整数型   
判断 (操作类型 = #单击左键 )
可视 = 真
_启动窗口.位置 = 0
置托盘图标 (, )



子程序名返回值类型公开备 注
_修改_被单击  
如果 (组合框1.现行选中项 = 0)
信息框 (“不让修改的!”, #错误图标, “你弄错了”)
如果 (组合框1.取项目文本 (组合框1.现行选中项)“”)
信息框 (“请选择待修改脚本!”, 48, “笨!  d^o^b”)
启动热键.时钟周期 = 0
是否是抓点 = 假
窗口1.可视 = 真
载入 (窗口1, , )


子程序名返回值类型公开备 注
开打  
参数名类 型参考可空数组备 注
横坐标整数型   
纵坐标整数型   
设置鼠标位置 (横坐标, 纵坐标)
按下某键 ( #Shift键 )
鼠标双击 (横坐标, 纵坐标)
延时 (450)
鼠标双击 (横坐标, 纵坐标)
延时 (450)
鼠标双击 (横坐标, 纵坐标)
放开某键 ( #Shift键 )
设置鼠标位置 (100, 100)
子程序名返回值类型公开备 注
_怪死否_周期事件  
变量名类 型静态数组备 注
未死逻辑型  
如果真 (处理热键 ( #Ctrl键 ) 处理热键 ( #F2键 ))
查身边.时钟周期 = 0
怪死否.时钟周期 = 0
启动热键.时钟周期 = 60
返回 ()

未死 = 假
计次循环首 (70, )
如果 (取颜色 (动作数据 [k].水平坐标, 动作数据 [k].垂直坐标) = 动作数据 [k].颜色)
未死 = 真


延时 (35)
计次循环尾 ()
如果 (未死 = )
怪死否.时钟周期 = 0
如果真 (选择框1.选中 = )
按下某键 ( #F2键 )
放开某键 ( #F2键 )
查身边.时钟周期 = 80

开打 (动作数据 [k].水平坐标, 动作数据 [k].垂直坐标)
延时 (到数值 (编辑框2.内容) × 1000)

子程序名返回值类型公开备 注
_退出_被单击  
结束 ()
子程序名返回值类型公开备 注
_选择框3_被单击  
如果 (选择框3.选中 = )
编辑框2.可视 = 真
标签3.可视 = 真
编辑框2.内容 = “0”
编辑框2.可视 = 假
标签3.可视 = 假

子程序名返回值类型公开备 注
_喊话_被单击  
喊话窗口.可视 = 真
载入 (喊话窗口, , )
子程序名返回值类型公开备 注
_要喊话_周期事件  
如果真 (处理热键 ( #Ctrl键 ) 处理热键 ( #F2键 ))
要喊话.时钟周期 = 0
启动热键.时钟周期 = 60
返回 ()
按下某键 ( #Ctrl键 )
按下某键 ( #V键 )
放开某键 ( #V键 )
放开某键 ( #Ctrl键 )
按下某键 ( #回车键 )
放开某键 ( #回车键 )





上一篇:穿越火线辅助程序易语言源码

1

主题

938

帖子

4196

积分

论坛元老

Rank: 8Rank: 8

积分
4196
金币
494
发表于 2021-1-27 19:57:54 | 显示全部楼层
6666666666666666

1

主题

938

帖子

4196

积分

论坛元老

Rank: 8Rank: 8

积分
4196
金币
494
发表于 2021-2-6 08:05:20 | 显示全部楼层
6666666666666666666666666
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

GMT+8, 2021-3-2 21:01 , Processed in 1.073079 second(s), 44 queries .
Powered by Discuz! X3.2 © 2001-2017 Comsenz Inc.
快速回复 返回顶部 返回列表