當前位置:首頁 » 操作系統 » 易語言好玩的源碼

易語言好玩的源碼

發布時間: 2024-12-05 22:25:28

1. 怎麼用易語言寫一個自動按鍵的源碼

用到的組件:一個標簽 一個時鍾

說明:這個是每隔0.1秒隨機上下左右按下其中一個 如果要0.1秒上下左右全部按下 把時鍾周期事件下的判斷去掉即可

----------------------------------

.版本 2
.支持庫 shellEx
.支持庫 eAPI

.程序集 窗口程序集1
.程序集變數 F10, 整數型
.程序集變數 F11, 整數型

.子程序 __啟動窗口_創建完畢

F10 = 注冊熱鍵 (_啟動窗口.取窗口句柄 (), 標簽1.取窗口句柄 (), 0, #F10鍵)
F11 = 注冊熱鍵 (_啟動窗口.取窗口句柄 (), 標簽1.取窗口句柄 (), 0, #F11鍵)


.子程序 _標簽1_反饋事件, 整數型
.參數 參數一, 整數型
.參數 參數二, 整數型

.判斷開始 (參數一 = F10)
時鍾1.時鍾周期 = 100
.判斷 (參數一 = F11)
時鍾1.時鍾周期 = 0
.默認

.判斷結束


.子程序 _時鍾1_周期事件
.局部變數 a, 整數型

a = 取隨機數 (1, 5)
.判斷開始 (a = 1)
模擬按鍵 (#上游標鍵, , )
.判斷 (a = 2)
模擬按鍵 (#下游標鍵, , )
.判斷 (a = 3)
模擬按鍵 (#左游標鍵, , )
.判斷 (a = 4)
模擬按鍵 (#右游標鍵, , )
.判斷 (a = 5)
模擬按鍵 (#空格鍵, , )
.默認

----------------------------------------------

2. 請給我易語言整人源碼合集,謝謝了

我想你會喜歡的~~~~千萬別自用哦!!!!

3. 求一段易語言個人記事本的源碼

.版本 2
.程序集 啟動窗口程序集.程序集變數 現行文件名, 文本型.程序集變數 當前被搜尋文本, 文本型.程序集變數 是否區分大小寫, 邏輯型.程序集變數 常用文件名, 文本型, , "3".程序集變數 常用文件菜單項, 菜單, , "3", 成員數目必須與「常用文件名」相等
.子程序 __啟動窗口_尺寸被改變
編輯框.移動 (5, 5, 取用戶區寬度 () - 10, 取用戶區高度 () - 10)
.子程序 _新建_被選擇
.如果真 (詢問保存文檔 () = 假) 編輯框.內容 = 「」 標題 = 「E 語言記事本」 設置修改狀態 (假) 現行文件名 = 「」.如果真結束

.子程序 _打開_被選擇.局部變數 文件號, 整數型
.如果真 (詢問保存文檔 () = 假) 通用對話框1.標題 = 「請輸入欲打開的文本文件名:」 通用對話框1.類型 = 0 .如果真 (通用對話框1.打開 () = 真) .如果真 (打開並讀入文件 (通用對話框1.文件名)) 加入常用文件名 (通用對話框1.文件名) .如果真結束
.如果真結束
.如果真結束

.子程序 _常用文件1_被選擇.局部變數 變數1, 整數型.局部變數 當前菜單項, 菜單
.如果真 (詢問保存文檔 () = 真) 返回 ().如果真結束當前菜單項 = 取事件組件 ().計次循環首 (取數組成員數 (常用文件菜單項), 變數1) .如果真 (常用文件菜單項 [變數1] = 當前菜單項 且 常用文件名 [變數1] ≠ 「」) 打開並讀入文件 (常用文件名 [變數1]) .如果真結束
.計次循環尾 ()

.子程序 打開並讀入文件, 邏輯型, , 成功返回真,失敗返回假.參數 文件名, 文本型.局部變數 窗口標題, 文本型.局部變數 文件號, 整數型.局部變數 是否讀入成功, 邏輯型
編輯框.內容 = 「」設置修改狀態 (假)窗口標題 = 「E 語言記事本」現行文件名 = 「」
文件號 = 打開文件 (文件名, #讀入, ).如果 (文件號 ≠ 0) 編輯框.內容 = 讀入文本 (文件號, ) 關閉文件 (文件號) 現行文件名 = 文件名 窗口標題 = 窗口標題 + 「 - 」 + 現行文件名 是否讀入成功 = 真.否則 信息框 (「打開文件失敗!」, #錯誤圖標, 「錯誤」).如果結束標題 = 窗口標題返回 (是否讀入成功)
.子程序 _保存_被選擇
保存文檔 ()
.子程序 _另存為_被選擇
通用對話框1.標題 = 「請輸入欲另存到的文本文件名:」通用對話框1.類型 = 1.如果真 (通用對話框1.打開 () = 真) 保存文檔 (通用對話框1.文件名).如果真結束

.子程序 _列印_被選擇
.如果真 (列印機1.開始列印 (, ) = 真) 列印機1.寫文本行 (編輯框.內容) ' 「寫文本行」命令會自動換行及換頁 列印機1.結束列印 ().如果真結束

.子程序 _退出_被選擇
.如果真 (詢問保存文檔 () = 假) 銷毀 () ' 通過銷毀主窗口退出程序.如果真結束

.子程序 _撤消_被選擇
編輯框.發送信息 (199, 0, 0)
.子程序 _剪切_被選擇
編輯框.發送信息 (768, 0, 0)
.子程序 _復制_被選擇
編輯框.發送信息 (769, 0, 0)
.子程序 _粘貼_被選擇
編輯框.發送信息 (770, 0, 0)
.子程序 _全選_被選擇
編輯框.發送信息 (177, 0, -1)
.子程序 _日期_被選擇
編輯框.被選擇文本 = 時間到文本 (取現行時間 (), #日期部分)
.子程序 _時間_被選擇
編輯框.被選擇文本 = 時間到文本 (取現行時間 (), #時間部分)
.子程序 _設置字體_被選擇.局部變數 新字體, 字體
通用對話框1.類型 = 2.如果真 (通用對話框1.打開 () = 假) 返回 ().如果真結束新字體.加粗 = 通用對話框1.加粗新字體.傾斜 = 通用對話框1.傾斜新字體.刪除線 = 通用對話框1.刪除線新字體.下劃線 = 通用對話框1.下劃線新字體.字體名稱 = 通用對話框1.字體名稱新字體.字體大小 = 通用對話框1.字體大小編輯框.字體 = 新字體編輯框.文本顏色 = 通用對話框1.字體顏色
.子程序 _查找_被選擇
載入 (搜尋窗口, _啟動窗口, 假)
.子程序 _關於_被選擇
載入 (關於窗口, , 真)
.子程序 是否已被修改, 邏輯型
返回 (編輯框.發送信息 (184, 0, 0) ≠ 0)
.子程序 設置修改狀態.參數 是否已被修改, 邏輯型, 可空, 默認為設置成被修改
編輯框.發送信息 (185, 選擇 (是否為空 (是否已被修改) = 真 或 是否已被修改 = 真, 1, 0), 0)
.子程序 __啟動窗口_可否被關閉, 邏輯型
返回 (取反 (詢問保存文檔 ()))
.子程序 詢問保存文檔, 邏輯型, , 返回真表示用戶選擇了中止.局部變數 詢問返回, 整數型
.如果真 (是否已被修改 () = 真) 詢問返回 = 信息框 (「文件已經被修改,是否保存?」, #取消是否鈕 + #詢問圖標, 「詢問」) .如果真 (詢問返回 = #取消鈕) 返回 (真) .如果真結束 .如果真 (詢問返回 = #是鈕) .如果真 (保存文檔 () = 真) 返回 (真) .如果真結束
.如果真結束
.如果真結束返回 (假)
.子程序 保存文檔, 邏輯型, , 返回真表示用戶選擇了中止.參數 文件名, 文本型, 可空.局部變數 保存文件名, 文本型.局部變數 文件號, 整數型
保存文件名 = 選擇 (是否為空 (文件名), 現行文件名, 文件名).如果真 (保存文件名 = 「」) 通用對話框1.標題 = 「請輸入欲保存到的文本文件名:」 通用對話框1.類型 = 1 .如果真 (通用對話框1.打開 () = 假) 返回 (真) .如果真結束 保存文件名 = 通用對話框1.文件名.如果真結束設置修改狀態 (假)文件號 = 打開文件 (保存文件名, #重寫, ).如果真 (文件號 ≠ 0) .如果 (寫出文本 (文件號, 編輯框.內容) = 真) 關閉文件 (文件號) 現行文件名 = 保存文件名 標題 = 「E 語言記事本 - 」 + 現行文件名 加入常用文件名 (保存文件名) 返回 (假) .否則 關閉文件 (文件號) .如果結束
.如果真結束信息框 (「保存文件失敗!」, #錯誤圖標, 「錯誤」)返回 (假)
.子程序 _查找上一個_被選擇
搜尋 (假)
.子程序 _查找下一個_被選擇
搜尋 (真)
.子程序 搜尋.參數 是否為搜尋下一個, 邏輯型.局部變數 搜尋位置, 整數型
.如果真 (當前被搜尋文本 = 「」) 返回 ().如果真結束搜尋位置 = 編輯框.起始選擇位置 + 1 ' 搜尋位置應該從 1 開始,而編輯框的「起始選擇位置」屬性值是從 0 開始。.如果真 (是否為搜尋下一個) 搜尋位置 = 搜尋位置 + 編輯框.被選擇字元數.如果真結束.如果 (是否為搜尋下一個) 搜尋位置 = 尋找文本 (編輯框.內容, 當前被搜尋文本, 搜尋位置, 是否區分大小寫).否則 搜尋位置 = 倒找文本 (編輯框.內容, 當前被搜尋文本, 搜尋位置, 是否區分大小寫).如果結束.如果 (搜尋位置 = -1) 信息框 (「未找到指定文本」 + #左引號 + 當前被搜尋文本 + #右引號, #錯誤圖標, 「錯誤」).否則 編輯框.起始選擇位置 = 搜尋位置 - 1 ' 轉換回編輯框的「起始選擇位置」屬性值。 編輯框.被選擇字元數 = 取文本長度 (當前被搜尋文本).如果結束

.子程序 __啟動窗口_創建完畢.局部變數 變數1, 整數型
載入常用文件 ()常用文件菜單項 [1] = 常用文件1常用文件菜單項 [2] = 常用文件2常用文件菜單項 [3] = 常用文件3.計次循環首 (取數組成員數 (常用文件菜單項), 變數1) 常用文件菜單項 [變數1].標題 = 「&」 + 到文本 (變數1) + 「. 」 + 常用文件名 [變數1].計次循環尾 ().計次循環首 (取數組成員數 (常用文件菜單項) - 1, 變數1) 事件轉移 (常用文件菜單項 [變數1 + 1], 常用文件1).計次循環尾 ()顯示常用菜單項 ()
.子程序 顯示常用菜單項.局部變數 變數1, 整數型
.如果真 (常用文件名 [1] = 「」) 返回 ().如果真結束連續賦值 (真, 常用文件分隔條.可視, 常用文件菜單項 [1].可視).計次循環首 (取數組成員數 (常用文件菜單項) - 1, 變數1) .如果真 (常用文件名 [變數1 + 1] ≠ 「」) 常用文件菜單項 [變數1 + 1].可視 = 真 .如果真結束
.計次循環尾 ()
.子程序 加入常用文件名.參數 欲加入文件名, 文本型.局部變數 變數1, 整數型.局部變數 數組成員數目, 整數型
檢查 (欲加入文件名 ≠ 「」)數組成員數目 = 取數組成員數 (常用文件菜單項).計次循環首 (數組成員數目, 變數1) .如果真 (常用文件名 [變數1] = 「」) 跳出循環 () ' 找到一個空白菜單項 .如果真結束 .如果真 (文本比較 (常用文件名 [變數1], 欲加入文件名, 假) = 0) 返回 () ' 該常用文件菜單項已經存在 .如果真結束
.計次循環尾 ().如果真 (變數1 > 數組成員數目) ' 如果已經沒有了空白菜單項位置,則將第一個菜單項推出 .計次循環首 (數組成員數目 - 1, 變數1) 常用文件名 [變數1] = 常用文件名 [變數1 + 1] 常用文件菜單項 [變數1].標題 = 「&」 + 到文本 (變數1) + 「. 」 + 常用文件名 [變數1] .計次循環尾 () 變數1 = 數組成員數目 ' 置為指向最後一個菜單項的位置.如果真結束常用文件名 [變數1] = 欲加入文件名常用文件菜單項 [變數1].標題 = 「&」 + 到文本 (變數1) + 「. 」 + 欲加入文件名顯示常用菜單項 ()
.子程序 讀入常用文件列表, 文本型.參數 讀入序號, 整數型
檢查 (讀入序號 ≥ 1 且 讀入序號 ≤ 取數組成員數 (常用文件菜單項))返回 (取文本注冊表項 (「E 記事本」, 「常用文件」, 到文本 (讀入序號), ))
.子程序 寫出常用文件.參數 寫出序號, 整數型
檢查 (寫出序號 ≥ 1 且 寫出序號 ≤ 取數組成員數 (常用文件菜單項))寫注冊表項 (「E 記事本」, 「常用文件」, 到文本 (寫出序號), 常用文件名 [寫出序號])
.子程序 載入常用文件.局部變數 變數1, 整數型
.計次循環首 (取數組成員數 (常用文件菜單項), 變數1) 常用文件名 [變數1] = 讀入常用文件列表 (變數1).計次循環尾 ()
.子程序 保存常用文件列表.局部變數 變數1, 整數型
.計次循環首 (取數組成員數 (常用文件名), 變數1) 寫出常用文件 (變數1).計次循環尾 ()
.子程序 __啟動窗口_將被銷毀
保存常用文件列表 ()

4. 易語言做鍵盤記錄器的源碼

易語言做鍵盤記錄器的源碼如下:

程序集
窗口程序集1

子程序
__啟動窗口_創建完畢

SkinH_Attach
()

編輯框1禁止



停止按鈕禁止



信息框
(「歡迎使用小天鍵盤記錄系統,在關閉此記錄系統後,會自動保存記錄的內容到運行目錄!」,
#信息圖標,
「歡迎使用!」)

子程序
_停止按鈕_被單擊

開始按鈕禁止



編輯框1禁止



時鍾1時鍾周期

0

停止按鈕禁止



子程序
_開始按鈕_被單擊

開始按鈕禁止



編輯框1禁止



時鍾1時鍾周期

50

停止按鈕禁止



子程序
_時鍾1_周期事件

編輯框1加入文本
(看看按鍵
())

子程序
_按鈕1_被單擊

編輯框1內容




子程序
__啟動窗口_可否被關閉,
邏輯型

寫到文件
(取運行目錄
()

「\記錄內容txt」,
到位元組集
(編輯框1內容))

銷毀
()

子程序
_按鈕2_被單擊

刪除文件
(取運行目錄
()

「\記錄內容txt」)

熱點內容
安卓上哪裡下大型游戲 發布:2024-12-23 15:10:58 瀏覽:186
明日之後目前適用於什麼配置 發布:2024-12-23 14:56:09 瀏覽:51
php全形半形 發布:2024-12-23 14:55:17 瀏覽:826
手機上傳助手 發布:2024-12-23 14:55:14 瀏覽:730
什麼樣的主機配置吃雞開全效 發布:2024-12-23 14:55:13 瀏覽:828
安卓我的世界114版本有什麼 發布:2024-12-23 14:42:17 瀏覽:708
vbox源碼 發布:2024-12-23 14:41:32 瀏覽:275
詩經是怎麼存儲 發布:2024-12-23 14:41:29 瀏覽:657
屏蔽視頻廣告腳本 發布:2024-12-23 14:41:24 瀏覽:417
php解析pdf 發布:2024-12-23 14:40:01 瀏覽:816