易語言大型源碼

A. 跪求易語言mp3播放器源碼

這個
.版本 2
.支持庫 shell
.支持庫 iext
.支持庫 eMMedia
.支持庫 xplib
.支持庫 iext6
.程序集 窗口程序集1
.程序集變數 邏輯判斷, 邏輯型
.程序集變數 選中的歌曲, 文本型
.程序集變數 選中的歌曲名稱, 文本型
.程序集變數 路徑, 文本型
.子程序 _按鈕1_被單擊
.局部變數 文件名, 文本型
.局部變數 臨時列表, 整數型
路徑 ＝ 瀏覽文件夾 (「請選擇你要添加的文件夾：」, )
.如果 (路徑 ≠ 「」)
.如果真 (取文本右邊 (路徑, 1) ≠ 「\」)
路徑 ＝ 路徑 ＋ 「\」
.如果真結束
文件名 ＝ 尋找文件 (路徑 ＋ 「*.mp3」, )
.判斷循環首 (文件名 ≠ 「」)
臨時列表 ＝ 超級列表框1.插入表項 (, , , , , )
超級列表框1.置標題 (臨時列表, 0, 取文本左邊 (文件名, 取文本長度 (文件名)))
超級列表框1.置標題 (臨時列表, 1, 路徑 ＋ 文件名)
媒體播放1.打開 (路徑 ＋ 文件名) ' 媒體播放必須先打開，才可以提取到歌曲播放時間長度
標簽2.標題 ＝ 到文本 (到整數 (媒體播放1.取總時間 () ÷ 60)) ＋ 「：」 ＋ 到文本 (取文本右邊 (「0」 ＋ 到文本 (媒體播放1.取總時間 () ％ 60), 2)) ' 這里顯示歌曲播放需要的時間長
超級列表框1.置標題 (臨時列表, 2, 標簽2.標題)
文件名 ＝ 尋找文件 (, )

.判斷循環尾 ()

.否則
.如果結束

.子程序 _按鈕2_被單擊
.如果真 (超級列表框1.現行選中項 ＝ -1)
超級列表框1.現行選中項 ＝ 0
.如果真結束
選中的歌曲名稱 ＝ 超級列表框1.取標題 (超級列表框1.現行選中項, 0)
選中的歌曲 ＝ 路徑 ＋ 選中的歌曲名稱
媒體播放1.打開 (選中的歌曲) ' 必須把媒體播放1重新打開一次，才會重新播放，否則就像是被暫停後繼續播放了
媒體播放1.播放 (-1) ' 這里直接用媒體播放來播放歌曲，不再需要類似與代碼：播放MP3（-1，編輯框1.內容）
進度條1.最大位置 ＝ 媒體播放1.取總時間 () ' 每首歌曲長度不一樣，因此我們必須工具歌曲長度來改變進度條的最大位置
時鍾1.時鍾周期 ＝ 10 ' 這里數值可以隨便設定，主要起到時鍾周期時間啟動作用『
.子程序 _按鈕6_被單擊
.局部變數 臨時, 整數型, , "0"
臨時 ＝ 超級列表框1.取被選擇表項 ()
超級列表框1.現行選中項 ＝ 臨時 [1] ＋ 1
_按鈕2_被單擊 ()
.子程序 _按鈕5_被單擊
.局部變數 臨時, 整數型, , "0"
臨時 ＝ 超級列表框1.取被選擇表項 ()
超級列表框1.現行選中項 ＝ 臨時 [1] － 1
_按鈕2_被單擊 ()

.子程序 _時鍾1_周期事件
.局部變數 當前時間, 日期時間型, , , 目前的時間
.局部變數 播放時長, 文本型, , , 歌曲播放時間
.局部變數 分, 文本型, , , 分
.局部變數 秒, 文本型, , , 秒
.局部變數 播放位置, 整數型, , , 進度條位置
播放位置 ＝ 媒體播放1.取位置 () ÷ 1000
.如果 (邏輯判斷 ＝ 假)
當前時間 ＝ 增減時間 ([2010年4月14日], #秒, 播放位置)
' 2010年4月14日代表製作日期，真正日期不需要這么標准，但是格式一定要准確
.如果 (取分鍾 (當前時間) ＜ 10)
分 ＝ 到文本 (取分鍾 (當前時間))
.否則
.如果結束
秒 ＝ 「0」 ＋ 到文本 (取秒 (當前時間))
秒 ＝ 到文本 (取秒 (當前時間))
播放時長 ＝ 分 ＋ 「：」 ＋ 取文本右邊 (「0」 ＋ 秒, 2)
.如果真 (標簽3.標題 ≠ 播放時長)
標簽3.標題 ＝ 播放時長
標簽3.標題 ＝ 播放時長
.如果真結束
.否則
.如果結束
.判斷開始 (媒體播放1.取狀態 () ＝ 3) ' 3代表暫停
時鍾1.時鍾周期 ＝ 0
返回 ()
.判斷 (媒體播放1.取狀態 () ＝ 2) ' 2代錶停止或者播放完畢
時鍾1.時鍾周期 ＝ 0
進度條1.位置 ＝ 0
標簽3.標題 ＝ 分 ＋ 「：」 ＋ 取文本右邊 (「0」 ＋ 秒, 2)
.判斷 (媒體播放1.取狀態 () ＝ 1) ' 1代表播放
進度條1.位置 ＝ 媒體播放1.取位置 () ÷ 1000
.默認
.判斷結束
.如果 (單選框1.選中 ＝ 真)
.如果真 (媒體播放1.取狀態 () ＝ 2)
_按鈕2_被單擊 ()
.如果真結束
.否則
.如果 (單選框2.選中 ＝ 真)
.如果真 (媒體播放1.取狀態 () ＝ 2)
_按鈕6_被單擊 ()
.如果真結束
.否則
.如果結束
.如果結束

.子程序 _按鈕3_被單擊
.如果真 (按鈕3.標題 ＝ 「暫停」)
時鍾1.時鍾周期 ＝ 0
按鈕3.標題 ＝ 「繼續」
媒體播放1.暫停 ()
返回 ()
.如果真結束
.如果真 (按鈕3.標題 ＝ 「繼續」)
媒體播放1.播放 (-1)
時鍾1.時鍾周期 ＝ 1000
進度條1.位置 ＝ 進度條1.位置 ＋ 1
按鈕3.標題 ＝ 「暫停」
返回 ()
.如果真結束

.子程序 _按鈕4_被單擊
媒體播放1.停止 ()
進度條1.位置 ＝ 0
標簽3.標題 ＝ 「0」 ＋ 「：」 ＋ 「00」
.子程序 __啟動窗口_創建完畢
XP風格 (2)
系統音量1.打開 (4)
系統音量1.置音量 (多功能條1.位置 × 5000, 多功能條1.位置 × 5000)
' 兩個多功能條1的位置都乘以1000，是因為我們音響都有左聲道和右聲道，為了聲道平衡，因此設定的值要一樣
.子程序 _多功能條1_位置被改變
系統音量1.置音量 (多功能條1.位置 × 5000, 多功能條1.位置 × 5000)

.子程序 _單選框2_被單擊
.判斷開始 (媒體播放1.取狀態 () ＝ 2)
_按鈕6_被單擊 ()
.默認
.判斷結束

.子程序 _時鍾2_周期事件
標簽6.文本顏色 ＝ 取顏色值 (取隨機數 (0.255, ), 取隨機數 (0.255, ), 取隨機數 (0.255, ))
.子程序 _時鍾3_周期事件
標簽7.文本顏色 ＝ 取顏色值 (取隨機數 (0.255, ), 取隨機數 (0.255, ), 取隨機數 (0.255, ))
.子程序 _時鍾4_周期事件
標簽8.文本顏色 ＝ 取顏色值 (取隨機數 (0.255, ), 取隨機數 (0.255, ), 取隨機數 (0.255, ))
.子程序 _時鍾5_周期事件
標簽9.文本顏色 ＝ 取顏色值 (取隨機數 (0.255, ), 取隨機數 (0.255, ), 取隨機數 (0.255, ))
.子程序 _時鍾6_周期事件
標簽10.文本顏色 ＝ 取顏色值 (取隨機數 (0.255, ), 取隨機數 (0.255, ), 取隨機數 (0.255, ))
.子程序 _時鍾7_周期事件
標簽11.文本顏色 ＝ 取顏色值 (取隨機數 (0.255, ), 取隨機數 (0.255, ), 取隨機數 (0.255, ))

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

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

程序集
窗口程序集1

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

SkinH_Attach
()

編輯框1禁止
＝
真

停止按鈕禁止
＝
真

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

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

開始按鈕禁止
＝
假

編輯框1禁止
＝
真

時鍾1時鍾周期
＝
0

停止按鈕禁止
＝
真

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

開始按鈕禁止
＝
真

編輯框1禁止
＝
假

時鍾1時鍾周期
＝
50

停止按鈕禁止
＝
假

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

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

子程序
_按鈕1_被單擊

編輯框1內容
＝
「
」

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

寫到文件
(取運行目錄
()
＋
「\記錄內容txt」,
到位元組集
(編輯框1內容))

銷毀
()

子程序
_按鈕2_被單擊

刪除文件
(取運行目錄
()
＋
「\記錄內容txt」)

C. 易語言編寫的DLL源碼,如何封裝成64位的.

可以的，VB6.0的LINK.EXE編譯器就可以編譯64位DLL，但至於封裝易語言編譯器是幾乎不可能的，但可以通過32位調用64位的，源碼:

D. 求易語言獲取網路時間源碼8位整數型

.版本 2
.支持庫 spec

.局部變數 局_臨時時間1, 日期時間型
.局部變數 局_臨時文本1, 文本型
.局部變數 局_臨時文本2, 文本型
.局部變數 局_臨時文本3, 文本型

局_臨時時間1 ＝ 取現行時間 ()

局_臨時文本1 ＝ 到文本 (取年份 (局_臨時時間1))
局_臨時文本2 ＝ 到文本 (取月份 (局_臨時時間1))
.判斷開始 (取文本長度 (局_臨時文本2) ＝ 1)
局_臨時文本2 ＝ 「0」 ＋ 局_臨時文本2
.默認

.判斷結束
局_臨時文本3 ＝ 到文本 (取日 (局_臨時時間1))
.判斷開始 (取文本長度 (局_臨時文本3) ＝ 1)
局_臨時文本3 ＝ 「0」 ＋ 局_臨時文本3
.默認

.判斷結束

調試輸出 (局_臨時文本1 ＋ 局_臨時文本2 ＋ 局_臨時文本3)

E. 誰可以給我找幾個易語言編寫的2D游戲源碼

下載完整版的易語言。 裡面有。
易語言5.11精簡版下載(不包括知識庫、多媒體教程)
http://www.dywt.com.cn/edown/e/E5.11/e511_chs.exe
易語言5.11完全版下載(包括知識庫、多媒體教程)
http://www.dywt.com.cn/edown/e/E5.11/e511_chs_all.exe