Delay 50 End If loop Goto 查找赛利亚 //<>--------------------------------------------------------------------<> //<>------------------------------子程序------------------------------<> //<>--------------------------------------------------------------------<> Sub 注册() PutAttachment ".\plugin","*.dll" PutAttachment ".\plugin\大漠梦想","*.bmp" PutAttachment ".\plugin\大漠梦想","*.txt" PutAttachment ".\plugin\大漠梦想","dm.dll" //↑PutAttachment释放附件 Call Plugin.RegDll.Reg(".\plugin\大漠梦想\dm.dll") set dm = createobject("dm.dmsoft") dm.SetPath ".\plugin\大漠梦想" //↑大漠·注册 //字库 dm_ret = dm.SetDict(0, "赛利亚字库.txt") Delay 40 End Sub // Sub OnScriptExit() dm_ret = dm.UnBindWindow() End Sub