1.         条件结束
  2.     循环结束
  3.     如果表达式 (Key = 82) 为真,则
  4.         Mystring = "选择[R]返回[选择菜单]..."
  5.         调用子程序 [说话]
  6.         调用子程序 [选择菜单]
  7.     否则如果(Key = 84)为真,则
  8.         Mystring = "选择[T][添加]脚本..."
  9.         调用子程序 [说话]
  10.         调用子程序 [清空材料列表]
  11.         StoreName = "" :ScriptName = ""
  12.         ScriptHaved=0
  13.         Mystring="[选择商店]..."
  14.         调用子程序 [说话]
  15.         调用子程序 [选择商店]
  16.         Mystring="设置[材料列表]..."
  17.         调用子程序 [说话]
  18.         标记 [设置材料]
  19.         调用子程序 [材料列表]
  20.         如果表达式 (BuyItemCount = 0) 为真,则
  21.             Mystring="[材料列表]不能为<空>,请重新设置..."
  22.             调用子程序 [说话]
  23.             跳转到标记 [设置材料]
  24.             调用子程序 [说话]
  25.         条件结束
  26.         Mystring="取得[制作物品位置]..."
  27.         调用子程序 [说话]
  28.         调用子程序 [制作物品排]
  29.         调用子程序 [制作物品列]
  30.         Mystring="取得[补体方式]..."
  31.         调用子程序 [说话]
  32.         调用子程序 [补体方式]
  33.         Mystring="取得[制作类型]..."
  34.         调用子程序 [说话]
  35.         调用子程序 [制作类型]
  36.         Mystring="设置[脚本名]..."
  37.         调用子程序 [说话]
  38.         调用子程序 [设置脚本名]
  39.         调用子程序 [脚本设置]
  40.     否则
  41.         ScriptNum = Chr(Key)
  42.         调用插件命令 Script = File.ReadINI("脚本",ScriptNum,IniFile)
  43.         ScriptName = Left(Script,InStr(1,Script,",",1)-1)
  44.         Mystring="选择脚本[" & ScriptNum & "][" & ScriptName & "]..."
  45.         调用子程序 [说话]
  46.         调用子程序 [脚本操作]
  47.     条件结束
  48. 子程序结束,回到调用处
  49. 子程序 [取得剪贴板]
  50.     Set objIE = CreateObject("InternetExplorer.Application")
  51.     objIE.Navigate("about:blank")
  52.     strURL = objIE.document.parentwindow.clipboardData.GetData("text")
  53.     objIE.Quit
  54.     strURL = Replace(strURL,vbCrLf,"",1)
  55.     strURL = Replace(strURL,vbLf,"",1)
  56.     strURL = Replace(strURL,"#","",1)
  57.     strURL = Replace(strURL,",","",1)
  58.     strURL = Replace(strURL,"│","",1)
  59.     strURL = Trim(Left(strURL,6))
  60. 子程序结束,回到调用处
  61. 子程序 [确认保存设置]
  62.     Mystring="│[保存] -[" & strURL &"]" & vblf
  63.     Mystring= Mystring & "├" & String(11,"─") & vblf
  64.     Mystring= Mystring & "│<Y>确定 <N>取消" & vblf
  65.     调用子程序 [说话]
  66.     调用子程序 [等待按键]
  67.     如果表达式 (Key <> 89 And Key <> 78) 为真,则循环执行
  68.         调用子程序 [等待按键]
  69.     循环结束
  70.     如果表达式 (Key = 89) 为真,则
  71.         Mystring = "选择[Y][确定][保存]脚本[" & strURL & "]..."
  72.         调用子程序 [说话]
  73.         如果表达式 (ScriptCount >= 15) 为真,则
  74.             Mystring = "脚本个数已超出上限..."
  75.             调用子程序 [说话]
  76.         否则
  77.             ScriptName = strURL
  78.             ScriptNum = Hex(ScriptCount + 1)
  79.             调用子程序 [保存脚本]
  80.         条件结束
  81.     否则如果(Key = 78)为真,则
  82.         Mystring = "选择[N][取消]..."
  83.         调用子程序 [说话]
  84.     条件结束
  85. 子程序结束,回到调用处
  86. 子程序 [确认覆盖设置]
  87.     如果表达式 (strURL <> "") 为真,则
  88.         Mystring="│[覆盖] -[" & strURL &"]" & vblf
  89.     否则
  90.         如果表达式 (ScriptName <> "") 为真,则
  91.             Mystring="│[覆盖] -[" & ScriptName &"]" & vblf
  92.         条件结束
  93.     条件结束
  94.     Mystring= Mystring & "├" & String(11,"─") & vblf
  95.     Mystring= Mystring & "│<Y>确定 <N>取消" & vblf
  96.     调用子程序 [说话]
  97.     调用子程序 [等待按键]
  98.     如果表达式 (Key <> 89 And Key <> 78) 为真,则循环执行
  99.         调用子程序 [等待按键]
  100.     循环结束