【正文】
/////注冊大漠 Set ws = createobject() regsvr32 /s Set ws = nothing PutAttachment G:\test, PutAttachment .\Plugin , call ( G:\test\) Set dm = createobject() ver = () If len(ver) = 0 Then MessageBox 插件注冊失敗,檢查系統(tǒng)是否禁用了vbs腳本權(quán)限 EndScript End IfEnd Sub Sub OnScriptExit() //解綁大漠 dm_ret = () End Sub要點(diǎn)分析: 為什么在sub 點(diǎn)擊子程序里要寫下面的這句代碼呢? Set dm = createobject() 這句代碼的作用是創(chuàng)建一個(gè)大漠對象。 新的線程是不能延用主線程里所創(chuàng)建的大漠對象的,所以在這里需要重新創(chuàng)建一個(gè)大漠對象。