怎么做几个坐标循环跑的脚本

Posted 2023-04-23

怎么做呢？？

VBS Dim Xin(100),Yin(100),I,MM,P
//如果记录坐标大于100，拿你就只有自己修改
VBS Dim Memx,Memy
VBS Xin,Yin,BB,Bang
VBS ScreenX,ScreenY
//声明变量
VBS Memx=横坐标内存地址:MemY=纵坐标内存地址
VBSCall Call GetScreenResolution(ScreenX,ScreenY)
VBS set Obj = createobject("WScript.Shell")
//*****--------记录坐标---------*****
VBS I=1
While I>0
VBSCall Obj.Popup("请按<F5>记录第<"&I&">个挂机点，记录完老后按<F6>。",3,"3秒后窗口自动关闭",0)
//Rem 记录窗口句柄
WaitKey MM
If MM=116
VBSCall ReadMemory( Memx,1,Xin(I))
VBSCall ReadMemory( Memy,1,Yin(I))
//读当前的坐标，你也可以用子程序，也可用验证码方式识别坐标子程序
EndIf
If MM=117
VBSCall Obj.Popup("您一共记录<"&I&">个挂机点",3,"3秒后窗口自动关闭",0)
Goto 主程序开始
//这里跳出循环
EndIf
VBS I=I+1
EndWhile
Rem 主程序开始
Gosub 边跑边打
Goto 主程序开始
Sub 读取坐标内存地址
VBSCall ReadMemory( Memx,1,Xin)
//读取游戏坐标内存地址中的横坐标的值保存到Xin
VBSCall ReadMemory( Memy,1,Yin)
//读取游戏坐标内存地址中的纵坐标的值保存到Yin
Return 读取坐标内存地址
Sub 边跑边打
VBS P=I:I=1
While I<P+1
Rem 开始范围移动
Gosub 读取坐标内存地址
VBS BB=((Xin(I)-Xin)^2+(Yin(I)-Yin)^2)^0.5
///用勾股定理计算和目标位置有多远,BB为和目标位置的直线差.
If BB>6
///如果和目标位置差距是大于6
VBS Bang=200/BB
///把你的鼠标移动范围限制在半径200的圆以内
/////这里这步很重要,不然你点到的始终是屏幕的最边缘.
VBS XX=(Xin(I)-Xin)*Bang:YY=(Yin(I)-Yin)*Bang
/////利用相似三角形算出鼠标点击的位置
MoveTo ScreenX/2+XX ScreenY/2+YY
LeftClick 1
Delay 400
Gosub 打怪
Goto 开始范围移动
EndIf
VBS I=I+1
EndWhile
Return 边跑边打
Sub 打怪
//打怪内容你自己写老蛮，我只提供下思路
Return 打怪 参考技术A LX是否支持在一个地图内按照指定的坐标进行循环传奇私服打怪可以实现的，在脚本里把你需要的坐标写上，再加上for循环语句就可以了

python几个点坐标封闭曲面

参考技术A 您想问的是python坐标封闭曲面有几个点吧，有四个。
python坐标封闭曲面的四个角点坐标分别为(0.1，0.1)，(0.1，1.2)，(1.1，0.1)，(1.1，1.2)，利用双线性插值完成。
Python是一个高层次的结合了解释性、编译性、互动性和面向对象的脚本语言，它的设计具有很强的可读性，相比其他语言经常使用英文关键字，其他语言的一些标点符号，它具有比其他语言更有特色语法结构。