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

首先復制粘貼DLL部分內容：

.版本 2

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

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

接著雙擊窗口中間空白的地方，跳到窗口程序集1，復制以下內容，粘貼進去即可

.版本 2

.程序集 窗口程序集1
.程序集變量 是否已經注冊, 邏輯型
.程序集變量 已注冊子程序地址, 整數型
.程序集變量 已注冊子程序內存數據地址, 整數型 //放到全局變量中

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

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

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

.子程序 Call內存, 整數型
.參數 內存地址, 整數型, , 存放調用子程序地址數據的內存地址

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

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

時鐘1.時鐘周期 ＝ 120

.子程序 _按鈕2_被單擊, , , 已經注冊

是否已經注冊 ＝ 真 ' 假設已經被爆
.如果真 (是否已經注冊)
Call內存 (已注冊子程序內存數據地址)
.如果真結束

.子程序 _時鐘1_周期事件

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

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

.子程序 子程序1

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

.子程序 子程序2

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

以上就是本次整理關于易語言安裝的全部內容，感謝大家對腳本之家的支持。

最新評論