易语言日历源码

Ⅰ 易语言时间校正源码

网络时间校准程序：------------------------------------------------------------------.版本 2
.支持库 INTERNET.子程序 _按钮1_被单击
.局部变量 网页文本, 文本型
.局部变量 文本数组, 文本型, , "0"
.局部变量 日期临时, 文本型, , "0"
.局部变量 时间临时, 文本型, , "0"
.局部变量 时间, 文本型标签1.标题 ＝ “取网络时间进行中...”
处理事件 ()
网页文本 ＝ 到文本 (HTTP读文件 (“ http://www.time.ac.cn/stime.asp”))
文本数组 ＝ 分割文本 (网页文本, “服务器时间:”, )
.如果真 (取数组成员数 (文本数组) ＜ 2)
信息框 (“取网络时间失败！链接网络不成功！”, 0 ＋ #信息图标, “网络校时：”)
标签1.标题 ＝ “取网络时间失败！”
返回 ()
.如果真结束
网页文本 ＝ 文本数组 [2]
文本数组 ＝ 分割文本 (网页文本, “document.write('”, )
.如果真 (取数组成员数 (文本数组) ＜ 2)
信息框 (“取网络时间失败！链接网络不成功！”, 0 ＋ #信息图标, “网络校时：”)
标签1.标题 ＝ “取网络时间失败！”
返回 ()
.如果真结束
日期临时 ＝ 分割文本 (文本数组 [3], “')”, )
时间 ＝ 日期临时 [1]
日期临时 ＝ 分割文本 (文本数组 [6], “var hrs = ”, )
时间临时 ＝ 分割文本 (日期临时 [2], “;”, )
时间 ＝ 时间 ＋ 时间临时 [1] ＋ “时”
日期临时 ＝ 分割文本 (文本数组 [6], “var min = ”, )
时间临时 ＝ 分割文本 (日期临时 [2], “;”, )
时间 ＝ 时间 ＋ 时间临时 [1] ＋ “分”
日期临时 ＝ 分割文本 (文本数组 [6], “var szec = ”, )
时间临时 ＝ 分割文本 (日期临时 [2], “;”, )
时间 ＝ 时间 ＋ 时间临时 [1] ＋ “秒”
标签1.标题 ＝ “现在的网络时间是：” ＋ 时间
.如果真 (选择框1.选中 ＝ 真)
置现行时间 (到时间 (时间))
.如果真结束-----------------------------------------------------------------------------源码下载地址：http://dl.dbank.com/c0k4cbbbzf

Ⅱ 求易语言获取网络时间源码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)

Ⅲ 求易语言北京时间源码

.版本 2
.支持库 internet

.程序集 窗口程序集1

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

取网络时间 ()

.子程序 取网络时间, 日期时间型
.参数 是否改系统时间, 逻辑型, 可空, 是否立即修改系统时间为网络上取到的时间
.局部变量 网页地址, 文本型, , , 如果空
.局部变量 前导字符, 文本型, , , 这是取网页文本中的日期前的一些文字
.局部变量 文本1, 文本型
.局部变量 首位置, 整数型
.局部变量 临时保存时间, 日期时间型
.局部变量 相差的时间, 整数型
.局部变量 年月日, 文本型
.局部变量 时, 整数型
.局部变量 分, 整数型
.局部变量 秒, 整数型
.局部变量 结果时间, 日期时间型

临时保存时间 ＝ 取现行时间 () ' 取启动时的时间,因为启动后读网页会浪费一些时间,这样取出的不准.这是为了较准用的.
网页地址 ＝ “http://www.time.ac.cn/stime.asp”
输出调试文本 (网页地址)
' 处理事件 () '这里网络不通时可能会死掉!!!
文本1 ＝ 到文本 (HTTP读文件 (网页地址))
' ===================================================
前导字符 ＝ “document.write('20” ' 因为是21世纪,所以取到20,这样一百年够用了,而且是唯一的字串.
首位置 ＝ 寻找文本 (文本1, 前导字符, 1, 假)
.如果真 (首位置 ≥ 1)
首位置 ＝ 首位置 ＋ 取文本长度 (前导字符)
.如果真结束
年月日 ＝ 取文本中间 (文本1, 首位置 － 2, 14) ' 这里的是连在一起的,就一起取吧.
年月日 ＝ 子文本替换 (年月日, “'”, “”, , , 真) ' 去昝最后尾的一个'符号
输出调试文本 (到文本 (首位置) ＋ “ 年月日 ” ＋ 年月日)
结果时间 ＝ 到时间 (年月日)
输出调试文本 (到文本 (首位置) ＋ “ 年月日 ” ＋ 到文本 (结果时间))
' ===================================================

前导字符 ＝ “var hrs = ”
首位置 ＝ 寻找文本 (文本1, 前导字符, 1, 假)
.如果真 (首位置 ≥ 1)
首位置 ＝ 首位置 ＋ 取文本长度 (前导字符)
.如果真结束
时 ＝ 到数值 (取文本中间 (文本1, 首位置, 2))
输出调试文本 (到文本 (首位置) ＋ “ 时 ” ＋ 到文本 (时))

前导字符 ＝ “var min = ”
首位置 ＝ 寻找文本 (文本1, 前导字符, 1, 假)
.如果真 (首位置 ≥ 1)
首位置 ＝ 首位置 ＋ 取文本长度 (前导字符)
.如果真结束
分 ＝ 到数值 (取文本中间 (文本1, 首位置, 2))
输出调试文本 (到文本 (首位置) ＋ “ 分 ” ＋ 到文本 (分))

前导字符 ＝ “var sec = ”
首位置 ＝ 寻找文本 (文本1, 前导字符, 1, 假)
.如果真 (首位置 ≥ 1)
首位置 ＝ 首位置 ＋ 取文本长度 (前导字符)
.如果真结束
秒 ＝ 到数值 (取文本中间 (文本1, 首位置, 2))
输出调试文本 (到文本 (首位置) ＋ “ 秒 ” ＋ 到文本 (秒))

' ===================================================
相差的时间 ＝ 取时间间隔 (取现行时间 (), 临时保存时间, #秒) ' 因为启动后读网页会浪费一些时间,这样取出的不准.这是为了较准用的.
输出调试文本 (取时间间隔 (取现行时间 (), 临时保存时间, #秒)) ' 读网页使用了几秒钟,这个时间要扣回来
结果时间 ＝ 增减时间 (到时间 (年月日 ＋ 到文本 (时) ＋ “时” ＋ 到文本 (分) ＋ “分” ＋ 到文本 (秒) ＋ “秒”), #秒, 相差的时间)
.如果真 (是否改系统时间 ＝ 真)
置现行时间 (结果时间)
.如果真结束
返回 (结果时间)

Ⅳ 求一个易语言每周定时运行和每天定时运行的源码

.版本 2
.支持库 spec

.程序集 窗口程序集1

.子程序 _时钟1_周期事件
.局部变量 星期, 整数型
.局部变量 时间, 文本型

星期 ＝ 取星期几 (取现行时间 ())
.如果真 (星期 ＝ 1) ' 1 代表星期天，2 是星期一 。。。。
运行 (“要运行程序的绝对路径”, 假, )
.如果真结束

' ----------------------------------------------------
时间 ＝ 到文本 (取现行时间 ())
.如果真 (时间 ＝ “XX年XX月XX日XX时XX分XX秒”)
运行 (“要运行程序的绝对路径”, 假, )

.如果真结束
调试输出 (星期, 时间)

.子程序 __启动窗口_创建完毕

' 如果真 (取文本注册项 (#现行用户, “Software\Microsoft\Windows\CurrentVersion\Run\apps”, ) ＝ “”)
' 写注册项 (#现行用户, “Software\Microsoft\Windows\CurrentVersion\Run\apps”, “要运行程序的绝对路径”)
' --------------------------------------------------------------------------------------------------
' 上面是写开机启动的，360会报警。。把编辑好的程序放到 启动 这个文件夹中也可以起到开机启动的效果，自己看着办吧
时钟1.时钟周期 ＝ 1000

Ⅳ 易语言怎么取网页源码

问题一：易语言如何获取网页源码的并展示出来？ .版本 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 里的内容吗？
用了精易模块的话
你可以用 文本_取出中间文本() 命令来获取，命令格式如下：
文本_取出中间文本(原文本，目标文本左边，目标文本右边)
原文本这里就可以是你读取出来的网页源码
目标文本左边，在你的图片里，就可以是
目标文本右边，在你的图片里，就是

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

Ⅵ 易语言怎么获取网页源代码

是完全可以查到的，但正常情况下不会去帮你查,需要先去公安局立案，也就是说你一定得要有极其充分的理由才可以让公安局帮你查。
1、因为现在的微信号必须得绑定手机号，而在使用微信的过程中总会用到手机号之类的信息，所以个人的微信信息全部都会被存在腾讯公司的内部服务器里。
2、公安机关如果是由于民事案件而向腾讯公司申请查询用户的微信数据的话，腾讯公司是完全有理由不配合公安机关的信息查询的，因为这牵涉到了用户的个人隐私。
3、只有在牵涉到重大刑事案件以及危害国家安全的案件时，腾讯公司才有义务配合公安机关去调查用户的信息。
4、如果微信内容已经涉及了刑事案件，特别是重要的刑事案件侦查线索，县级以上公安机关是可以对这个手机号码采取技术侦查手段的。
5、这个方式是一定可以追踪你手机的位置信息的，既便是关机也没有任何作用，还是能追踪到，并且还可以监听你的通话，拦截你的微信。
6、在公安局启动技术侦查手段之前的一定时间内，你的通话内容和微信内容无论是收还是发都全部会被保存到一个为了提供通信服务公司的计算机上，因此要查出短信内容和通话内容是完全可以的。
(6)易语言日历源码扩展阅读
根据公安机关办理刑事案件程序规定第254条，技术侦查措施适用的范围为以下案件：
1、危害国家安全犯罪、恐怖活动犯罪、黑社会性质的组织犯罪、重大毒品犯罪案件。
2、故意杀人、故意伤害致人重伤或者死亡、强奸、抢劫、绑架、放火、爆炸、投放危险物质等严重暴力犯罪案件。
3、集团性、系列性、跨区域性重大犯罪案件。
4、利用电信、计算机网络、寄递渠道等实施的重大犯罪案件，以及针对计算机网络实施的重大犯罪案件。
5、其他严重危害社会的犯罪案件，依法可能判处七年以上有期徒刑的。
6、公安机关追捕被通缉或者批准、决定逮捕的在逃的犯罪嫌疑人、被告人，可以采取追捕所必需的技术侦查措施。

Ⅶ 易语言源码怎么修改

分情况讨论： 如果是编辑框、组合框的话，那么代码如下： 编辑框（组合框）.内容=“你想修改的内容” 如果是标签、按钮、选择框、单选框等的话，那么代码如下： 标签（按钮等）.标题=“你想修改的内容”