易语言大型源码

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