在使用大漠之前，先註冊大漠，這裡我以外掛版本3.1233為例（如果是其他版本你自己修改），程式碼如下：

Call Register_dm

Sub Register_dm

Set ws=createobject("Wscript.Shell")

ws.run "regsvr32 atl.dll /s"

Set ws=nothing

PutAttachment ".", "dm.dll"

PutAttachment ".\Plugin", "RegDll.dll"

Call Plugin.RegDll.Reg(".\dm.dll")

Delay 200

Set dm = createobject("dm.dmsoft")

ver = dm.Ver()

If ver "3.1233" then

Set dm = nothing

Set ws=createobject("Wscript.Shell")

ws.run "regsvr32 .\dm.dll /s"

Set ws=nothing

Delay 1000

Set dm = createobject("dm.dmsoft")

Delay 200

ver = dm.Ver()

If ver "3.1233" then

MessageBox "外掛版本錯誤,當前使用的版本是:" & ver & ",外掛所在目錄是:" & dm.GetBasePath() & Chr(10) & "請關閉程式,重新開啟本程式再嘗試"

End if

End If

End Sub

大漠註冊成功後，如果你開啟執行緒，線上程裡面前還要加一句Set dm = createobject("dm.dmsoft")

建立大漠物件，這樣，你的問題就解決了。