资源描述：
《学习怎么用按键精灵制作游戏辅助——脚本源代码干货分享》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。
1、学习怎么用按键精灵制作游戏辅助——脚本源代码干货分享一、用按键精灵确定人物朝向（以剑灵自动寻路为例）的代码在剑灵右上角的小地图里找色/找图，箭头坐标存储在(x1,y1)，箭尾坐标存储在(x2,y2)FindColor1200,0,1920,300,"箭头颜色",x1,y1Ifx1>0Andy1>0ThenEndIfFindColor1200,0,1920,300,"箭尾颜色",x2,y2Ifx1>0Andy1>0ThenEndIf'计算斜率/正切值斜率=(y1-y2)/(x1-x2)'计算角度角度= Atn(斜率)二、用按键精灵解决用
2、户密码泄露问题的代码Function加解密(源文件,秘钥) DimZ,i DimA,B,C 加解密="" IfLen(源文件)=0Then’如果密码为空，则初始化为空 加解密="" ExitFunction EndIf '调用Rnd函数使以后Rnd函数所产生的Rnd为相同的伪随机数列 Z=Rnd(-秘钥) Fori=1ToLen(源文件)’将密码字符串一个一个字符通过加密，转换成另一个字符 C=Mid(源文件,i,1) A=Asc(C) B=Int(126*Rnd)And&H
3、7F’这里的&H7F，是指生成的伪随机代码，只取7位，以免数据溢出 A=AXorB’Xor是可逆的，第一次运行时是得到加密后的数据，再运行一次是得到解密后的数据 C=Chr(A) 加解密=加解密+C NextEndFunction举个例子吧~Function加解密(源文件,秘钥) DimZ,i DimA,B,C 加解密="" IfLen(源文件)=0Then 加解密="" ExitFunction EndIf '调用Rnd函数使以后Rnd函数所产生的Rnd为相同的伪随机数列
4、Z=Rnd(-密钥) Fori=1ToLen(源文件) C=Mid(源文件,i,1) A=Asc(C) B=Int(126*Rnd)And&H7F A=AXorB C=Chr(A) 加解密=加解密+C NextEndFunctionEventForm1.Load //获取小节名（如"e1df741f-d5ec-4ad7-969d-adb139c6a24f"），同一个Q文件生成的小节名不变 a=GetMacroID()//获取到当前脚本/小精灵deID加密文件=P
5、lugin.File.ReadINI("e1df741f-d5ec-4ad7-969d-adb139c6a24f","Form1.InputBox2.Text",".uservar.ini") 解密文件=加解密(加密文件,1234567890)'这里的1234567890是假使的密钥，可以修改，注意保密 Form1.InputBox2.Text=解密文件EndEvent//写入密码信息源文件=Form1.InputBox2.Text 加密文件=加解密(源文件,1234567890) CallPlugin.File.WriteINI
6、("e1df741f-d5ec-4ad7-969d-adb139c6a24f","Form1.InputBox2.Text",加密文件,".uservar.ini")//输出信息RunApp"notepad.exe"SayStringForm1.InputBox1.TextKeyPress"Enter",1SayString源文件三、按键精灵快速排序的代码su="6
7、1
8、2
9、7
10、9
11、3
12、4
13、5
14、10
15、8"su=Split(su,"
16、")L=UBound(su)Callks(0,L)Functionks(L,B) IfL>BThen
17、 ExitFunction EndIf //判断数组上标下标是否超出范围 i=L j=B key=int(su(L)) //数组第一位提取作为基数 Whilej>i Whileint(su(j))>=keyandj>i //要先从最右边开始找找到第一个小于key的数 这里添加的j>i的判断是为了防止j的值不断递减导致下标越界 j=j-1 Wend Whileint(su(i))<=keyandj>i //从最左边开始找找到第一个大于key的数 （这里的字符
18、串数组需要转换为数值型） i=i+1 Wend Ifj>ithen //将和基数key对比得到的两个数对换将大于key的值往右
