1.                                                                                                     延时50毫秒
  2.                                                                                                     End If
  3.                                                                                                     loop
  4.                                                                                                     loop
  5.                                                                                                     跳转到标记 查找赛利亚
  6.                                                                                                     跳转到标记 查找赛利亚
  7.                                                                                                     跳转到标记 查找赛利亚
  8.                                                                                                     跳转到标记 查找赛利亚
  9.                                                                                                     //<>--------------------------------------------------------------------<>
  10.                                                                                                     //<>------------------------------子程序------------------------------<>
  11.                                                                                                     //<>--------------------------------------------------------------------<>
  12.                                                                                                     子程序 注册()
  13.                                                                                                         展开附件 ".\plugin","*.dll"
  14.                                                                                                         展开附件 ".\plugin\大漠梦想","*.bmp"
  15.                                                                                                         展开附件 ".\plugin\大漠梦想","*.txt"
  16.                                                                                                         展开附件 ".\plugin\大漠梦想","dm.dll"
  17.                                                                                                         //↑PutAttachment释放附件
  18.                                                                                                         //↑PutAttachment释放附件
  19.                                                                                                         Call Plugin.RegDll.Reg(".\plugin\大漠梦想\dm.dll")
  20.                                                                                                         set dm = createobject("dm.dmsoft")
  21.                                                                                                         dm.SetPath ".\plugin\大漠梦想"
  22.                                                                                                         //↑大漠·注册
  23.                                                                                                         //字库
  24.                                                                                                         dm_ret = dm.SetDict(0, "赛利亚字库.txt")
  25.                                                                                                         dm_ret = dm.SetDict(0, "赛利亚字库.txt")
  26.                                                                                                         延时40毫秒
  27.                                                                                                         End Sub
  28.                                                                                                         //
  29.                                                                                                         子程序 OnScriptExit()
  30.                                                                                                             dm_ret = dm.UnBindWindow()
  31.                                                                                                             End Sub