计算器怎么用大漠后台点击，用大漠

9922250 · 发表于 2012-5-4 14:04:27

;~ Run("regsvr32 /s dm.dll")
RegDM();注册组件,发现个现象，组件放在桌面无法注册，因为桌面路劲含有空格 放到其他地方就可以
Global $DM = ObjCreate("dm.dmsoft")
If IsObj($DM) Then
        $ver = $DM.Ver()
        ConsoleWrite('当前大漠插件版本：' & $ver & @CRLF)
Else
        MsgBox(64, '提示：', '注册大漠插件失败！！！')
        Exit
        EndIf
        
Func RegDM()
        Local $dm_dll = '"'& @ScriptDir & '\dm.dll'&'"'
        ;以下的判断似乎对#RequireAdmin无效 ，都会执行
        If @OSVersion = ('WIN_2008R2' Or 'WIN_7' Or 'WIN_2008' Or 'WIN_VISTA') Then
                #RequireAdmin ;这个脚本需要完全控制权限
                        EndIf
                        Run("regsvr32 /s dm.dll")
;~         RunWait(@ComSpec & ' /c regsvr32 /s ' & $dm_dll, '', @SW_HIDE)
EndFunc
        
        
Dim $quhwnd =$dm.findwindow("","计算器") ;获取窗口句柄
        $dm.bindwindow($quhwnd,"gdi","windows","windows",0)  ;绑定窗口
Dim  $is_bind=$dm.isbind($quhwnd) ;判读是否绑定成功
If $is_bind=1 Then   
                        $temp=$dm.FindPicE(0,0,1024,768,"pic/11.bmp","000000",0.9,0) ;查找暂停。
                                If StringInStr($temp,"-1")=0 Then  ;如果登录找到了                
                                                MsgBox(0,"",$temp)
                                        $temp=StringSplit($temp,"|")  ;则获取坐标
                                        $dm.MoveTo($temp[2]+10,$temp[3]+4)  
                                        $dm.LeftClick()
                                EndIf
ElseIf $is_bind=0 Then
        MsgBox(0,"","绑定失败"&$quhwnd)
EndIf
        

$dm.unbindwindow() ;解除绑定

zch11230 · 发表于 2012-5-4 20:15:14

这个应该查看大漠的帮助 bindwindow这里gdi模式换为dx试试
我更好奇的是什么样的操作需要用到大漠来向计算器发送后台点击有点像大炮轰蚊子或者说楼主想要的只是一个大漠应用的示例。

xms77 · 发表于 2012-5-4 21:20:45

大漠是干什么的东东？

魔导 · 发表于 2012-5-4 22:43:17

回复 3# xms77

搞后台的插件

9922250 · 发表于 2012-5-5 00:25:27

回复 2# zch11230

主要是后台点击，很多地方都能用到

9922250 · 发表于 2012-5-12 23:36:48

也在学习这个，不过好像没解决

9922250 · 发表于 2012-5-13 00:24:27

回复 1# 9922250

这个好像不能用。。。。。。。。。。

zch11230 · 发表于 2012-5-13 08:51:46

楼主连自己都不认识了？

xx44t10 · 发表于 2012-5-17 23:19:51

楼主晕了。回复自己的？？我是路过的。

smooth · 发表于 2024-12-4 09:04:59

大漠的DLL在哪能找到？

		自动登录	找回密码
密码			加入

计算器怎么用大漠后台点击，用大漠

相关帖子