易语言推广积分源码

① 易语言抽奖源码

用取随机数就行了嘛！使用时钟一直刷，然后点击停止就OK了！得到什么数就是什么数了！如果你想要它自动停止，也可以使用时钟！

② 易语言抽奖软件源码

.版本 2

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

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

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

③ 易语言怎么取网页源码

问题一：易语言如何获取网页源码的并展示出来？ .版本 2
.支持库 RegEx
.支持库 internet
.支持库 iext
.子程序 _按钮1_被单击
.局部变量 网页文本, 文本型
.局部变量 表达式, 正则表达式
.局部变量 搜索结果, 搜索结果, , 0
.局部变量 计次变量, 整数型
.局部变量 文本, 文本型
网页文本 ＝ 到文本 (HTTP读文件 (编辑框1.内容))
网页文本 ＝ 子文本替换 (网页文本, #引号, “'”, 0, , 真)
网页文本 ＝ 到小写 (网页文本)
透明标签1.标题 ＝ 取中间文 (网页文本, “”, “”)
表达式.创建 (“meta (.*?)>”, 假)
搜索结果 ＝ 表达式.搜索全部 (网页文本)
.计次循环首 (取数组成员数 (搜索结果), 计次变量)
文本 ＝ 搜索结果 [计次变量].取子匹配文本 (网页文本, 1, )
.判断开始 (寻找文本 (文本, “name='keywords'”, 1, 假) ＞ 0)
透明标签2.标题 ＝ 取中间文 (文本, “content='”, “'”)
.判断 (寻找文本 (文本, “name='description'”, 1, 假) ＞ 0)
透明标签3.标题 ＝ 取中间文 (文本, “content='”, “'”)
.默认
.判断结束
.计次循环尾 ()
.子程序 取中间文, 文本型
.参数 全文, 文本型
.参数 左文, 文本型
.参数 右文, 文本型
.局部变量 位置, 整数型
.局部变量 总长度, 整数型
.局部变量 文本, 文本型
总长度 ＝ 取文本长度 (全文)
位置 ＝ 寻找文本 (全文, 左文, , 假)
.如果真 (位置 ＜ 0)
返回 (“”)
.如果真结束
位置 ＝ 位置 ＋ 取文本长度 (左文)
文本 ＝ 取文本中间 (全文, 位置, 总长度)
总长度 ＝ 取文本长度 (文本)
位置 ＝ 寻找文本 (文本, 右文, , 假) － 1
.如果真 (位置 ＜ 0)
返回 (“”)
.如果真结束
文本 ＝ 取文本中间 (文本, 1, 位置)
返回 (文本)

问题二：易语言怎么获取网页源代码 我记得我给你回答过了，其实说老实话，想学好一门编程语言，不下大功夫是不行的，网上有很多开源的，我不能帮你太多，因为我对这方面不是很懂，呵呵，不好意思。

问题三：易语言取网页源码的问题，求解答！ 思路：
超文本浏览框.取文档对象 ().对象型方法 (“getElementById”, “xxx”).方法 (“focus”, )
超文本浏览框.取文档对象 ().对象型方法 (“getElementById”, “xxx”).方法 (“click”, )
取这个选择框的对象（XXX是对象名称或者ID），然后让其获得焦点并兄唯单击它
就可以再取
临时文本 ＝ 超文本浏览框.取文档对象 ().读对象型属性 (“body”, ).读文本属性 (“outerText”, )
此时的临时文本就是网页的源码如果你要HTML格式的就用“读文本属性 (“outerhtml”, )”

问题四：易语言怎么取网页代码中的一段代码！ 20分 高级答案:
首先创建子程序---取中间文件内容---------------------------------------------------------------------
.版本 2
.子程序 取文本中间内容, 文本型, 公开
.参数 需取文本, 文本型
.参数 左边内容, 文本型
.参数 右边内容, 文本型
.参数 成功与否, 逻辑型, 参考 可空
.局部变量 长度, 整数型
.局部变量 左边位置, 整数型
.局部变量 左边长度, 整数型
.局部变量 右边位置, 整数型
.局部变量 右边长度, 整数型
长度 ＝ 取文本长度 (需取文本)
左边位置 ＝ 寻找文本 (需取文本, 左边内容, 0, 假羡汪培)
左边长度 ＝ 取文本长陵氏度 (左边内容)
.如果真 (左边位置 ＝ -1)
成功与否 ＝ 假
返回 (“未找到左边内容”)
.如果真结束
右边位置 ＝ 寻找文本 (需取文本, 右边内容, 0, 假)
右边长度 ＝ 取文本长度 (右边内容)
.如果真 (右边位置 ＝ -1)
成功与否 ＝ 假
返回 (“未找到右边内容”)
.如果真结束
成功与否 ＝ 真
返回 (取文本中间 (需取文本, 左边位置 ＋ 左边长度, 长度 － (左边位置 ＋ 左边长度) － (长度 － 右边位置)))
--------------------创建完毕-------------------------厂------------------------------------------------------------
新建个编辑框1.然后在建个按钮,在按钮里输入代码
编辑框1.内容=取文本中间内容 (zxcvbnm123456789asfhyf, zxcvbnm, asfhyf)
点击这个按钮,编辑框1的内容就是123456789
图片概要:

问题五：易语言 取网页源码 可以实时获取超文本浏览框里的源码，和 查看源代码一样。

问题六：易语言这个取网页源码如何取文本中间？有图 到整数删除了就可以了

问题七：易语言 如何读取网页源文件的代码！ .版本 2
.支持库 internet
.子程序 __启动窗口_创建完毕
_启动窗口.标题 ＝ 到文本 (HTTP读文件 (“你要打开的t攻t地址。txt”))

问题八：求易语言多线程提取网页源码的例子 这是一个最简单的多线程网页访问保存网页的程序，如果满意采纳哦

问题九：易语言取网页源码中的元素内容，应该关于精易模块 80分 你要的只是取这个 span 里的内容吗？
用了精易模块的话
你可以用 文本_取出中间文本() 命令来获取，命令格式如下：
文本_取出中间文本(原文本，目标文本左边，目标文本右边)
原文本这里就可以是你读取出来的网页源码
目标文本左边，在你的图片里，就可以是
目标文本右边，在你的图片里，就是

问题十：易语言取网页指定内容源码 要方便快捷的话，就用精易模块里面的取出中间文本（），不想用模块的话就用分割文本。建议你用精易模块的文本_取中间文本（）

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

.版本 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.获取焦点 ()