|
本帖最后由 xiaozui 于 2018-8-16 00:33 编辑
前几天买了台新电脑,预装的是64位windows 10,今天发现很多代码执行效果异常。如下面这段代码,最后鼠标双击的位置与找到图片位置相距很远。请教下各位大神,是我代码有问题还是win10与au3不兼容呢?谢谢
Global $Run=True,$DM = _RegDM("id\dm.dll")
$DM = ObjCreate("dm.dmsoft")
Ron("image/huishouzhan.bmp",0,0,2000,2000)
Func _RegDM($dll_path)
Local $obj = ObjCreate("dm.dmsoft")
If Not IsObj($obj) Then
RunWait(@ComSpec & ' /c regsvr32 /s ' & FileGetShortName($dll_path), '', @SW_HIDE)
$obj = ObjCreate("dm.dmsoft")
EndIf
Return $obj
EndFunc
Func Ron($pic,$x,$y,$z,$h)
$pos = $dm.FindPicE($x,$y,$z,$h,$pic,"000000",0.9,2)
$pos = StringSplit($pos,"|",2)
If int($pos[1]) > 0 Then
$dm.MoveTo($pos[1],$pos[2])
$dm.LeftDoubleClick
; MouseClick("left", $pos[1],$pos[2], 2)
EndIf
EndFunc
|
|