易语言送你999朵玫瑰花源码
送你999朵玫瑰花
.版本 2 .程序集 窗口程序集1 .子程序 __启动窗口_创建完毕 .局部变量 屏幕快照, 字节集 屏幕快照 ＝ 快照 (, , ) _启动窗口.可视 ＝ 真 _启动窗口.位置 ＝ 3 画板1.移动 (0, 0, 取屏幕宽度 (), 取屏幕高度 ()) 画板1.底图 ＝ 屏幕快照 置随机数种子 () 播放音乐 (#声音1, 真) 等待 (500) 献花 () .子程序 献花 .局部变量 a, 整数型 .局部变量 b, 整数型 .局部变量 c, 整数型 .局部变量 d, 整数型 a ＝ 载入图片 (#白玫瑰) b ＝ 载入图片 (#红玫瑰) c ＝ 载入图片 (#粉玫瑰) d ＝ 载入图片 (#红玫瑰1) .判断循环首 (a ≠ 0) 画板1.画图片 (a, 取随机数 (0, 取屏幕宽度 () － 110), 取随机数 (0, 取屏幕高度 () － 110), , , -16777215) 等待 (100) 画板1.画图片 (b, 取随机数 (0, 取屏幕宽度 () － 110), 取随机数 (0, 取屏幕高度 () － 110), , , -16777215) 等待 (100) 画板1.画图片 (c, 取随机数 (0, 取屏幕宽度 () － 110), 取随机数 (0, 取屏幕高度 () － 110), , , -16777215) 等待 (100) 画板1.画图片 (d, 取随机数 (0, 取屏幕宽度 () － 110), 取随机数 (0, 取屏幕高度 () － 110), , , -16777215) 等待 (100) .判断循环尾 () .子程序 _画板1_鼠标左键被按下, 逻辑型 .参数 横向位置, 整数型 .参数 纵向位置, 整数型 .参数 功能键状态, 整数型 停止播放 () 结束 () .子程序 _时钟1_周期事件 画板1.文本颜色 ＝ 取颜色值 (取随机数 (0, 255), 取随机数 (0, 255), 取随机数 (0, 255)) .子程序 等待 .参数 等待时间, 整数型 .局部变量 i, 整数型 i ＝ 取启动时间 () .循环判断首 () 处理事件 () 延时 (10) .循环判断尾 (取启动时间 () － i ＜ 等待时间) .子程序 __启动窗口_按下某键, 逻辑型 .参数 键代码, 整数型 .参数 功能键状态, 整数型 .如果真 (键代码 ＝ #F4键 且 功能键状态 ＝ #Alt键状态) 停止播放 () 结束 () .如果真结束
运行结果：
总结
以上就是这篇文章的全部内容了，希望本文的内容对大家的学习或者工作具有一定的参考学习价值，谢谢大家对我们的支持。如果你想了解更多相关内容请查看下面相关链接
相关推荐
-
易语言表白网页生成器源码
表白网页生成器 .版本 2 .支持库 iext .支持库 spec .程序集 窗口程序集1 .子程序 _按钮_本地生成_被单击 透明标签3.标题 ＝ "xx提醒您正在生成,,请稍候..." 创建目录 (取运行目录 () + "/本地专用版") 编辑框2.内容 ＝ 子文本替换 (编辑框3.内容, "对方名字", 编辑框_对方名字.内容, , , 真) 延迟 (200) 编辑框5.内容 ＝ 子文本替换 (编辑框2.内容, "自己名字&quo
-
易语言快速更改电脑密码的代码
快速更改电脑密码 .版本 2 .程序集 锁机 .程序集变量 密码, 文本型 .子程序 _时钟1_周期事件 随机密码 () 锁机 () 注销 () .子程序 __启动窗口_创建完毕 信息框 ("电脑已上锁", 0, , ) .子程序 随机密码 密码 ＝ "520" .子程序 锁机 运行 ("net user Administrator " + 密码, 假, #隐藏窗口) 运行 ("net user 锁机测试 " + 密码 + &
-
易语言超级列表框表项关键字搜索代码示例
超级列表框表项关键字搜索示例 .版本 2 .支持库 iext .程序集 启动窗口程序集 .程序集变量 表项索引, 整数型 .子程序 _查找表项按钮_被单击 .局部变量 临时文本, 文本型 .局部变量 索引, 整数型 .局部变量 是否找到, 逻辑型 .局部变量 a, 整数型 .如果真 (输入框 ("请输入需要查找的内容", "查找表项", "易语言7", 临时文本, ) ＝ 真) 是否找到 ＝ 假 .计次循环首 (超级列表框.取表项数 (), a)
-
易语言赋值定义多维数组的代码实例
赋值定义多维数组示例 .版本 2 .程序集 窗口程序集1 .子程序 _按钮_显示_被单击 .局部变量 a, 整数型, , "0" .局部变量 c, 整数型, , "1,2" .局部变量 b, 整数型 a ＝ { 1, 12, 2, 22, 3, 32, 4, 42 } .变量循环首 (1, 取整 (取数组成员数 (a) ÷ 2), 1, b) 重定义数组 (c, 真, b, 2) c [b] [1] ＝ a [b × 2 - 1] 编辑框_显示.加入文本 (&quo
-
易语言枚举所有子窗口讲解
在易语言开发中,有时想直接从一个窗口中拿取 窗口下所有控件的信息,可以用window知道的api入手,但是精益模块有带有这个功能哦. 窗口_枚举所有子窗口() 三个参数: 一.欲寻找控件的窗口句柄 二.查询出来的所有子窗口句柄数组 三.查询的控件类名 对于前两个参数,相信大家都知道,第一个就是 窗口的句柄,第二个就是 句柄的数组(这个是返回的数组) . 至于第三个参数,楼主和大家一样,第一眼看到有点迷茫,不知道从何下手,比如编辑框控件的类名是什么?标签控件的类名是什么?这里有个好方法,让大家知
-
易语言制作黑客小程序源码
DLLL命令表 .版本 2 .DLL命令 FindWindow, 整数型, , "FindWindowA" .参数 lpClassName, 文本型 .参数 lpWindowName, 整数型 .DLL命令 FindWindowA, 整数型, , "FindWindowA" .参数 lpClassName, 文本型 .参数 lpWindowName, 文本型 .DLL命令 GetWindow, 整数型, , "GetWindow" .参数 hWn
-
易语言电脑屏幕锁定工具源码
DLLL命令表 .版本 2 .DLL命令 安装钩子, 整数型, , "SetWindowsHookExA" .参数 ihook, 整数型 .参数 lpfunc, 子程序指针 .参数 hin, 整数型 .参数 threadid, 整数型 .DLL命令 卸载钩子, 整数型, , "UnhookWindowsHookEx" .参数 hHook, 整数型 .DLL命令 下一个钩子, 整数型, , "CallNextHookEx" .参数 hHook, 整
-
易语言制作屏幕右下角弹出窗口的源码
屏幕右下角广告 .版本 2 .程序集 窗口程序集1 .程序集变量 伸缩判断, 逻辑型 .子程序 __启动窗口_创建完毕 .子程序 _时钟1_周期事件 .如果 (伸缩判断 ＝ 真) .如果真 (窗口1.顶边 > 取屏幕高度 () - 窗口1.高度 - 30) 窗口1.移动 (, 窗口1.顶边 - 1, , ) .如果真结束 .否则 .如果真 (窗口1.顶边 < 取屏幕宽度 ()) 窗口1.移动 (, 窗口1.顶边 + 1, , ) .如果真结束 .如果结束 .子程序 _按钮_关闭_被单击 伸缩判
-
易语言制作英雄联盟辅助的源码
LOL辅助 此功能需要加载超级模块7.3 .版本 2 .程序集 窗口程序集_启动窗口 .程序集变量 pid, 整数型 .子程序 __启动窗口_创建完毕 pid ＝ 取进程ID ("League of Legends.exe") 监视热键 (&开启无限视距, #F5键) 监视热键 (&关闭无限视距, #F6键) 监视热键 (&开启普攻范围, #F2键) 监视热键 (&关闭普攻范围, #F1键) 监视热键 (&开启炮塔范围, #F4键) 监视热键 (
-
易语言刷屏工具瞬间99+的代码
刷屏工具 延时设置为1,信息瞬间99+ .版本 2 .支持库 eAPI .程序集 窗口程序集1 .子程序 _开始按钮_被单击 .判断循环首 (编辑框_内容.内容 ≠ "" 且 编辑框_延时.内容 ≠ "") 置剪辑板文本 (编辑框_内容.内容) 模拟按键 (#Ctrl键, #V键, ) 模拟按键 (#回车键, , ) 延时 (到整数 (编辑框_延时.内容)) .判断循环尾 () .子程序 _退出按钮_被单击 销毁 () 运行结果: 总结 以上就是这篇文章的全部内容了