按鍵精靈註冊呼叫大漠例項原始碼封裝

按鍵中對大漠的註冊做了詳細的說明，我們可以封裝一下，隨處可以呼叫。

我們首先看看大漠給的教程

need_ver = "3.1233"

// 外掛程式需要用到atl系統庫,有些xp精簡系統會把atl.dll精簡掉. 為了防止註冊失敗，這裡手動註冊一下atl.dll

set ws=createobject("wscript.shell")

ws.run "regsvr32 atl.dll /s"

set ws=nothing

// 釋放附件》

// 這裡選擇c盤的test­_game作為外掛程式的基本目錄 也就是setpath對應的目錄。所以所有資源都釋放在此目錄.

putattachment "c:\test_game","*.*"

// 這裡要用到regdll來註冊外掛程式，所以必須釋放到plugin. 但是切記不能把dm.dll釋放到plugin.那會導致外掛程式失效.

putattachment ".\plugin" ,"regdll.dll"

// 外掛程式註冊開始》

// 下面開始註冊外掛程式,先嘗試用regdll來註冊.這裡必須使用絕對路徑。以免有別人把dm.dll釋放在系統目錄.造成版本錯誤.

call plugin.regdll.reg("c:\test_game\dm.dll")   

// 這裡判斷是否註冊成功

set dm = createobject("dm.dmsoft")

ver = dm.ver()

if ver <> need_ver then

// 先釋放先前建立的dm

set dm = nothing

// 再嘗試用regsvr32 來註冊. 這裡必須使用絕對路徑。以免有別人把dm.dll釋放在系統目錄.造成版本錯誤.

set ws=createobject("wscript.shell")

ws.run "regsvr32 c:\test_game\dm.dll /s"

set ws=nothing

delay 1500

// 再判斷外掛程式是否註冊成功

set dm = createobject("dm.dmsoft")

ver = dm.ver()

if ver <> need_ver then

// 這時，已經確認外掛程式註冊失敗了。 彈出一些除錯資訊，以供分析.

messagebox "外掛程式版本錯誤,當前使用的版本是:"&ver&",外掛程式所在目錄是:"&dm.getbasepath()

messagebox "請關閉程式,重新開啟本程式再嘗試"

endscript

end if

end if

// 外掛程式註冊結束<<<<<<<<<<<<<<<

我們自己封裝一下註冊程式。

sub 註冊()

putattachment ".\houtaidenglu","*.dll"
putattachment ".\houtaidenglu","*.bmp"
putattachment ".\houtaidenglu","*.txt"
putattachment ".\houtaidenglu","dm.dll"
//↑putattachment釋放附件
call plugin.regdll.reg(".\dm.dll")
set dm = createobject("dm.dmsoft")
dm.setpath "d:\按鍵精靈9\houtaidenglu"
dm.setdict 0,"denglu.txt"
//↑相對路徑……第乙個·字型檔
//↑大漠·註冊
delay 200
end sub

按鍵精靈 炫舞遊戲原始碼

imgid findimg 0 0,1366 768 按鍵精靈.bmp 起點x imgx 起點y imgy 850 676 四方向 上.bmp 下.bmp 左.bmp 右.bmp x1 起點x 494 850 y1 起點y 555 676x2 起點x 594 850 y2 起點y 628 676 4...

按鍵精靈 大沙漠外掛程式註冊

釋放 附件 中自己新增的檔案到d dm目錄中，釋放regdll.dll到plugin目錄中 putattachment d dm putattachment plugin regdll.dll 呼叫regdll.dll,註冊大漠外掛程式 call plugin.regdll.reg d dm dm....

按鍵精靈裡三層以上框架動態分析原始碼

out mess 第0層 frame0 plugin.web.runjs 1,var t document.frames.length return t mess0 本框架總共有 cstr frame0 個字框架 總框架提示mess0 out mess mess0 vbcr mess1 out me...