DLL命令表
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
.版本 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, 文本型 |
全局變量表
|
1
2
|
.版本 2.全局變量 易句柄, 整數(shù)型 |
路徑
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
|
.版本 2.程序集 Setting.子程序 __啟動窗口_創(chuàng)建完畢易句柄 ＝ -1.如果 (讀配置項(xiàng) (取運(yùn)行目錄 () ＋ “\program.ini”, “Check”, 選擇框_自動運(yùn)行.標(biāo)題, “假”) ＝ “真”) 選擇框_自動運(yùn)行.選中 ＝ 真.否則 選擇框_自動運(yùn)行.選中 ＝ 假 寫配置項(xiàng) (取運(yùn)行目錄 () ＋ “\program.ini”, “Check”, 選擇框_自動運(yùn)行.標(biāo)題, “假”).如果結(jié)束.如果 (讀配置項(xiàng) (取運(yùn)行目錄 () ＋ “\program.ini”, “Check”, 選擇框_指定路徑.標(biāo)題, “假”) ＝ “真”) 選擇框_指定路徑.選中 ＝ 真.否則 選擇框_指定路徑.選中 ＝ 假 寫配置項(xiàng) (取運(yùn)行目錄 () ＋ “\program.ini”, “Check”, 選擇框_指定路徑.標(biāo)題, “假”).如果結(jié)束.如果 (讀配置項(xiàng) (取運(yùn)行目錄 () ＋ “\program.ini”, “Check”, 選擇框_絕對路徑.標(biāo)題, “假”) ＝ “真”) 選擇框_絕對路徑.選中 ＝ 真.否則 選擇框_絕對路徑.選中 ＝ 假 寫配置項(xiàng) (取運(yùn)行目錄 () ＋ “\program.ini”, “Check”, 選擇框_絕對路徑.標(biāo)題, “假”).如果結(jié)束.如果 (讀配置項(xiàng) (取運(yùn)行目錄 () ＋ “\program.ini”, “Data”, “編譯路徑”, “\Debug\Program.exe”) ＝ “\Debug\Program.exe”) 寫配置項(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) .如果 (信息框 (“未找到易語言進(jìn)程，是否需要進(jìn)入程序設(shè)置頁面？”, #是否鈕, “提示：”, ) ＝ #是鈕 或 是否為調(diào)試版 ()) _啟動窗口.可視 ＝ 真 .否則 結(jié)束 () .如果結(jié)束.否則 .如果 (是否為調(diào)試版 ()) _啟動窗口.可視 ＝ 真 .否則 載入 (Run, , 假) _啟動窗口.銷毀 () 信息框 (“插件加載成功”, 0, “提示：”, ) .如果結(jié)束.如果結(jié)束.子程序 _選擇框_自動運(yùn)行_被單擊寫配置項(xiàng) (取運(yùn)行目錄 () ＋ “\program.ini”, “Check”, 選擇框_自動運(yùn)行.標(biāo)題, 到文本 (選擇框_自動運(yùn)行.選中)).子程序 _選擇框_指定路徑_被單擊寫配置項(xiàng) (取運(yùn)行目錄 () ＋ “\program.ini”, “Check”, 選擇框_指定路徑.標(biāo)題, 到文本 (選擇框_指定路徑.選中)).子程序 _選擇框_絕對路徑_被單擊寫配置項(xiàng) (取運(yùn)行目錄 () ＋ “\program.ini”, “Check”, 選擇框_絕對路徑.標(biāo)題, 到文本 (選擇框_絕對路徑.選中)).子程序 _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) 信息框 (“路徑為空或含有不合法符號”, 0, “提示：”, ) .否則 Data_Path.內(nèi)容 ＝ “” .如果結(jié)束.否則 .如果 (選擇框_絕對路徑.選中 ＝ 假 且 尋找文本 (Data_Path.內(nèi)容, “:”, , 假) ＞ -1) 選擇框_指定路徑.選中 ＝ 假 _選擇框_指定路徑_被單擊 () .如果 (易句柄 ＞ -1) 信息框 (“非絕對路徑禁止使用冒號”, 0, “提示：”, ) .否則 Data_Path.內(nèi)容 ＝ “” .如果結(jié)束 .否則 寫配置項(xiàng) (取運(yùn)行目錄 () ＋ “\program.ini”, “Data”, “編譯路徑”, Data_Path.內(nèi)容) .如果結(jié)束.如果結(jié)束 |
調(diào)試
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
|
.版本 2.支持庫 spec.程序集 Running.程序集變量 路徑, 文本型.子程序 _Run_創(chuàng)建完畢.如果 (讀配置項(xiàng) (取運(yùn)行目錄 () ＋ “\program.ini”, “Check”, “自定義程序編譯寫出路徑”, “假”) ＝ “真”) 路徑 ＝ 讀配置項(xiàng) (取運(yùn)行目錄 () ＋ “\program.ini”, “Data”, “編譯路徑”, “\Debug\Program.exe”) .如果 (路徑 ≠ “\Debug\Program.exe”) .如果真 (讀配置項(xiàng) (取運(yùn)行目錄 () ＋ “\program.ini”, “Check”, “絕對路徑”, “假”) ≠ “真”) .如果真 (取文本左邊 (路徑, 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”, “程序編譯后自動調(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)試_編譯程序, , 公開.參數(shù) 編譯路徑, 文本型.參數(shù) 易語言句柄, 整數(shù)型.局部變量 編譯句柄, 整數(shù)型.局部變量 寫出句柄, 整數(shù)型調(diào)試_刪除程序 (編譯路徑)目錄_逐級創(chuàng)建 (編譯路徑)窗口_PostMessage (易語言句柄, 256, #F7鍵, 0)窗口_PostMessage (易語言句柄, 257, #F7鍵, 0).計次循環(huán)首 (50, ) ' 5.0 秒 編譯句柄 ＝ 窗口_FindWindowA (字符 (0), “請輸入欲編譯到的可執(zhí)行文件名：”) 延遲 (100) .如果真 (編譯句柄 ＞ 0) 跳出循環(huán) () .如果真結(jié)束.計次循環(huán)尾 ().如果真 (編譯句柄 ＞ 0) .計次循環(huán)首 (30, ) ' 3.0 秒 寫出句柄 ＝ 窗口_FindWindowExA (編譯句柄, 0, “Edit”, 字符 (0)) 延遲 (100) .如果真 (寫出句柄 ＞ 0) 跳出循環(huán) () .如果真結(jié)束 .計次循環(huán)尾 () .如果真 (寫出句柄 ＞ 0) 窗口_SendMessage (寫出句柄, 12, 0, 編譯路徑) 寫出句柄 ＝ 窗口_FindWindowExA (編譯句柄, 0, “Button”, “保存(&S)”) .如果真 (寫出句柄 ＞ 0) 窗口_PostMessage (編譯句柄, 256, #回車鍵, 0) 窗口_PostMessage (編譯句柄, 257, #回車鍵, 0) .計次循環(huán)首 (50, ) ' 5.0 秒 延遲 (100) .如果真 (文件是否存在 (編譯路徑)) 跳出循環(huán) () .如果真結(jié)束 .計次循環(huán)尾 () .計次循環(huán)首 (5, ) ' 0.5 秒 編譯句柄 ＝ 窗口_FindWindowA (字符 (0), “詢問:”) 延遲 (100) .如果真 (編譯句柄 ＞ 0) 跳出循環(huán) () .如果真結(jié)束 .計次循環(huán)尾 () .如果真 (編譯句柄 ＞ 0) 寫出句柄 ＝ 窗口_FindWindowExA (編譯句柄, 0, “Button”, “寫出(&W)”) .如果真 (寫出句柄 ＞ 0) 窗口_PostMessage (編譯句柄, 256, #回車鍵, 0) 窗口_PostMessage (編譯句柄, 257, #回車鍵, 0) .如果真結(jié)束 .如果真結(jié)束 .如果真結(jié)束 .如果真結(jié)束.如果真結(jié)束.如果真 (文件是否存在 (編譯路徑) ＝ 假) 信息框 (“程序編譯失敗”, 0, “提示：”, ).如果真結(jié)束.子程序 調(diào)試_刪除程序, , 公開.參數(shù) 編譯路徑, 文本型.局部變量 exe, 文本型.局部變量 dir, 文本型.如果真 (文件是否存在 (編譯路徑)) dir ＝ 取文本左邊 (編譯路徑, 倒找文本 (編譯路徑, “\”, , 假)) exe ＝ 取文本右邊 (編譯路徑, 取文本長度 (編譯路徑) － 取文本長度 (dir)) 運(yùn)行 (“cmd /c taskkill /f /im ” ＋ exe, 真, 1) 刪除文件 (編譯路徑) .如果真 (尋找文本 (dir, 取運(yùn)行目錄 () ＋ “\”, , 假) ＞ -1) dir ＝ 取文本右邊 (dir, 取文本長度 (dir) － 尋找文本 (編譯路徑, 取運(yùn)行目錄 () ＋ “\”, , 假)) ' X:\xxxx\xxx\ -> xxx\ dir ＝ 取文本左邊 (dir, 尋找文本 (dir ＋ “\”, “\”, , 假) － 1) ' xxx\ -> xxx .如果真 (取文本右邊 (dir, 1) ≠ “\”) dir ＝ dir ＋ “\” .如果真結(jié)束 刪除目錄 (取運(yùn)行目錄 () ＋ “\” ＋ dir) .如果真結(jié)束.如果真結(jié)束.子程序 目錄_逐級創(chuàng)建, , 公開.參數(shù) 目錄路徑, 文本型.參數(shù) 是否為網(wǎng)絡(luò)路徑, 邏輯型, 可空.局部變量 標(biāo)識, 文本型.局部變量 文本, 文本型.如果 (是否為網(wǎng)絡(luò)路徑) 標(biāo)識 ＝ “/”.否則 標(biāo)識 ＝ “\”.如果結(jié)束.判斷循環(huán)首 (尋找文本 (目錄路徑, 標(biāo)識, 取文本長度 (文本) ＋ 1, 假) ＞ -1) 文本 ＝ 取文本左邊 (目錄路徑, 尋找文本 (目錄路徑, 標(biāo)識, 取文本長度 (文本) ＋ 1, 假)) 創(chuàng)建目錄 (文本).判斷循環(huán)尾 () |
運(yùn)行結(jié)果：
總結(jié)
以上就是這篇文章的全部內(nèi)容了，希望本文的內(nèi)容對大家的學(xué)習(xí)或者工作具有一定的參考學(xué)習(xí)價值，謝謝大家對服務(wù)器之家的支持。如果你想了解更多相關(guān)內(nèi)容請查看下面相關(guān)鏈接
