亚洲激情专区-91九色丨porny丨老师-久久久久久久女国产乱让韩-国产精品午夜小视频观看

溫馨提示×

溫馨提示×

您好,登錄后才能下訂單哦!

密碼登錄×
登錄注冊×
其他方式登錄
點擊 登錄注冊 即表示同意《億速云用戶服務條款》

易語言如何制作調試助手

發布時間:2021-06-16 15:29:58 來源:億速云 閱讀:160 作者:小新 欄目:編程語言

這篇文章主要介紹易語言如何制作調試助手,文中介紹的非常詳細,具有一定的參考價值,感興趣的小伙伴們一定要看完!

DLL命令表

.版本 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, 假))
  創建目錄 (文本)
.判斷循環尾 ()

運行結果:

易語言如何制作調試助手

以上是“易語言如何制作調試助手”這篇文章的所有內容,感謝各位的閱讀!希望分享的內容對大家有幫助,更多相關知識,歡迎關注億速云行業資訊頻道!

向AI問一下細節

免責聲明:本站發布的內容(圖片、視頻和文字)以原創、轉載和分享為主,文章觀點不代表本網站立場,如果涉及侵權請聯系站長郵箱:is@yisu.com進行舉報,并提供相關證據,一經查實,將立刻刪除涉嫌侵權內容。

AI

平江县| 清徐县| 疏勒县| 永新县| 九龙城区| 红原县| 南华县| 远安县| 嘉善县| 丰原市| 石嘴山市| 岐山县| 大姚县| 鹿邑县| 基隆市| 靖宇县| 琼结县| 介休市| 常宁市| 平陆县| 舟山市| 崇州市| 九龙坡区| 陵水| 南京市| 习水县| 渝中区| 芦溪县| 明水县| 宁安市| 青田县| 金平| 称多县| 马山县| 宁德市| 南康市| 高邮市| 蓬溪县| 淮南市| 富蕴县| 七台河市|