新建一個(gè)窗口程序，然后添加一個(gè)時(shí)鐘，再添加兩個(gè)按鈕（名稱別去修改，就這樣）

首先復(fù)制粘貼DLL部分內(nèi)容：

.版本 2

.DLL命令 CallWindowProc, 整數(shù)型, "user32.dll", "CallWindowProcA", , 呼叫窗口函數(shù)地址
.參數(shù) 前一窗口函數(shù)地址, 字節(jié)集
.參數(shù) 窗口句柄, 整數(shù)型
.參數(shù) 消息值, 整數(shù)型
.參數(shù) 附加參數(shù)1, 整數(shù)型
.參數(shù) 附加參數(shù)2, 整數(shù)型

.DLL命令 lstrcpyn, 整數(shù)型, "kernel32.dll","lstrcpyn",,把第二個(gè)參數(shù)復(fù)制給第一個(gè)參數(shù),第三個(gè)參數(shù)是指復(fù)制的個(gè)數(shù)
.參數(shù) lpString1, 字節(jié)型, 傳址
.參數(shù) lpString2, 字節(jié)型, 傳址
.參數(shù) iMaxLength, 整數(shù)型

接著雙擊窗口中間空白的地方，跳到窗口程序集1，復(fù)制以下內(nèi)容，粘貼進(jìn)去即可

.版本 2

.程序集 窗口程序集1
.程序集變量 是否已經(jīng)注冊, 邏輯型
.程序集變量 已注冊子程序地址, 整數(shù)型
.程序集變量 已注冊子程序內(nèi)存數(shù)據(jù)地址, 整數(shù)型 //放到全局變量中

.子程序 _啟動(dòng)子程序, 整數(shù)型, , 本子程序在程序啟動(dòng)后最先執(zhí)行
置錯(cuò)誤提示管理 (&錯(cuò)誤提示管理)
已注冊子程序地址 ＝ 到數(shù)值 (&子程序1)
已注冊子程序內(nèi)存數(shù)據(jù)地址 ＝ lstrcpyn (已注冊子程序地址, 已注冊子程序地址, 0)
載入 (啟動(dòng)窗口, , 假)
返回 (0) ' 可以根據(jù)您的需要返回任意數(shù)值

.子程序 錯(cuò)誤提示管理, 邏輯型, , 本命令用來設(shè)置當(dāng)運(yùn)行時(shí)如果產(chǎn)生了導(dǎo)致程序崩潰的嚴(yán)重錯(cuò)誤時(shí)用來對(duì)該錯(cuò)誤進(jìn)行詳細(xì)提示的子程序地址，如果未進(jìn)行此項(xiàng)設(shè)置，發(fā)生嚴(yán)重錯(cuò)誤時(shí)運(yùn)行時(shí)環(huán)境將自動(dòng)提示該錯(cuò)誤的詳細(xì)信息并直接退出
.參數(shù) 錯(cuò)誤代碼, 整數(shù)型, , 用作接收錯(cuò)誤代碼
.參數(shù) 錯(cuò)誤文本, 文本型, , 用作接收詳細(xì)錯(cuò)誤文本

' 該子程序必須返回一個(gè)邏輯值，返回真表示已經(jīng)自行處理完畢，系統(tǒng)將不再顯示該錯(cuò)誤信息，返回假表示由系統(tǒng)來繼續(xù)顯示該錯(cuò)誤信息。以上設(shè)置必須完全正確，否則結(jié)果不能預(yù)測，另外，還請(qǐng)注意以下幾點(diǎn)：
' 1、該錯(cuò)誤提示子程序不要再引發(fā)新的錯(cuò)誤；
' 2、在進(jìn)入該錯(cuò)誤提示子程序后，系統(tǒng)將自動(dòng)關(guān)閉事件消息通知處理機(jī)制，也就是說任何事件將無法得到響應(yīng)；
' 3、無論如何，當(dāng)該子程序調(diào)用退出后，系統(tǒng)將自動(dòng)將整個(gè)應(yīng)用程序關(guān)閉。 如果省略本參數(shù)，系統(tǒng)將恢復(fù)錯(cuò)誤提示的默認(rèn)處理方
信息框 (“程序出錯(cuò)!” ＋ #換行符 ＋ “錯(cuò)誤代碼: 00000” ＋ 到文本 (錯(cuò)誤代碼), 64, “友情提示”)
返回 (真)

.子程序 Call內(nèi)存, 整數(shù)型
.參數(shù) 內(nèi)存地址, 整數(shù)型, , 存放調(diào)用子程序地址數(shù)據(jù)的內(nèi)存地址

返回 (CallWindowProc ({ 255, 37 } ＋ 到字節(jié)集 (內(nèi)存地址), 0, 0, 0, 0)) ' JMP DS:

.子程序 _按鈕1_被單擊, , , 暗樁

時(shí)鐘1.時(shí)鐘周期 ＝ 120

.子程序 _按鈕2_被單擊, , , 已經(jīng)注冊

是否已經(jīng)注冊 ＝ 真 ' 假設(shè)已經(jīng)被爆
.如果真 (是否已經(jīng)注冊)
Call內(nèi)存 (已注冊子程序內(nèi)存數(shù)據(jù)地址)
.如果真結(jié)束

.子程序 _時(shí)鐘1_周期事件

是否已經(jīng)注冊 ＝ 假 ' 這里表示沒能通過注冊
.如果 (是否已經(jīng)注冊)

.否則
已注冊子程序地址 ＝ 到數(shù)值 (&子程序2)
.如果結(jié)束

.子程序 子程序1

信息框 (“已經(jīng)注冊”, 0, )

.子程序 子程序2

信息框 (“暗樁”, 0, )

以上就是本次整理關(guān)于易語言安裝的全部內(nèi)容，感謝大家對(duì)腳本之家的支持。

最新評(píng)論