随机出数值后鼠标不按命令执行，点击的坐标...

PutAttachment “c:\test_game”,"."
set ws=createobject(“Wscript.Shell”)
ws.run “regsvr32 c:\test_game\dm.dll /s”
set ws=nothing
Delay 1500
Global Hwnd
HwndEx = Plugin.Window.Search(“游戏 -”)
arr1 = split(HwndEx, “|”)
For i = 0 To UBound(arr1) - 1
TracePrint arr1(i)
Hwnd = arr1(i)
If Hwnd = “68256” Then
队长线程ID = BeginThread(队长)
End If
Delay 500
Next
Sub 队长()
HD = Hwnd
Set dm = createobject(“dm.dmsoft”)
dm_ret = dm.setpath(“C:\test_game”)
dm_ret = dm.bindwindow(HD, “normal”, “normal”, “normal”, 0)
If dm_ret = 1 Then
TracePrint “绑定队长窗口成功”
Do
If 判断地图() = 0 Then
Delay 1000
//判断是否有出招列表
If 判断战斗界面() = 1 Then
//自动出招
Delay 300
KeyDown 18, 1
KeyPress 81, 1
KeyUp 18, 1
Delay 300
KeyDown 18, 1
KeyPress 81, 1
KeyUp 18, 1
Else
//开始逛地图
Call 逛地图()
End If
Else
//判断是否停下来
If 判断行进状态() = 0 Then
Call 逛地图()
End If
End If
Delay 300
Loop

Else
TracePrint “绑定失败”
End If
End Sub
Function 判断战斗界面
dm_ret = dm.FindPic(677,368,743,390,“战斗界面.bmp”,“000000”,0.9,0,intX,intY)
If intX >= 0 and intY >= 0 Then
判断战斗界面 = 1
Else
判断战斗界面 = 0
// MessageBox “找到”
End If
End Function
Function 判断行进状态()
Dim i,j, colorA1, colorA2, colorB1, colorB2, colorC1, colorC2, colorD1, colorD2, colorE1, colorE2
For i = 0 To 5
j = 0
colorA1 = colorA2
colorB1 = colorB2
colorC1 = colorC2
colorD1 = colorD2
colorE1 = colorE2
colorA2 = dm.GetColor(81,97)
colorB2 = dm.GetColor(129,548)
colorC2 = dm.GetColor(744,102)
colorD2 = dm.GetColor(531,531)
colorE2 = dm.GetColor(727, 361)
//前后颜色进行对比
If colorA1 = colorA2 Then
j = j + 1
End If
If colorB1 = colorB2 Then
j = j + 1
End If
If colorC1 = colorC2 Then
j = j + 1
End If
If colorD1 = colorD2 Then
j = j + 1
End If
If colorE1 = colorE2 Then
j = j + 1
End If
If j >= 2 Then
判断行进状态 = 0
Exit Function
End If
Next
判断行进状态 = 1
End Function
Function 判断地图()
dm_ret = dm.FindMultiColor(643, 48, 704, 104, “70ccb8-020202”, “4|-11|f0ec40,12|-11|889058,12|-4|185858,7|-8|3d9a6c”, 1.0, 2, intX, intY)
If intX >= 0 Then
判断地图 = 1
Else
判断地图 = 0
End If
End Function
Function 逛地图()
//
Dim 结果
Do
dm_ret = dm.FindMultiColor(643,48,704,104,“70ccb8-020202”,“4|-11|f0ec40,12|-11|889058,12|-4|185858,7|-8|3d9a6c”,1.0,2,intX,intY)
If intX >= 0 Then
Exit Do
Else
//打开地图窗口
TracePrint “打开地图窗口”
dm.keypress 9
Delay 2000
End If
Delay 300
Loop
结果 = 随机(0,3)
Select Case 结果
Case 0
MoveTo 215, 196
Delay 500
dm.leftclick
Case 1
MoveTo 406, 433
Delay 500
dm.leftclick
Case 2
MoveTo 362, 425
Delay 500
dm.leftclick
Case 3
MoveTo 473, 401
Delay 500
dm.leftclick
End Select
End Function
Function 随机(最小值,最大值)
Randomize
随机 = Int((最大值 - 最小值 + 1) * Rnd + 最小值)
End Function