那位大虾告诉个武林秘籍抓麒麟的脚本啊谢谢急用
最新回答
少年先疯队队长
2024-11-23 06:21:31
// 初始化
//下面这句是遍历符合窗口标题("武林秘籍")的句柄保存到数组(HwndEx)里
x = Plugin.Sys.GetScRX
y = Plugin.Sys.GetScRY
x1 = (x - 1024) / 2
y1 = (y - 768) / 2
death_num = 0
find_num = 0
kick_num = 0
drop_num = 0
offline_num = 0
HwndEx = Plugin.Window.Search("武林秘籍")
Dim hwdarray
Dim bb_time(3)
Dim text1
hwdarray = Split(HwndEx, "|")
//初始化结束
Rem catch_begin
If UBound(hwdarray)>=0 Then
i = 0
text1=""
For UBound(hwdarray)
Call Plugin.Window.Active(Clng(hwdarray(i)))
Call Plugin.Window.Show(Clng(hwdarray(i)))
Delay 300
MoveTo x1+800, y1+180
// RightClick 1
KeyPress "8", 1
Call findbb
bb_time_last_time=bb_time(i)
bb_time(i) = cstr(now)
if s2<2 then '重复时间偏移
bb_time(i)=cstr(DateAdd("s",-1,now))
end if
// Hwnd0 = Plugin.Window.MousePoint()
// MsgBox "得到鼠标指向的窗口句柄为：" & Hwnd0
//report msg
If find_num mod 100 = 0 Then
MoveTo 500, 180
Delay 100
RightClick 1
Delay 100
KeyPress "Enter", 1
KeyPress "BackSpace", 3
SayString "/大号的名字 find_num:"&find_num &"|drop_num:"&drop_num&"|death_num :"&death_num &"|offline_num:"&offline_num&"|kick_num :"&kick_num&"|time:"&now
KeyPress "Enter", 1
Delay 100
End If
//report end
// text1 = text1&"|"&hwdarray(i)&":"&bb_time(i)
i=i+1
Next
Else
MessageBox "empty"
End If
Call catch_order
Goto catch_begin
Sub catch_order
//按时间排捕捉顺序
For i = LBound(bb_time) To UBound(bb_time)
bb_time_conferm_i=DateDiff("s",bb_time(0),bb_time(i))
while bb_time_conferm_i>60
bb_time(i) = DateAdd("n",-1,bb_time(i))
bb_time_conferm_i=DateDiff("s",bb_time(0),bb_time(i))
Wend
For j = i + 1 To UBound(bb_time)
bb_time_conferm_j=DateDiff("s",bb_time(0),bb_time(j))
while bb_time_conferm_j>60
bb_time(j) = DateAdd("n",-1,bb_time(j))
bb_time_conferm_j=DateDiff("s",bb_time(0),bb_time(j))
Wend
If bb_time(i) > bb_time(j) Then '小到大排序
t = bb_time(i)
t2= hwdarray(i)
bb_time(i) = bb_time(j)
hwdarray(i) = hwdarray(j)
bb_time(j) = t
hwdarray(j)=t2
End If
Next
Next
End Sub
Sub findbb
try_num = 0
s1=second(now)
For 30000
s2 = second(now) - s1
If s2 < 0 Then
s2 = s2 + 60
End If
If s2 > 50 Then
goto findover '招BB 超过1分钟 结束当前窗口召唤
End If
try_num=try_num+1
FindPic x1+300,y1+200,x1+820,y1+570,"bb.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
find_num = find_num + 1
intx=intx+25
inty=inty+45
MoveTo intx, inty
rightClick 1
Delay 50
Goto findover
Else
try_num2 = try_num mod 100
If try_num2 = 0 Then
Call 掉线登陆
Call 死亡回点
End if
Call 宠物选择
End If
Next
Rem findover
End Sub
Sub 宠物选择
FindPic x1,y1,x1+1024,y1+768,"cw.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
intxc = intx+158 '定位放生按钮坐标
intyc = inty+459
intx = intx + 43
inty = inty + 53
intxb = intx
intyb = inty
For 4
GetColor=GetPixelColor(intxb,intyb)
// MessageBox getcolor
If getcolor = 101408 Then
Else
MoveTo intxb, intyb
Delay 100
LeftClick 1
Delay 300
Call 宠物处理
Delay 100
End If
intxb=intxb-40
Next
Delay 100
KeyPress "W", 1
End If
End Sub
sub 宠物处理
FindPic x1,y1,x1+1024,y1+768,"xl.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
Else
FindPic x1,y1,x1+1024,y1+768,"cwxx.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intx,inty
Delay 100
LeftClick 1
Delay 300
End If
drop_num = drop_num +1
MoveTo intxc, intyc
Delay 100
LeftClick 1
Delay 200
KeyPress "Enter", 1
End If
End Sub
Sub 死亡回点
FindPic x1,y1,x1+1024,y1+768, "辽西.bmp", 0.9, intX, intY
If intX > 0 And intY > 0 Then
mapname="辽西"
FindPic x1,y1,x1+1024,y1+768,"辽西捕捉点1.BMP",0.9,intX,intY
If intX > 0 And intY > 0 Then
Goto 误判
End If
FindPic x1,y1,x1+1024,y1+768,"辽西捕捉点2.BMP",0.9,intX,intY
If intX > 0 And intY > 0 Then
Goto 误判
End If
FindPic x1,y1,x1+1024,y1+768,"辽西捕捉点3.BMP",0.9,intX,intY
If intX > 0 And intY > 0 Then
Goto 误判
End If
Else
mapname="太湖"
FindPic x1,y1,x1+1024,y1+768,"捕捉点.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
Goto 误判
End If
FindPic x1,y1,x1+1024,y1+768,"捕捉点2.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
Goto 误判
End If
FindPic x1,y1,x1+1024,y1+768,"捕捉点3.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
Goto 误判
End If
FindPic x1,y1,x1+1024,y1+768,"捕捉点4.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
Goto 误判
End If
FindPic x1,y1,x1+1024,y1+768,"捕捉点5.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
Goto 误判
End If
FindPic x1,y1,x1+1024,y1+768,"捕捉点6.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
Goto 误判
End If
End If
Call 回城复活
Delay 1000
Call 地图跑路
Rem 误判
Delay 500
Call 回城复活
End Sub
Sub 地图跑路
FindPic x1,y1,x1+1024,y1+768,"cw.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
KeyPress "W", 1
Delay 500
End If
FindPic x1,y1,x1+1024,y1+768,"太湖复活点.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
mapname="太湖"
End If
FindPic x1,y1,x1+1024,y1+768,"辽西复活点.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
mapname="辽西"
End If
MoveTo x1+20, y1+331
Delay 500
RightClick 1
Delay 500
FindPic x1,y1,x1+1024,y1+768,"世界地图.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
Else
KeyPress "M", 1
End If
Delay 500
FindPic x1,y1,x1+1024,y1+768,"世界地图.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
intxa = intx
intya = inty
If mapname="辽西" Then
intxa = intxa + 138
intya = intya + 378
Delaytime=20000
MoveTo x1+580, y1+600
Delay 100
RightDown 1
Delay 100
MoveR -300, -300
Delay 300
RightUp 1
Delay 300
Else
intxa = intxa - 136
intya = intya + 145
Delaytime=5000
End If
MoveTo intxa,intya
Delay 500
LeftClick 1
Delay 2000
KeyPress "M", 1
Delay Delaytime
KeyPress "T", 1
End If
End Sub
Sub 回城复活
FindPic x1,y1,x1+1024,y1+768,"回城复活.bmp",0.9,intXa,intYa
If intXa > 0 And intYa > 0 Then
death_num =death_num +1
MoveTo intxa, intya
Delay 300
LeftClick 1
Delay 5200
End If
End Sub
Sub 掉线登陆
FindPic x1,y1,x1+1024,y1+768,"人物在线确定.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intx, inty
Delay 500
LeftClick 1
Delay 30000
Call kickout
End If
FindPic x1,y1,x1+1024,y1+768,"服务器选择确定.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intx, inty
Delay 500
LeftClick 1
Delay 500
Call kickout
End If
FindPic x1,y1,x1+1024,y1+768,"掉线确定.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
Delay 1000
KeyPress 13,1
Delay 1000
KeyPress 13,1
Delay 3000
call kickout
End If
FindPic x1,y1,x1+1024,y1+768,"登录确定.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
offline_num =offline_num +1
MoveTo x1+514,y1+442
Delay 1000
LeftClick 1
Delay 1000
KeyPress "BackSpace", 5
Delay 1000
SayString "555555"
KeyPress 13,1
Delay 5000
MoveTo x1+450, y1+617
Delay 500
LeftClick 1
Delay 2500
End If
End Sub
Sub kickout
FindPic x1,y1,x1+1024,y1+768,"系统设置.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intx+5, inty+5
Delay 500
LeftClick 1
Delay 500
FindPic x1,y1,x1+1024,y1+768,"返回登录.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intx, inty+3
Delay 500
LeftClick 1
Delay 500
End If
FindPic x1,y1,x1+1024,y1+768,"返回登录确定.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intx, inty+3
Delay 500
LeftClick 1
kick_num=kick_num+1
Delay 6000
End If
End If
End Sub
泛黄的咖啡店
2024-11-23 06:36:56
听海的哭泣ぃ
2024-11-23 07:24:11
热门标签
