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