求按键精灵8自动打怪脚本成品结构图

答案:1 悬赏:80 手机版

解决时间 2021-10-20 04:37

提问者网友：心如荒岛囚我终老
2021-10-19 09:40

求按键精灵8自动打怪脚本成品结构图

最佳答案

五星知识达人网友：duile
2021-10-19 11:11

UserVar LTop="200,100" "鼠标活动范围:左上角坐标" UserVar RBot="700,500" "鼠标活动范围:右下角坐标" UserVar Center="300,200" UserVar L=20 UserVar M=3 Dim s,v,i,n,x,y,a1,b1,a2,b2,c1,c2,x0,y0,k1,k2 s=InStr(LTop,",") a1=int(Mid(LTop,1,s-1)) b1=int(Mid(LTop,s+1)) s=InStr(RBot,",") a2=int(Mid(RBot,1,s-1)) b2=int(Mid(RBot,s+1)) s=InStr(Center,",") x0=int(Mid(Center,1,s-1)) y0=int(Mid(Center,s+1)) If x0-a1>=a2-x0 Then n=a1 Else n=x0-(a2-x0) End If Rem 开始搜怪 v=L i=M x=x0:y=y0-v While x>=n k1=0:k2=v For 2 For i x=x+k1:y=y+k2 If x>=a1 and x<=a2 and y>=b1 and y<=b2 Then c1=GetPixelColor(x,y) MoveTo x,y Delay 10 c2=GetPixelColor(x,y) If c1<>c2 Then Delay 1000 Goto 开始搜怪 End If Delay 1 End If Next k1=v:k2=0 Next i=i+1:v=v*(-1) Wend Delay 200 Goto 开始搜怪

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息