易语言抢红包源码

⑴ 易语言如何写电脑版抢红包软件，原理是什么

云播放的原理就太复杂了，，，只会易语言是很难做出一个纯云播放器，，你只能考虑第三方云播放调用。。。。你要是用VC我到是可以提供一些思路

⑵ 求一款易语言抽奖源码，最好是图片抽奖，或者自行放入对方提供的头像。

.版本 2
.支持库 xplib
.支持库 iext
.程序集 窗口程序集1
.程序集变量 b, 文本型
.程序集变量 图片框, 图片框
.程序集变量 开始音乐, 字节集
.程序集变量 结束音乐, 字节集
.程序集变量 人数, 整数型
.程序集变量 人数数组, 文本型, , "0"
.程序集变量 n, 整数型
.程序集变量 图片文件数组, 文本型, , "0"
.子程序 __启动窗口_创建完毕

XP风格 (#蓝色风格)
选择夹.左边 ＝ (取屏幕宽度 () － 选择夹.宽度) ÷ 2
选择夹.顶边 ＝ (取屏幕高度 () － 选择夹.高度) ÷ 2
图片框1.标记 ＝ “1”
图片框2.标记 ＝ “2”
图片框3.标记 ＝ “3”
图片框4.标记 ＝ “4”
图片框5.标记 ＝ “5”
图片框6.标记 ＝ “6”
选择夹.现行子夹 ＝ 1
透明标签1.左边 ＝ (取屏幕宽度 () － 透明标签1.宽度) ÷ 2
选择夹2.顶边 ＝ 选择夹.高度 ＋ 选择夹.顶边
选择夹2.左边 ＝ (取屏幕宽度 () － 选择夹2.宽度) ÷ 2
初始化 ()
人数 ＝ 取数组成员数 (图片文件数组)
_一个人_被选择 ()
注册热键程序 (_启动窗口.取窗口句柄 (), 0, #F1键, &配置设置)
注册热键程序 (_启动窗口.取窗口句柄 (), 0, #回车键, &子程序1)
注册热键程序 (_启动窗口.取窗口句柄 (), 0, #键1, &_一个人_被选择)
注册热键程序 (_启动窗口.取窗口句柄 (), 0, #键2, &_二个人_被选择)
注册热键程序 (_启动窗口.取窗口句柄 (), 0, #键3, &_三个人_被选择)
注册热键程序 (_启动窗口.取窗口句柄 (), 0, #键4, &_四个人_被选择)
注册热键程序 (_启动窗口.取窗口句柄 (), 0, #键5, &_五个人_被选择)
注册热键程序 (_启动窗口.取窗口句柄 (), 0, #键6, &_六个人_被选择)
注册热键程序 (_启动窗口.取窗口句柄 (), 0, #Esc键, &_退出_被选择)

.子程序 子程序1
n ＝ n ＋ 1
.如果 (n ％ 2 ＝ 0)
_按钮2_被单击 ()
.否则
_按钮1_被单击 ()
.如果结束
.子程序 配置设置
载入 (系统设置窗口, , 真)
系统设置窗口.可视 ＝ 真

.子程序 _时钟1_周期事件
置随机数种子 ()
图片框1.图片 ＝ 读入文件 (图片文件数组 [取随机数 (1, 人数)])

.子程序 抽奖停
.局部变量 a, 整数型
.局部变量 i, 整数型
b ＝ “”
置随机数种子 ()
.计次循环首 (6, i)
a ＝ 取随机数 (1, 人数)
.判断循环首 (寻找文本 (b, 到文本 (a), 1, 假) ≠ -1)
a ＝ 取随机数 (1, 人数)
.判断循环尾 ()
图片框 ＝ 取标记组件 (i)
图片框.图片 ＝ 读入文件 (图片文件数组 [a])
b ＝ b ＋ “,” ＋ 到文本 (a)
.计次循环尾 ()

.子程序 _一个人_被选择
图片初始化 ()
n ＝ 0
按钮1.禁止 ＝ 假
按钮1.获取焦点 ()
图片框1.可视 ＝ 真
图片框2.可视 ＝ 假
图片框3.可视 ＝ 假
图片框4.可视 ＝ 假
图片框5.可视 ＝ 假
图片框6.可视 ＝ 假
图片框1.左边 ＝ (选择夹.宽度 － 图片框1.宽度) ÷ 2
.子程序 _二个人_被选择
图片初始化 ()
n ＝ 0
按钮1.禁止 ＝ 假
按钮1.获取焦点 ()
图片框1.可视 ＝ 真
图片框2.可视 ＝ 真
图片框3.可视 ＝ 假
图片框4.可视 ＝ 假
图片框5.可视 ＝ 假
图片框6.可视 ＝ 假
图片框1.左边 ＝ (选择夹.宽度 － 图片框1.宽度 × 2 － 5) ÷ 2
图片框2.左边 ＝ 图片框1.左边 ＋ 图片框1.宽度 ＋ 5
.子程序 _三个人_被选择
图片初始化 ()
n ＝ 0
按钮1.禁止 ＝ 假
按钮1.获取焦点 ()
图片框1.可视 ＝ 真
图片框2.可视 ＝ 真
图片框3.可视 ＝ 真
图片框4.可视 ＝ 假
图片框5.可视 ＝ 假
图片框6.可视 ＝ 假
图片框1.左边 ＝ 0
图片框2.左边 ＝ 325
图片框3.左边 ＝ 651

.子程序 _四个人_被选择
图片初始化 ()
n ＝ 0
按钮1.禁止 ＝ 假
按钮1.获取焦点 ()
图片框1.可视 ＝ 真
图片框2.可视 ＝ 真
图片框3.可视 ＝ 真
图片框4.可视 ＝ 真
图片框5.可视 ＝ 假
图片框6.可视 ＝ 假
图片框1.左边 ＝ 0
图片框2.左边 ＝ 325
图片框3.左边 ＝ 651

.子程序 _五个人_被选择
图片初始化 ()
n ＝ 0
按钮1.禁止 ＝ 假
按钮1.获取焦点 ()
图片框1.可视 ＝ 真
图片框2.可视 ＝ 真
图片框3.可视 ＝ 真
图片框4.可视 ＝ 真
图片框5.可视 ＝ 真
图片框6.可视 ＝ 假
图片框1.左边 ＝ 0
图片框2.左边 ＝ 325
图片框3.左边 ＝ 651

.子程序 _六个人_被选择
图片初始化 ()
n ＝ 0
按钮1.禁止 ＝ 假
按钮1.获取焦点 ()
图片框1.可视 ＝ 真
图片框2.可视 ＝ 真
图片框3.可视 ＝ 真
图片框4.可视 ＝ 真
图片框5.可视 ＝ 真
图片框6.可视 ＝ 真
图片框1.左边 ＝ 0
图片框2.左边 ＝ 325
图片框3.左边 ＝ 651

.子程序 图片初始化
.局部变量 k, 整数型
选择夹.现行子夹 ＝ 1
选择夹.现行子夹 ＝ 0
时钟1.时钟周期 ＝ 0
时钟2.时钟周期 ＝ 0
时钟3.时钟周期 ＝ 0
时钟4.时钟周期 ＝ 0
时钟5.时钟周期 ＝ 0
时钟6.时钟周期 ＝ 0
_启动窗口.背景音乐 ＝ 到字节集 (0)
.计次循环首 (6, k)
图片框 ＝ 取标记组件 (k)
图片框.图片 ＝ #图片
.计次循环尾 ()
.子程序 _标题_被选择
.局部变量 wb, 文本型
图片初始化 ()
输入框 (“请输入标题内容”, , , wb, )
透明标签1.标题 ＝ wb
写配置项 (取运行目录 () ＋ “\config.ini”, “标题”, “标题1”, wb)

.子程序 _设定转奖声音_被选择
图片初始化 ()
通用对话框1.过滤器 ＝ “WAV文件|*.wav”
通用对话框1.打开 ()
开始音乐 ＝ 读入文件 (通用对话框1.文件名)
写配置项 (取运行目录 () ＋ “\config.ini”, “声音”, “转奖声音”, 通用对话框1.文件名)

.子程序 _设定中奖声音_被选择
图片初始化 ()
通用对话框1.过滤器 ＝ “WAV文件|*.wav”
通用对话框1.打开 ()
结束音乐 ＝ 读入文件 (通用对话框1.文件名)
写配置项 (取运行目录 () ＋ “\config.ini”, “声音”, “中奖声音”, 通用对话框1.文件名)

.子程序 _关闭音乐_被选择
图片初始化 ()
_启动窗口.背景音乐 ＝ 到字节集 (0)

.子程序 初始化
.局部变量 d, 整数型
_启动窗口.底图 ＝ 读入文件 (读配置项 (取运行目录 () ＋ “\config.ini”, “图片”, “背景图片”, 取运行目录 () ＋ “\Wallpaper\1024.jpg”))
开始音乐 ＝ 读入文件 (读配置项 (取运行目录 () ＋ “\config.ini”, “声音”, “转奖声音”, 取运行目录 () ＋ “\sound\musi.wav”))
结束音乐 ＝ 读入文件 (读配置项 (取运行目录 () ＋ “\config.ini”, “声音”, “中奖声音”, 取运行目录 () ＋ “\sound\finish.wav”))
透明标签1.标题 ＝ 读配置项 (取运行目录 () ＋ “\config.ini”, “标题”, “标题1”, “XX公司幸运抽奖”)
.计次循环首 (6, d)
图片框 ＝ 取标记组件 (d)
图片框.图片 ＝ 读入文件 (读配置项 (取运行目录 () ＋ “\config.ini”, “图片”, “抽奖图片”, 取运行目录 () ＋ “\Wallpaper\cj.jpg”))
.计次循环尾 ()
查找文件 (图片文件数组, 取运行目录 () ＋ “\Photos\”, “*.jpg”, )
查找文件 (图片文件数组, 取运行目录 () ＋ “\Photos\”, “*.bmp”, )
.如果真 (取数组成员数 (图片文件数组) ＜ 6)
信息框 (“请把图片文件放到[Photots]文件夹下后重启软件！” ＋ #换行符 ＋ “图片文件格式支持[jpg bmp]”, 64, “提示：”)
结束 ()
.如果真结束

.子程序 _抽奖图片_被选择
.局部变量 a, 整数型
图片初始化 ()
通用对话框1.过滤器 ＝ “图片文件|*.jpg;*.bmp”
通用对话框1.打开 ()
.计次循环首 (6, a)
图片框 ＝ 取标记组件 (a)
图片框.图片 ＝ 读入文件 (通用对话框1.文件名)
.计次循环尾 ()
写配置项 (取运行目录 () ＋ “\config.ini”, “图片”, “抽奖图片”, 通用对话框1.文件名)

.子程序 _时钟2_周期事件
置随机数种子 ()
图片框2.图片 ＝ 读入文件 (图片文件数组 [取随机数 (1, 人数)])

.子程序 _时钟3_周期事件
置随机数种子 ()
图片框3.图片 ＝ 读入文件 (图片文件数组 [取随机数 (1, 人数)])

.子程序 _时钟4_周期事件
置随机数种子 ()
图片框4.图片 ＝ 读入文件 (图片文件数组 [取随机数 (1, 人数)])

.子程序 _时钟5_周期事件
置随机数种子 ()
图片框5.图片 ＝ 读入文件 (图片文件数组 [取随机数 (1, 人数)])

.子程序 _时钟6_周期事件
置随机数种子 ()
图片框6.图片 ＝ 读入文件 (图片文件数组 [取随机数 (1, 人数)])

.子程序 _退出_被选择
结束 ()

.子程序 _时钟7_周期事件
' 如果 (取鼠标垂直位置 () ＜ 10)
系统设定.可视 ＝ 真
设定抽奖人数.可视 ＝ 真
' 系统设定.可视 ＝ 假
' 设定抽奖人数.可视 ＝ 假
.子程序 _按钮1_被单击, 逻辑型
.如果真 (选择夹.现行子夹 ＝ 1)
选择夹.现行子夹 ＝ 0
.如果真结束
_启动窗口.背景音乐 ＝ 开始音乐
_启动窗口.播放次数 ＝ 0
时钟1.时钟周期 ＝ 100
时钟2.时钟周期 ＝ 100
时钟3.时钟周期 ＝ 100
时钟4.时钟周期 ＝ 100
时钟5.时钟周期 ＝ 100
时钟6.时钟周期 ＝ 100
按钮2.禁止 ＝ 假
按钮1.禁止 ＝ 真
按钮2.获取焦点 ()
返回 (真)

.子程序 _按钮2_被单击
抽奖停 ()
_启动窗口.背景音乐 ＝ 结束音乐
_启动窗口.播放次数 ＝ 1
时钟1.时钟周期 ＝ 0
时钟2.时钟周期 ＝ 0
时钟3.时钟周期 ＝ 0
时钟4.时钟周期 ＝ 0
时钟5.时钟周期 ＝ 0
时钟6.时钟周期 ＝ 0
按钮2.禁止 ＝ 真
按钮1.禁止 ＝ 假
按钮1.获取焦点 ()

⑶ 求易语言抽奖源码,悬赏分20,要的就来！是转盘的

.版本2

.子程序 __启动窗口_首次激活

置随机数种子（）

.如果（取随机数（1,100）=46）
信息框（“你中奖了”）
.否则
信息框（“你失败了”）

.
详细的源码明天你回复一下就给你，今天似乎不可以使用pc。。。
那个转盘手机无法解释 。。。

⑷ 易语言制作qq红包手机源码

这个可以在课本中看到

⑸ 哪位老哥会易语言写脚本啊关于微视抢红包的可以的话有大红包不低于三位数

哪位老哥会易语言写脚本啊？关于微视抢红包的可以的话有大红包不低于三位数哪位老哥会易语言写脚本啊？关于微视抢红包的可以的话有大红包不低于三位数哪位老哥会易语言写脚本啊？关于微视抢红包的可以的话有大红包不低于三位数

⑹ 易语言抽奖软件源码

.版本 2

.程序集 窗口程序集1
.程序集变量 位数, 整数型

.子程序 _按钮1_被单击

编辑框2.内容 ＝ “”
.如果 (编辑框1.内容 ＝ “”)
位数 ＝ 取随机数 (1, 10)
.否则
位数 ＝ 到整数 (编辑框1.内容)
.如果结束
.计次循环首 (位数, )
编辑框2.加入文本 (到文本 (取随机数 (0, 9)))
延时 (100)
.计次循环尾 ()

⑺ 怎么用易语言做一个抢购软件，最好能给我个源码或者思路

源码不可能有人给你。但是可以给你思路。
第一步，模拟登录，去**网站点击登录 游览器右键查看源代码 或者审核元素 推荐审核元素。
获取到登录的form表单信息。提交一次。F12开发者工具监听post的地址和参数 。获取返回的信息和存储cookie。这样第一步模拟登录完成。
第二步，游览器右键查看源代码 或者审核元素 推荐审核元素。找到关键参数 http读文件获取到参数的信息。点击抢购。F12开发者工具监听post的地址和参数 。获取返回的信息。
这样 你需要的抢购软件就基本成形了 。
第三步,完善软件 启动多线程抢购模式。
到此软件完成

⑻ 额，求一个易语言抽奖的源码，就是可以输入一些人的名字，再随机抽出单个，或者多个。

给分。。。。。。