快捷導(dǎo)航

易語(yǔ)言制作調(diào)試助手

更新時(shí)間：2018年11月29日 10:31:24 作者：易語(yǔ)言源碼貝貝吧

今天小編就為大家分享一篇關(guān)于易語(yǔ)言制作調(diào)試助手，小編覺(jué)得內(nèi)容挺不錯(cuò)的，現(xiàn)在分享給大家，具有很好的參考價(jià)值，需要的朋友一起跟隨小編來(lái)看看吧

DLL命令表

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

全局變量表

.版本 2
.全局變量 易句柄, 整數(shù)型

路徑

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

調(diào)試

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

運(yùn)行結(jié)果：