首页
社区
课程
招聘
[旧帖] 易语言实现网络通断和北京时间记录 0.00雪花
发表于: 2013-7-1 13:54 10181

[旧帖] 易语言实现网络通断和北京时间记录 0.00雪花

2013-7-1 13:54
10181
想用易语言实现对电脑网络通断次数、时间的记录  比如:

2013年7月1日7点    网络中断   累计次数1次
2013年7月1日9点    网络中断   累计次数2次

大家给点意见呢   

我知道要用“是否与互联网连接()”进行判断

然后要用时钟来取现行时间

要用计次循环首来记录次数并将编辑框内容放入列表框

但实际编时感觉无从入手,哎,我是新手  大家指教下吧

[注意]传递专业知识、拓宽行业人脉——看雪讲师团队等你加入!

收藏
免费 0
支持
分享
最新回复 (16)
雪    币: 1042
活跃值: (495)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
2
不断的HTTP读文件("http://www.baidu.com") 根据返回内容来判断是否中断了 次数就一个全局变量,时钟或线程监控....
2013-7-1 14:37
0
雪    币: 220
活跃值: (117)
能力值: ( LV4,RANK:50 )
在线值:
发帖
回帖
粉丝
3
UrlDownLoadToFile
循环下载....
2013-7-1 16:19
0
雪    币: 327
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
4
HTTP读文件不可靠哦   比如DNS错误   网络延时啥的
还是“是否与互联网连接()”这个吧?
2013-7-1 21:25
0
雪    币: 327
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
5
想实现“中断部分”的处理代码

比如说检测到网络中断,将现行北京时间记录到列表框中;如果网络恢复,在下次中断的时候,再次记录到列表框中而且在列表框中的内容不重叠和重复
2013-7-1 21:32
0
雪    币: 243
活跃值: (247)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
6
貌似有个api函数可以,易论坛好像有。
2013-7-1 21:36
0
雪    币: 327
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
7
必须要API函数么  可以用基础语音编写不
2013-7-2 14:59
0
雪    币: 7
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
8
如果真(寻找文本(到文本(http读文件("www.baidu.com")),"把百度设为主页")=-1)
没联网
2013-7-5 15:54
0
雪    币: 157
活跃值: (35)
能力值: ( LV3,RANK:20 )
在线值:
发帖
回帖
粉丝
9
通信测试()
测试百度啊什么的大站..
用这个来检测吧
2013-7-6 01:04
0
雪    币: 327
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
10
如何实现持续监测,并且每次监测后都可以进行记录
2013-7-6 21:29
0
雪    币: 7
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
11
创建线程(&是否联网)

然后把 这段 如果真(寻找文本(到文本(http读文件("www.baidu.com")),"把百度设为主页")=-1)加入到是否联网的子程序里面,记住用递归...
2013-7-14 13:40
0
雪    币: 327
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
12
递归   递归怎么整哦    计次循环首?
2013-7-14 14:02
0
雪    币: 7
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
13
子程序递归,你百度搜索下就知道了
2013-7-15 12:52
0
雪    币: 327
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
14
谢谢 我再看看
2013-7-15 23:30
0
雪    币: 40
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
15
应该是这样吧?剩下的懒得写如果符合要求自己完善吧
==================================================
.版本 2
.支持库 eAPI

.子程序 是否连接
.局部变量 北京时间, 日期时间型
.局部变量 记录, 文本型

.如果真 (是否与互联网连接 () = 假)
    北京时间 = 取现行时间 ()
    记录 = 到文本 (北京时间) + “网络连接断开” + #换行符
    记录 = 记录 + 记录
    监视断网.时钟周期 = 0
    监视联网.时钟周期 = 1000
.如果真结束

.子程序 _监视联网_周期事件

.如果真 (是否与互联网连接 () = 真)
    监视断网.时钟周期 = 1000
    监视联网.时钟周期 = 0
.如果真结束

.子程序 _监视断网_周期事件

启动线程 (&是否连接, , )
==================================================
2013-7-19 11:44
0
雪    币: 31
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
16
.版本 2
.支持库 internet

.子程序 取北京时间, 日期时间型
.局部变量 局_返回数据, 文本型
.局部变量 局_起始位置, 整数型
.局部变量 局_结束位置, 整数型
.局部变量 局_取出字符, 文本型
.局部变量 局_字符长度, 整数型

局_返回数据 = 到文本 (HTTP读文件 (“http://open.baidu.com/special/time/”))
局_起始位置 = 寻找文本 (局_返回数据, “window.baidu_time(”, , 假) + 取文本长度 (“window.baidu_time(”)
局_结束位置 = 寻找文本 (局_返回数据, “)”, 局_起始位置, 假)
局_字符长度 = 局_结束位置 - 局_起始位置
局_取出字符 = 取文本中间 (局_返回数据, 局_起始位置, 局_字符长度)
返回 (增减时间 ([1970年1月1日8时], #秒, 到数值 (局_取出字符) ÷ 1000))

这个方法可以
2013-7-23 17:30
0
雪    币: 327
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
17
谢谢  还没来及试试
2013-7-25 23:42
0
游客
登录 | 注册 方可回帖
返回
//