吾爱分享资源网

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

穿越火线辅助程序易语言源码

  [复制链接]

1674

主题

1798

帖子

1万

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
19843
金币
9179
发表于 2021-1-24 16:30:37 | 显示全部楼层 |阅读模式
请点击此处下载

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

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

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



QQ截图20210124162721.jpg
部分代码如下
  
窗口程序集名保 留  保 留备 注
控制面板   
子程序名返回值类型公开备 注
_选择_被单击  
客户端路径.内容 = 浏览文件夹 (“请选择目录”, )
如果 (文件是否存在 (客户端路径.内容 + “\QQLogin.exe”))
文件更名 (客户端路径.内容 + “/crossfire.exe”, 客户端路径.内容 + “/crossfire.exe.bak”)
写到文件 (客户端路径.内容 + “/crossfire.exe”, #crossfire )
状态条.置文本 (1, “ 易语言学习资源、源码下载站:www.5ifx88.com)
信息框 (“请正确设置游戏路径,谢谢!”, 32, “信息提示”)
' 易语言学习资源、源码下载站:[url]www.5ifx88.com[/url]
子程序名返回值类型公开备 注
_启动游戏_被单击  
如果 (文件是否存在 (客户端路径.内容 + “\QQLogin.exe”))
运行 (客户端路径.内容 + “\QQLogin.exe”, 假, )
信息框 (“请正确设置游戏路径,谢谢!”, 32, “信息提示”)

子程序名返回值类型公开备 注
_恢复正常_被单击  
如果 (文件是否存在 (客户端路径.内容 + “\QQLogin.exe”))
状态条.置文本 (1, “ 正在恢复,请稍后……”)
复制文件 (客户端路径.内容 + “/crossfire.exe.bak”, 客户端路径.内容 + “/crossfire.exe”)
复制文件 (客户端路径.内容 + “/rez/rf002.rez.bak”, 客户端路径.内容 + “/rez/rf002.rez”)
复制文件 (客户端路径.内容 + “/rez/rf017.rez.bak”, 客户端路径.内容 + “/rez/rf017.rez”)
信息框 (“已经成功恢复,感谢您的使用!”, 0, “信息提示”)
信息框 (“您的客户端无需恢复,感谢您的使用!”, 32, “信息提示”)
状态条.置文本 (1, “ 易语言学习资源、源码下载站:www.5ifx88.com)
信息框 (“请正确设置游戏路径,谢谢!”, 32, “信息提示”)
' 易语言学习资源、源码下载站:[url]www.5ifx88.com[/url]
子程序名返回值类型公开备 注
_显幽灵刀开启_被单击  
如果 (文件是否存在 (客户端路径.内容 + “\QQLogin.exe”))
如果 (显幽灵刀开启.选中 = )
状态条.置文本 (1, “ 显幽灵刀开启中,请稍后……”)
文件更名 (客户端路径.内容 + “/rez/rf002.rez”, 客户端路径.内容 + “/rez/rf002.rez.bak”)
写到文件 (客户端路径.内容 + “/rez/rf002.rez”, #rf002 )
信息框 (“已经开启显幽灵刀,感谢您的使用!”, 0, “信息提示”)
状态条.置文本 (1, www.5ifx88.com)



信息框 (“请正确设置游戏路径,谢谢!”, 32, “信息提示”)
显幽灵刀开启.选中 = 假
' 易语言学习资源、源码下载站:[url]www.5ifx88.com[/url]
子程序名返回值类型公开备 注
_显幽灵刀关闭_被单击  
如果 (文件是否存在 (客户端路径.内容 + “\QQLogin.exe”))
如果 (显幽灵刀关闭.选中 = )
状态条.置文本 (1, “ 显幽灵刀关闭中,请稍后……”)
复制文件 (客户端路径.内容 + “/rez/rf002.rez.bak”, 客户端路径.内容 + “/rez/rf002.rez”)
信息框 (“已经关闭显幽灵刀,感谢您的使用!”, 0, “信息提示”)
状态条.置文本 (1, www.5ifx88.com)



信息框 (“请正确设置游戏路径,谢谢!”, 32, “信息提示”)
显幽灵刀关闭.选中 = 假

子程序名返回值类型公开备 注
_显白鬼开启_被单击  
如果 (文件是否存在 (客户端路径.内容 + “\QQLogin.exe”))
如果 (显白鬼开启.选中 = )
状态条.置文本 (1, “ 显白鬼开启中,请稍后……”)
文件更名 (客户端路径.内容 + “/rez/rf017.rez”, 客户端路径.内容 + “/rez/rf017.rez.bak”)
信息框 (“已经开启显白鬼,感谢您的使用!”, 0, “信息提示”)
状态条.置文本 (1, “ 新极论坛 www.5ifx88.com)
' 易语言学习资源、源码下载站:[url]www.5ifx88.com[/url]

信息框 (“请正确设置游戏路径,谢谢!”, 32, “信息提示”)
显白鬼开启.选中 = 假

子程序名返回值类型公开备 注
_显白鬼关闭_被单击  
如果 (文件是否存在 (客户端路径.内容 + “\QQLogin.exe”))
如果 (显白鬼关闭.选中 = )
状态条.置文本 (1, “ 显白鬼关闭中,请稍后……”)
文件更名 (客户端路径.内容 + “/rez/rf017.rez.bak”, 客户端路径.内容 + “/rez/rf017.rez”)
信息框 (“已经关闭显白鬼,感谢您的使用!”, 0, “信息提示”)
状态条.置文本 (1, “ 易语言学习资源、源码下载站:www.5ifx88.com)



信息框 (“请正确设置游戏路径,谢谢!”, 32, “信息提示”)
显白鬼关闭.选中 = 假

子程序名返回值类型公开备 注
_游戏背景音乐切换_被单击  
如果 (文件是否存在 (客户端路径.内容 + “\QQLogin.exe”))
如果 (游戏背景音乐切换.选中 = )
状态条.置文本 (1, “ 游戏背景音乐切换中,请稍后……”)
文件更名 (客户端路径.内容 + “/rez/BGM/bgm_track1_loop.mp3”, 客户端路径.内容 + “/rez/BGM/bgm_track1_loop.mp3.bak”)
文件更名 (客户端路径.内容 + “/rez/BGM/bgm_track2_loop.mp3”, 客户端路径.内容 + “/rez/BGM/bgm_track2_loop.mp3.bak”)
文件更名 (客户端路径.内容 + “/rez/BGM/bgm_track3_loop.mp3”, 客户端路径.内容 + “/rez/BGM/bgm_track3_loop.mp3.bak”)
文件更名 (客户端路径.内容 + “/rez/BGM/bgm_track4_loop.mp3”, 客户端路径.内容 + “/rez/BGM/bgm_track4_loop.mp3.bak”)
写到文件 (客户端路径.内容 + “/rez/BGM/bgm_track1_loop.mp3”, #music )
写到文件 (客户端路径.内容 + “/rez/BGM/bgm_track2_loop.mp3”, #music )
写到文件 (客户端路径.内容 + “/rez/BGM/bgm_track3_loop.mp3”, #music )
写到文件 (客户端路径.内容 + “/rez/BGM/bgm_track4_loop.mp3”, #music )
信息框 (“已经切换游戏背景音乐,感谢您的使用!”, 0, “信息提示”)
状态条.置文本 (1, “ 易语言学习资源、源码下载站:www.5ifx88.com)


' 易语言学习资源、源码下载站:[url]www.5ifx88.com[/url]
信息框 (“请正确设置游戏路径,谢谢!”, 32, “信息提示”)
游戏背景音乐切换.选中 = 假

子程序名返回值类型公开备 注
_游戏背景音乐恢复_被单击  
如果 (文件是否存在 (客户端路径.内容 + “\QQLogin.exe”))
如果 (游戏背景音乐恢复.选中 = )
状态条.置文本 (1, “ 游戏背景音乐恢复中,请稍后……”)
复制文件 (客户端路径.内容 + “/rez/BGM/bgm_track1_loop.mp3.bak”, 客户端路径.内容 + “/rez/BGM/bgm_track1_loop.mp3”)
复制文件 (客户端路径.内容 + “/rez/BGM/bgm_track2_loop.mp3.bak”, 客户端路径.内容 + “/rez/BGM/bgm_track2_loop.mp3”)
复制文件 (客户端路径.内容 + “/rez/BGM/bgm_track3_loop.mp3.bak”, 客户端路径.内容 + “/rez/BGM/bgm_track3_loop.mp3”)
复制文件 (客户端路径.内容 + “/rez/BGM/bgm_track4_loop.mp3.bak”, 客户端路径.内容 + “/rez/BGM/bgm_track4_loop.mp3”)
信息框 (“已经恢复游戏背景音乐,感谢您的使用!”, 0, “信息提示”)
状态条.置文本 (1, “ 易语言学习资源、源码下载站:www.5ifx88.com)
' 易语言学习资源、源码下载站:[url]www.5ifx88.com[/url]

信息框 (“请正确设置游戏路径,谢谢!”, 32, “信息提示”)
游戏背景音乐恢复.选中 = 假

子程序名返回值类型公开备 注
_角色声音切换女声_被单击  
如果 (文件是否存在 (客户端路径.内容 + “\QQLogin.exe”))
如果 (角色声音切换女声.选中 = )
状态条.置文本 (1, “ 角色声音切换女声中,请稍后……”)
搜寻 (客户端路径.内容 + “\rez\Snd2\woman”, 客户端路径.内容 + “\rez\Snd2\english”)
信息框 (“已经切换角色声音女声,感谢您的使用!”, 0, “信息提示”)
状态条.置文本 (1, “ 易语言学习资源、源码下载站:www.5ifx88.com)



信息框 (“请正确设置游戏路径,谢谢!”, 32, “信息提示”)
角色声音切换女声.选中 = 假

子程序名返回值类型公开备 注
搜寻  
参数名类 型参考可空数组备 注
源目录文本型   
目标目录文本型   
变量名类 型静态数组备 注
文件名文本型  
处理事件 ()
创建目录 (目标目录)
如果真 (取文本右边 (目标目录, 1)“\”)
目标目录 = 目标目录 + “\”
如果真 (取文本右边 (源目录, 1)“\”)
源目录 = 源目录 + “\”
文件名 = 寻找文件 (源目录 + “*.*”, )
判断循环首 (文件名 ≠ “”)
文件更名 (目标目录 + 文件名, 目标目录 + 文件名 + “.bak”)
复制文件 (源目录 + 文件名, 目标目录 + 文件名)
文件名 = 寻找文件 (, )
判断循环尾 ()
文件名 = 寻找文件 (源目录 + “*.*”, #子目录 )
判断循环首 (文件名 ≠ “”)
如果真 (取文本左边 (文件名, 1)“.”)
创建目录 (目标目录 + 文件名)
搜寻 (源目录 + 文件名, 目标目录 + 文件名)
文件名 = 寻找文件 (, #子目录 )
判断循环尾 ()  ' 易语言学习资源、源码下载站:[url]www.5ifx88.com[/url]
子程序名返回值类型公开备 注
_角色声音切换男声_被单击  
如果 (文件是否存在 (客户端路径.内容 + “\QQLogin.exe”))
如果 (角色声音切换男声.选中 = )
状态条.置文本 (1, “ 角色声音切换男声中,请稍后……”)
搜寻2 (客户端路径.内容 + “\rez\Snd2\english”, 客户端路径.内容 + “\rez\Snd2\english”)
信息框 (“已经切换角色声音男声,感谢您的使用!”, 0, “信息提示”)
状态条.置文本 (1, “ 易语言学习资源、源码下载站:www.5ifx88.com)



信息框 (“请正确设置游戏路径,谢谢!”, 32, “信息提示”)
角色声音切换男声.选中 = 假

子程序名返回值类型公开备 注
搜寻2  
参数名类 型参考可空数组备 注
源目录文本型   
目标目录文本型   
变量名类 型静态数组备 注
文件名文本型  
处理事件 ()
创建目录 (目标目录)
如果真 (取文本右边 (目标目录, 1)“\”)
目标目录 = 目标目录 + “\”
如果真 (取文本右边 (源目录, 1)“\”)
源目录 = 源目录 + “\”
文件名 = 寻找文件 (源目录 + “*.*”, )
判断循环首 (文件名 ≠ “”)
复制文件 (目标目录 + 文件名 + “.bak”, 目标目录 + 文件名)
文件名 = 寻找文件 (, )
判断循环尾 ()
文件名 = 寻找文件 (源目录 + “*.*”, #子目录 )
判断循环首 (文件名 ≠ “”)
如果真 (取文本左边 (文件名, 1)“.”)
创建目录 (目标目录 + 文件名)
搜寻2 (源目录 + 文件名, 目标目录 + 文件名)
文件名 = 寻找文件 (, #子目录 )
判断循环尾 ()
子程序名返回值类型公开备 注
_瞬移加速_被单击  

子程序名返回值类型公开备 注
_准星工具_被单击  

子程序名返回值类型公开备 注
_三代鬼跳_被单击  

子程序名返回值类型公开备 注
_自动准备_被单击  

子程序名返回值类型公开备 注
_透视功能_被单击  

子程序名返回值类型公开备 注
_观看教程_被单击  



i支持库列表   支持库注释   
shell操作系统界面功能支持库
iext扩展界面支持库一





上一篇:易语言扫雷完美版源码
下一篇:千年网游辅助程序易语言源码

1

主题

1706

帖子

7779

积分

论坛元老

Rank: 8Rank: 8

积分
7779
金币
1059
发表于 2021-2-6 08:06:16 | 显示全部楼层
6666666666666666666

0

主题

7

帖子

10

积分

新手上路

Rank: 1

积分
10
金币
-5
发表于 2022-2-10 19:46:52 | 显示全部楼层
大飒飒的撒大苏打大苏打

0

主题

7

帖子

10

积分

新手上路

Rank: 1

积分
10
金币
-5
发表于 2022-2-10 19:47:17 | 显示全部楼层
撒大大飒飒大苏打撒旦

0

主题

10

帖子

43

积分

新手上路

Rank: 1

积分
43
金币
5
发表于 2022-5-26 21:31:23 | 显示全部楼层
下次VNV型那些呢范德萨好地方
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

GMT+8, 2023-6-9 16:04 , Processed in 0.398518 second(s), 44 queries .
Powered by Discuz! X3.2 © 2001-2017 Comsenz Inc.
快速回复 返回顶部 返回列表