新版按鍵精靈X版 底層使用代碼分享

按鍵精靈X亮點多多，這里分四方面簡要說明一下：

1、性能提升：代碼行效率提升70%以上，函數調用效率提升40%以上，同腳本整體性能比按鍵精靈2014提升10%以上。
2、體驗更好：調試反應迅速，多次調試內存不會導致內存泄漏積累、CPU占用過高的情況。
3、更加穩定：內存占用有所改善，調試、運行不容易崩潰，不會因為殺軟或優化的緣故導致腳本無法執行。
4、功能更強：QUI系統優化、附件系統優化、標准庫重做、多線程系統優化，功能比2014版更強大。

獲取窗口焦點

/***********
*獲取窗口焦點(*底層識別)
************/
Function windowsIn()
    //獲取窗口句柄
    Hwnd = Window.Find("WeChatMainWndForPC", "微信")
    //窗口復原
    Window.Restore (Hwnd)
    //窗口移動
    Window.Move(Hwnd, 300, 200)
     //重設窗口大小 
    Window.SetClientSize(Hwnd, 850, 795)
    //獲取窗口坐標
    sRect = Window.GetWindowRect(Hwnd)
    //MsgBox "得到窗口句柄的邊框大小(包括標題欄)為："& sRect
    //下面這句用於分割字符串,將橫坐標和縱坐標分成兩個字符串
    MyArray = Split(sRect, "|")
    //下面這句將字符串轉換成數值
    W1 = Clng(MyArray(1)): H1 = Clng(MyArray(2))
    W2 = Clng(MyArray(3)) : H2 = Clng(MyArray(4))
    //MsgBox "邊框大小：       "  &  W2-W1 & "             " & H2-H1
    sosow=W1+117
    sosoh = H1 + 26
    TracePrint W1 & "::" & H1 & "::" & W2 & "::" & H2
End Function

大漠綁定

/*****************
**大漠綁定插件命令(*底層識別)
*******************/
Function findOcr()
    dm_ret = dm.SetDict(0, GetResPath()&"dm.txt")
    dm_ret = dm.GetClientSize(Hwnd,W2-W1,H2-H1)
    dm_ret = dm.BindWindow(Hwnd, "gdi", "normal", "normal", 0)
    Delay 200
    If dm_ret = 0 Then 
        TracePrint ("大漠界面綁定失敗")
        Return -1
        Exit Function
    Else
        TracePrint ("大漠界面綁定成功")
        Return 0
    End If
End Function

大漠識字封裝

/*****************
**大漠識字命令(*底層識別)
*daMoFindOcr(x1,y1,x2,y2)
*******************/
Function daMoFindOcr(d1_x1,d1_y1,d1_x2,d1_y2)
    Dim d1_s = dm.Ocr(d1_x1,d1_y1,d1_x2,d1_y2,"727272-202020|000000-eeeeee",0.9)
    TracePrint (d1_s)
    Return d1_s
End Function

大漠識圖封裝

/*****************
**大漠識圖命令(*底層識別)
*dm_findAllPic(x1,y1,x2,y2)
*******************/
Function dm_findPic(d3_x1, d3_x2, d3_y1, d3_y2, d3_picUrl)
    Dim d3_dm_ret, d3_intX,d3_intY, d3_count, d3_sss, d3_x, d3_y
    d3_dm_ret = dm.FindPic(d3_x1, d3_x2, d3_y1, d3_y2,GetResPath()& d3_picUrl,"000000",0.9,0,d3_intX,d3_intY)
    If d3_intX >= 0 and d3_intY >= 0 Then 
        d3_intX = d3_intX 
        d3_intY = d3_intY 
        TracePrint (d3_intX & "+dm_findPic+" & d3_intY)
        Return 0,d3_intX,d3_intY
    Else 
        TracePrint ("-1,-1,-1")
        Return  -1,-1,-1
    End If
End Function

大漠全屏識圖封裝

/*****************
**大漠識圖命令全局(*底層識別)
*dm_findAllPic(x1,y1,x2,y2)
*******************/
Function dm_findAllPic(d2_x1, d2_y1, d2_x2, d2_y2, d2_picUrl)
    dim d2_num = 0
    Dim d2_picXY(10)
    Dim d2_daozhangID,d2_shoukuanW,d2_shoukuanH
    Do
        d2_daozhangID,d2_shoukuanW,d2_shoukuanH= dm_findPic(d2_x1,d2_y1,d2_x2,d2_y2,d2_picurl)
        If d2_daozhangID = 0 Then 
            d2_num = d2_num + 1
            Dim d2_arrayin(1)
            d2_arrayin(d2_shoukuanW)=d2_shoukuanH
            d2_picXY(d2_num)=d2_arrayin
            //x1 = shoukuanW
            d2_y1 = d2_shoukuanH + 20
            TracePrint (d2_x1 & d2_y1 & d2_x2 & d2_y2)
            TracePrint ( "找到" & d2_num & "個，坐標為："& d2_shoukuanW& d2_shoukuanH)
        End If
    Loop While d2_daozhangID= 0
    //TracePrint ( "找到" & num & "個，坐標為："& piczuobiaoji)
    For Each d2_k, d2_v In d2_picXY
    TracePrint d2_k, d2_v
Next
Return d2_num,d2_picXY
End Function

最后：

按鍵精靈X版最新版，首次將底層轉為基於lua，使得代碼書寫更為方便，使用流暢度大大提升！

推薦兩個插件：

1. 大兵插件：（下載地址:放在上邊顯示密碼）(開源代碼：下載地址)大兵插件（DBSoft.dll）為大兵軟件系列軟件之一，由dabingrain用VB6SP6，WINXP系統下寫的COM型ActiveX Dll ,大部分軟件可以引用使用。 
   信息提示：2017年1月12日
   插件已經免費2年多，原本是想重新構架插件發布新版，但是插件函數較多，改動較大，改動后大伙使用調整也不便，因此就在構思中慢慢的拖延了，這一拖延就是2年多，插件也斷了更新，加上插件免費后，精力就慢慢投入少了，原來也是憑着個人業余愛好寫的，終於到了目前這種現狀。我呢，也是因為年齡日益增加，家庭、工作比較忙，時間和精力都相對緊張，慢慢的就放棄了插件的維護和更新，插件沒有更新，讓使用者感到失望，前幾天，域名和網站費用到期，我還想着關停了事，但是想一想，畢竟每天還有很多人使用的，因此，也就續費持續使用了。不過也希望大家可以自由捐贈。
   Welcome!
   注冊碼免驗證注冊方式，免費注冊號碼: 934AA748840647F9359BB04EF5EBB171，腳本使用中請加入注冊語句: Call Plugin.DBSoft.RegDBSoft("上面的注冊碼")，即可免費使用插件（免費期間人數統計正常，可查詢）
2. 大漠插件：（下載地址：放在上邊顯示密碼）大漠 綜合 插件 (dm.dll)采用vc6.0編寫，識別速度超級快！ 采用COM接口編寫，適用於所有語言調用.
   信息提示：現在大多使用免費版！字庫需要自己制作！

推薦使用的工具：

1. 窗口獲取工具：（下載地址：放在上邊顯示密碼）
   
2. 水淼正則表達式精靈：（下載地址：放在上邊顯示密碼）