按鍵精靈涂老師 - 大漠字庫範例

目錄 = "C:\Marco_Tu\"
//金鑰可以更改為自己的
金鑰 = Plugin.File.ReadINI("大漠", "key", 目錄 & "Config.ini")
Call 大漠_註冊

set dm = createobject("dm.dmsoft")
base_path = dm.GetBasePath()
dm_ret = dm.SetPath(base_path)
dm_ret = dm.SetDict(0,"C:\Marco_Tu\soft2.txt")
dm_ret = dm.FindStr(777, 786, 1004, 883, "福利積分", "f8ff82-606060|c0b9e2-303030", 0.9, intX, intY)
If intX > 0 Then
	MsgBox "已找到關鍵字，開始設定程序。"
Else
	MsgBox "沒找到關鍵字，程序無法繼續。"
End If
TracePrint intX & " , " & intY

Function 大漠_註冊()

    // 釋放附件>>>>>>>>>>>>>>>>>>>
    // 這裡選擇c盤的test-_game作為插件的基本目錄 也就是SetPath對應的目錄。所以所有資源都釋放在此目錄.
    PutAttachment 目錄,"*.*"
    // 這裡要用到RegDll來註冊插件，所以必須釋放到Plugin. 但是切記不能把dm.dll釋放到Plugin.那會導致插件失效.
    PutAttachment ".\Plugin" ,"RegDll.dll"
    // 插件註冊開始>>>>>>>>>>>>>>>>>>>
    // 下面開始註冊插件,先嘗試用RegDll來註冊.這裡必須使用絕對路徑。以免有別人把dm.dll釋放在系統目錄.造成版本錯誤.
    Call Plugin.RegDll.Reg(目錄 & "dm.dll")
    // 這裡判斷是否註冊成功
    set dm = createobject("dm.dmsoft")
    ver = dm.Ver()
    if ver <> "7.1931" then
        // 先釋放先前創建的dm
        set dm = nothing
        // 再嘗試用regsvr32 來註冊. 這裡必須使用絕對路徑。以免有別人把dm.dll釋放在系統目錄.造成版本錯誤.
        set ws=createobject("Wscript.Shell")
        ws.run "regsvr32 " & 目錄 & "dm.dll /s"
        set ws=nothing
        Delay 1500
        // 再判斷插件是否註冊成功
        set dm = createobject("dm.dmsoft")
        ver = dm.Ver()
        if ver <> "7.1931" then
            // 這時，已經確認插件註冊失敗了。 彈出一些調試信息，搜索以供分析.
            MsgBox "插件版本錯誤,當前使用的版本是:"&ver&",插件所在目錄是:"&dm.GetBasePath()
            MsgBox "請關閉程序,重新打開本程序再嘗試"
            EndScript
        end if
    end if
    // 插件註冊結束<<<<<<<<<<<<<<<
    // 收費註冊開始,簡單游作者不需要這一段(加了也沒關係，不會扣費),非簡單游平台付費作者必須添加>>>>>>>>>>>>>>>
    // 當然，如果是在按鍵精靈上使用，這段代碼是可以注釋掉。大部分功能可以直接在按鍵平台使用。無須註冊.
    // ok,這裡已經確認插件註冊成功，並且創建了對象,下面開始註冊收費服務.
    // 當然這裡也可以使用高級的RegEx函數.
    dm_ret = dm.Reg(金鑰, "") // 您的註冊碼. 在大漠插件網站後台可以直接獲取.
    if dm_ret <> 1 then
        MsgBox "註冊失敗,返回值是:"&dm_ret
        EndScript
    end if
    // 收費註冊結束<<<<<<<<<<<<<<<<
    TracePrint "大漠註冊完成"
End Function