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+10,$temp+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


    搞后台的插件{:face (394):}

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在哪能找到？
页: [1]
查看完整版本: 计算器怎么用大漠后台点击，用大漠