用按键没必要用大漠里的延迟

参照物判断

问题没解决，顶一下

设置了等待时间，会变化?不科学

Call Register_dm
Sub Register_dm
basepath = "C:\script\dm_basepath"
PathArr = split(basepath, "\")
For i = o To UBound(PathArr)
If i = 0 Then
FatherPath = PathArr(0)
Else
FatherPath = FatherPath & "\" & PathArr(i)
Call Plugin.File.CreateFolder(FatherPath)
Delay 100
End If
Next
PutAttachment basepath,"*.*"
Set ws=createobject("Wscript.Shell")
ws.run "regsvr32 atl.dll /s"
Set ws=nothing
PutAttachment ".", "dm.dll"
PutAttachment ".\Plugin", "RegDll.dll"
Call Plugin.RegDll.Reg(".\dm.dll")
Delay 100
Set dm = createobject("dm.dmsoft")
ver = dm.Ver()
If ver <> "3.1233" then
Set dm = nothing
Set ws=createobject("Wscript.Shell")
ws.run "regsvr32 .\dm.dll /s"
Set ws=nothing
Delay 100
Set dm = createobject("dm.dmsoft")
Delay 100
ver = dm.Ver()
End If
End Sub
delay 2000
dm_ret = dm.BindWindow(263878,"dx","dx","dx",0)
xue = dm.GetColor(1097,90)
If xue = "8d001f" Then
dm.keypress 70
Else
dm.keypress 9
End If
F = dm.GetColor(984,909)
If xue = "8d001f" and F <>"eff1f3" Then
delay 2000
While 1
dm.keydown 81
delay 1200
dm.keydown 102
delay 1000
dm.keyup 81
delay 200
dm.keyup 102
delay 1800
xue = dm.GetColor(1097,90)
If xue = "8d001f" Then
Else
dm.keypress 9
End If
dm.keypress 90
delay 600
xue = dm.GetColor(1097,90)
If xue = "8d001f" Then
Else
dm.keypress 9
End If
dm.keypress 70
delay 2200
xue = dm.GetColor(1097,90)
If xue = "8d001f" Then
Else
dm.keypress 9
End If
Wend
End If
这是代码，配置随后发上

这是游戏要求配置，我用的最低配置

+1