新丁
- UID
- 3943428
- 积分
- 54
- 可用积分
- 点
- 威望
- 个
- 水滴
- 滴
- 存在感
- 点
- NB
- 点
- 豆币
- 点
- 帖子
- 主题
- 好友
- 精华
- APP积分
- 点
|
2024-11-14 14:36 发表于 黑龙江
|
显示全部楼层
我电脑颜色不太对,重新获取了一下颜色就好使了,下面是代码:
Hwnd = Plugin.Window.Find(0, "地下城与勇士:创新世纪")
sRect = Plugin.Window.GetClientRect(Hwnd)
Plugin.Window.Move Hwnd, 0, 0
Call Plugin.Window.Active(Hwnd)
x = 63
y = 59
For 192
NUM = Plugin.Color.CountColor(139,489 ,142,492 , "000100", 1)
GetColor = GetPixelColor(138, 489)
MoveTo 138,489
Delay 50
LeftClick 1
Delay 50
TracePrint NUM
Select Case GetColor
Case "010371"
MoveTo x + NUM * 40, y
Delay 1
LeftClick 1
Case "0059A1"
MoveTo x + NUM * 40, y+30
Delay 1
LeftClick 1
Case "00C1FE"
MoveTo x + NUM * 40, y+60
Delay 1
LeftClick 1
Case "00911A"
MoveTo x + NUM * 40, y+90
Delay 1
LeftClick 1
Case "95FF00"
MoveTo x + NUM * 40, y+120
Delay 1
LeftClick 1
Case "8C3401"
MoveTo x + NUM * 40, y+150
Delay 1
LeftClick 1
Case "8C034F"
MoveTo x + NUM * 40, y+180
Delay 1
LeftClick 1
Case "FEFE66"
MoveTo x + NUM * 40, y+210
Delay 1
LeftClick 1
Case "FEFFFE"
MoveTo x + NUM * 40, y+240
Delay 1
LeftClick 1
Case "1E201F"
MoveTo x + NUM * 40, y+270
Delay 1
LeftClick 1
Case "6B01D9"
MoveTo x + NUM * 40, y+300
Delay 1
LeftClick 1
Case "210144"
MoveTo x + NUM * 40, y+330
Delay 1
LeftClick 1
Case Else
//否则
End Select
Delay 50
next
|
|