.版本 2.DLL命令 窗口_FindWindowA, 整數型, "user32", "FindWindowA", , 句柄操作  .參數 lpClassName, 文本型  .參數 lpWindowName, 文本型.DLL命令 窗口_SendMessage, 整數型, , "SendMessageA", , 句柄操作  .參數 HWND  .參數 sc  .參數 z1  .參數 z2, 文本型.DLL命令 窗口_PostMessage, 整數型, , "PostMessageA", , 句柄操作  .參數 HWND  .參數 sc  .參數 z1  .參數 z2.DLL命令 窗口_SetParent, 整數型, "user32", "SetParent", , 句柄操作  .參數 hWndChild, 整數型  .參數 hWndNewParent, 整數型.DLL命令 窗口_FindWindowExA, 整數型, "user32", "FindWindowExA", , 句柄操作  .參數 hWnd1, 整數型  .參數 hWnd2, 整數型  .參數 lpsz1, 文本型  .參數 lpsz2, 文本型

.版本 2.全局變量 易句柄, 整數型

.版本 2.程序集 Setting.子程序 __啟動窗口_創建完畢易句柄 ＝ -1.如果 (讀配置項 (取運行目錄 () ＋ “/program.ini”, “Check”, 選擇框_自動運行.標題, “假”) ＝ “真”)  選擇框_自動運行.選中 ＝ 真.否則  選擇框_自動運行.選中 ＝ 假  寫配置項 (取運行目錄 () ＋ “/program.ini”, “Check”, 選擇框_自動運行.標題, “假”).如果結束.如果 (讀配置項 (取運行目錄 () ＋ “/program.ini”, “Check”, 選擇框_指定路徑.標題, “假”) ＝ “真”)  選擇框_指定路徑.選中 ＝ 真.否則  選擇框_指定路徑.選中 ＝ 假  寫配置項 (取運行目錄 () ＋ “/program.ini”, “Check”, 選擇框_指定路徑.標題, “假”).如果結束.如果 (讀配置項 (取運行目錄 () ＋ “/program.ini”, “Check”, 選擇框_絕對路徑.標題, “假”) ＝ “真”)  選擇框_絕對路徑.選中 ＝ 真.否則  選擇框_絕對路徑.選中 ＝ 假  寫配置項 (取運行目錄 () ＋ “/program.ini”, “Check”, 選擇框_絕對路徑.標題, “假”).如果結束.如果 (讀配置項 (取運行目錄 () ＋ “/program.ini”, “Data”, “編譯路徑”, “/Debug/Program.exe”) ＝ “/Debug/Program.exe”)  寫配置項 (取運行目錄 () ＋ “/program.ini”, “Data”, “編譯路徑”, “/Debug/Program.exe”).否則  Data_Path.內容 ＝ 讀配置項 (取運行目錄 () ＋ “/program.ini”, “Data”, “編譯路徑”, “/Debug/Program.exe”)  _Data_Path_失去焦點 ().如果結束易句柄 ＝ 窗口_FindWindowA (“ENewFrame”, 字符 (0)).如果 (易句柄 ＝ 0)  .如果 (信息框 (“未找到易語言進程，是否需要進入程序設置頁面？”, #是否鈕, “提示：”, ) ＝ #是鈕 或 是否為調試版 ())    _啟動窗口.可視 ＝ 真  .否則    結束 ()  .如果結束.否則  .如果 (是否為調試版 ())    _啟動窗口.可視 ＝ 真  .否則    載入 (Run, , 假)    _啟動窗口.銷毀 ()    信息框 (“插件加載成功”, 0, “提示：”, )  .如果結束.如果結束.子程序 _選擇框_自動運行_被單擊寫配置項 (取運行目錄 () ＋ “/program.ini”, “Check”, 選擇框_自動運行.標題, 到文本 (選擇框_自動運行.選中)).子程序 _選擇框_指定路徑_被單擊寫配置項 (取運行目錄 () ＋ “/program.ini”, “Check”, 選擇框_指定路徑.標題, 到文本 (選擇框_指定路徑.選中)).子程序 _選擇框_絕對路徑_被單擊寫配置項 (取運行目錄 () ＋ “/program.ini”, “Check”, 選擇框_絕對路徑.標題, 到文本 (選擇框_絕對路徑.選中)).子程序 _Data_Path_獲得焦點Data_Path.背景顏色 ＝ #艷青.子程序 _Data_Path_失去焦點Data_Path.背景顏色 ＝ #白色.如果 (刪首尾空 (Data_Path.內容) ＝ “” 或 尋找文本 (Data_Path.內容, “?”, , 假) ＞ -1 或 尋找文本 (Data_Path.內容, “*”, , 假) ＞ -1 或 尋找文本 (Data_Path.內容, “|”, , 假) ＞ -1 或 尋找文本 (Data_Path.內容, “<”, , 假) ＞ -1 或 尋找文本 (Data_Path.內容, “>”, , 假) ＞ -1)  選擇框_指定路徑.選中 ＝ 假  _選擇框_指定路徑_被單擊 ()  .如果 (易句柄 ＞ -1)    信息框 (“路徑為空或含有不合法符號”, 0, “提示：”, )  .否則    Data_Path.內容 ＝ “”  .如果結束.否則  .如果 (選擇框_絕對路徑.選中 ＝ 假 且 尋找文本 (Data_Path.內容, “:”, , 假) ＞ -1)    選擇框_指定路徑.選中 ＝ 假    _選擇框_指定路徑_被單擊 ()    .如果 (易句柄 ＞ -1)      信息框 (“非絕對路徑禁止使用冒號”, 0, “提示：”, )    .否則      Data_Path.內容 ＝ “”    .如果結束  .否則    寫配置項 (取運行目錄 () ＋ “/program.ini”, “Data”, “編譯路徑”, Data_Path.內容)  .如果結束.如果結束

.版本 2.支持庫 spec.程序集 Running.程序集變量 路徑, 文本型.子程序 _Run_創建完畢.如果 (讀配置項 (取運行目錄 () ＋ “/program.ini”, “Check”, “自定義程序編譯寫出路徑”, “假”) ＝ “真”)  路徑 ＝ 讀配置項 (取運行目錄 () ＋ “/program.ini”, “Data”, “編譯路徑”, “/Debug/Program.exe”)  .如果 (路徑 ≠ “/Debug/Program.exe”)    .如果真 (讀配置項 (取運行目錄 () ＋ “/program.ini”, “Check”, “絕對路徑”, “假”) ≠ “真”)      .如果真 (取文本左邊 (路徑, 1) ≠ “/”)        路徑 ＝ “/” ＋ 路徑      .如果真結束      路徑 ＝ 取運行目錄 () ＋ 路徑    .如果真結束  .否則    路徑 ＝ 取運行目錄 () ＋ “/Debug/Program.exe”    創建目錄 (取運行目錄 () ＋ “/Debug/”)  .如果結束.否則  路徑 ＝ 取運行目錄 () ＋ “/Debug/Program.exe”  創建目錄 (取運行目錄 () ＋ “/Debug/”).如果結束窗口_SetParent (Run.取窗口句柄 (), 易句柄).子程序 _Run_將被銷毀結束 ().子程序 _編譯按鈕_被單擊, , , 編譯調試_編譯程序 (路徑, 易句柄).如果真 (讀配置項 (取運行目錄 () ＋ “/program.ini”, “Check”, “程序編譯后自動調試運行”, “假”) ＝ “真”)  .如果真 (文件是否存在 (路徑))    .如果真 (運行 (路徑, 假, ) ＝ 假)      信息框 (“程序運行失敗”, 0, “提示：”, )    .如果真結束  .如果真結束.如果真結束.子程序 _運行按鈕_被單擊, , , 運行調試_編譯程序 (路徑, 易句柄).如果真 (文件是否存在 (路徑))  .如果真 (運行 (路徑, 假, ) ＝ 假)    信息框 (“程序運行失敗”, 0, “提示：”, )  .如果真結束.如果真結束.子程序 調試_編譯程序, , 公開.參數 編譯路徑, 文本型.參數 易語言句柄, 整數型.局部變量 編譯句柄, 整數型.局部變量 寫出句柄, 整數型調試_刪除程序 (編譯路徑)目錄_逐級創建 (編譯路徑)窗口_PostMessage (易語言句柄, 256, #F7鍵, 0)窗口_PostMessage (易語言句柄, 257, #F7鍵, 0).計次循環首 (50, ) ' 5.0 秒  編譯句柄 ＝ 窗口_FindWindowA (字符 (0), “請輸入欲編譯到的可執行文件名：”)  延遲 (100)  .如果真 (編譯句柄 ＞ 0)    跳出循環 ()  .如果真結束.計次循環尾 ().如果真 (編譯句柄 ＞ 0)  .計次循環首 (30, ) ' 3.0 秒    寫出句柄 ＝ 窗口_FindWindowExA (編譯句柄, 0, “Edit”, 字符 (0))    延遲 (100)    .如果真 (寫出句柄 ＞ 0)      跳出循環 ()    .如果真結束  .計次循環尾 ()  .如果真 (寫出句柄 ＞ 0)    窗口_SendMessage (寫出句柄, 12, 0, 編譯路徑)    寫出句柄 ＝ 窗口_FindWindowExA (編譯句柄, 0, “Button”, “保存(&S)”)    .如果真 (寫出句柄 ＞ 0)      窗口_PostMessage (編譯句柄, 256, #回車鍵, 0)      窗口_PostMessage (編譯句柄, 257, #回車鍵, 0)      .計次循環首 (50, ) ' 5.0 秒        延遲 (100)        .如果真 (文件是否存在 (編譯路徑))          跳出循環 ()        .如果真結束      .計次循環尾 ()      .計次循環首 (5, ) ' 0.5 秒        編譯句柄 ＝ 窗口_FindWindowA (字符 (0), “詢問:”)        延遲 (100)        .如果真 (編譯句柄 ＞ 0)          跳出循環 ()        .如果真結束      .計次循環尾 ()      .如果真 (編譯句柄 ＞ 0)        寫出句柄 ＝ 窗口_FindWindowExA (編譯句柄, 0, “Button”, “寫出(&W)”)        .如果真 (寫出句柄 ＞ 0)          窗口_PostMessage (編譯句柄, 256, #回車鍵, 0)          窗口_PostMessage (編譯句柄, 257, #回車鍵, 0)        .如果真結束      .如果真結束    .如果真結束  .如果真結束.如果真結束.如果真 (文件是否存在 (編譯路徑) ＝ 假)  信息框 (“程序編譯失敗”, 0, “提示：”, ).如果真結束.子程序 調試_刪除程序, , 公開.參數 編譯路徑, 文本型.局部變量 exe, 文本型.局部變量 dir, 文本型.如果真 (文件是否存在 (編譯路徑))  dir ＝ 取文本左邊 (編譯路徑, 倒找文本 (編譯路徑, “/”, , 假))  exe ＝ 取文本右邊 (編譯路徑, 取文本長度 (編譯路徑) － 取文本長度 (dir))  運行 (“cmd /c taskkill /f /im ” ＋ exe, 真, 1)  刪除文件 (編譯路徑)  .如果真 (尋找文本 (dir, 取運行目錄 () ＋ “/”, , 假) ＞ -1)    dir ＝ 取文本右邊 (dir, 取文本長度 (dir) － 尋找文本 (編譯路徑, 取運行目錄 () ＋ “/”, , 假)) ' X:/xxxx/xxx/  ->  xxx/    dir ＝ 取文本左邊 (dir, 尋找文本 (dir ＋ “/”, “/”, , 假) － 1) ' xxx/  ->  xxx    .如果真 (取文本右邊 (dir, 1) ≠ “/”)      dir ＝ dir ＋ “/”    .如果真結束    刪除目錄 (取運行目錄 () ＋ “/” ＋ dir)  .如果真結束.如果真結束.子程序 目錄_逐級創建, , 公開.參數 目錄路徑, 文本型.參數 是否為網絡路徑, 邏輯型, 可空.局部變量 標識, 文本型.局部變量 文本, 文本型.如果 (是否為網絡路徑)  標識 ＝ “/”.否則  標識 ＝ “/”.如果結束.判斷循環首 (尋找文本 (目錄路徑, 標識, 取文本長度 (文本) ＋ 1, 假) ＞ -1)  文本 ＝ 取文本左邊 (目錄路徑, 尋找文本 (目錄路徑, 標識, 取文本長度 (文本) ＋ 1, 假))  創建目錄 (文本).判斷循環尾 ()