按键精灵DNF强化上架循环源码

dm.SetDict 1, \"数字识别.txt\"

dm.SetDict 2, \"对比.txt\"

Select Case Form1.选择.ListIndex

Case 0

加几 = \"7\"

Case 1

加几 = \"8\"

Case 2

加几 = \"8\"

Case 3

加几 = \"8\"

case Else

End Select

Call 强化装备

//Call 上架

//Call 买刀

//Call 取碳

//Call 找凯利

Sub 强化装备

X坐标 =

Array(480,510,540,570,600,630,660,690,480,510,540,570,600,630,660,690,480,510,540,570,600,630,660,690,480,510,540,570,600,630,660,690)

Y坐标 = Array(320, 320, 320, 320, 320, 320, 320, 320, 350, 350, 350, 350, 350, 350, 350, 350, 380, 380, 380, 380, 380, 380, 380, 380, 410, 410, 410, 410, 410, 410, 410, 410)

i = 0

//For UBound(X坐标) + 1

For Form1.买刀.text

Rem 强化

Delay 30

dm.MoveTo 276,349

dm.LeftClick

Delay 200

Rem d

dm.MoveTo X坐标(i), Y坐标(i)

Delay 100

dm.LeftClick

Delay 50

dm.MoveTo 276, 349

dm_ret = dm.FindStr(286,315,499,413,\"确认\

If intX >= 0 and intY >= 0 Then

dm.KeyPress 13

Else

dm.KeyPress 13

End If

Delay 3500

dm_ret = Plugin.Sys.GetTime()

A时 = Clng(dm_ret/1000)

Do

Delay 200

dm_ret = dm.FindPic(126,304,449,509,\"空.bmp\

If dm_ret = 0 Then

dm.KeyPress 13

确认.bmp|

Goto 判断

ElseIf dm_ret = 1 Then

dm.KeyPress 13

Goto 判断

End If

dm_ret = Plugin.Sys.GetTime()

B时 = Clng(dm_ret/1000)

If B时-A时 >= 10 Then

Goto 判断

End If

Loop While 7=7

Rem 判断

dm.MoveTo X坐标(i), Y坐标(i)

Delay 100

cj = 0

dm_ret = dm.UseDict(0)

Delay 100

Do

dm_ret = dm.FindStrFast(0,0,800,600,加几 , \"ffffff-000000\

If dm_ret = 0 Then

Exit Do

Else

cj=cj+1

If cj = Clng(Form1.检查.Text) Then

Goto 强化

End If

End If

Loop

i = i + 1

Next

//

Select Case Form1.选择.ListIndex

Case 0

加几 = \"7\"

Case 1

加几 = \"8\"

Case 2

加几 = \"8\"

jj=1

call 大于8

Case 3

加几 = \"8\"

jj=2

call 大于8

case Else

End Select

If Form1.不上架.Value = 1 Then

EndScript

Else

Call 上架

End If

End sub