定时断开网络恢复网络的源码

邪恶神 · 发表于 3 天前

需要一款能定时断网的源码，电脑是学校的电脑，是本地连接的网络。
目前想要实现的功能就是隐藏进程，让电脑保持断网的状态，免得学生刷抖音。

你的猫 · 发表于 3 天前

窗口程序集名	保留	保留	备注
窗口程序集_启动窗口
变量名	类型	数组	备注
计划断网时间	日期时间型
计划恢复时间	日期时间型
适配器名称	文本型

子程序名	返回值类型	公开	备注
__启动窗口_创建完毕

适配器名称＝ “以太网” ' 根据实际情况修改网络适配器名称
时钟1.时钟周期＝ 1000 ' 每秒检查一次
读配置项 (取运行目录 () ＋ “\config.ini”, “配置”, “断网时间”, )
读配置项 (取运行目录 () ＋ “\config.ini”, “配置”, “恢复时间”, )

子程序名	返回值类型	公开	备注
_按钮_设置_被单击

计划断网时间＝到时间 (编辑框_断网.内容)
计划恢复时间＝到时间 (编辑框_恢复.内容)
写配置项 (取运行目录 () ＋ “\config.ini”, “配置”, “断网时间”, 编辑框_断网.内容)
写配置项 (取运行目录 () ＋ “\config.ini”, “配置”, “恢复时间”, 编辑框_恢复.内容)
信息框 (“设置成功！”, 0, , )

子程序名	返回值类型	公开	备注
_时钟1_周期事件

.局部变量当前时间, 日期时间型
当前时间＝取现行时间 ()

如果真 (取时间间隔 (当前时间, 计划断网时间, #秒 ) ≥ 0)

断开网络 ()

计划断网时间＝到时间 (“2000/1/1”) ' 重置时间防止重复执行

如果真 (取时间间隔 (当前时间, 计划恢复时间, #秒 ) ≥ 0)

恢复网络 ()

计划恢复时间＝到时间 (“2000/1/1”) ' 重置时间防止重复执行

子程序名	返回值类型	公开	备注
断开网络

.局部变量结果, 整数型
结果＝运行 (“cmd /c netsh interface set interface ” ＋适配器名称＋ “ admin=disable”, 真, #隐藏窗口 )

如果 (结果 ≠ 0)

标签_状态.标题＝ “网络禁用失败！”

标签_状态.标题＝ “网络已禁用 - ” ＋到文本 (取现行时间 ())

子程序名	返回值类型	公开	备注
恢复网络

.局部变量结果, 整数型
结果＝运行 (“cmd /c netsh interface set interface ” ＋适配器名称＋ “ admin=enable”, 真, #隐藏窗口 )

如果 (结果 ≠ 0)

标签_状态.标题＝ “网络恢复失败！”

标签_状态.标题＝ “网络已恢复 - ” ＋到文本 (取现行时间 ())

.版本 2<br />
.程序集 窗口程序集_启动窗口<br />
.程序集变量 计划断网时间, 日期时间型<br />
.程序集变量 计划恢复时间, 日期时间型<br />
.程序集变量 适配器名称, 文本型<br />
<br />
.子程序 __启动窗口_创建完毕<br />
    适配器名称 ＝ “以太网”  ' 根据实际情况修改网络适配器名称<br />
    时钟1.时钟周期 ＝ 1000  ' 每秒检查一次<br />
    读配置项 (取运行目录 () ＋ “\config.ini”, “配置”, “断网时间”, )<br />
    读配置项 (取运行目录 () ＋ “\config.ini”, “配置”, “恢复时间”, )<br />
<br />
.子程序 _按钮_设置_被单击<br />
    计划断网时间 ＝ 到时间 (编辑框_断网.内容)<br />
    计划恢复时间 ＝ 到时间 (编辑框_恢复.内容)<br />
    写配置项 (取运行目录 () ＋ “\config.ini”, “配置”, “断网时间”, 编辑框_断网.内容)<br />
    写配置项 (取运行目录 () ＋ “\config.ini”, “配置”, “恢复时间”, 编辑框_恢复.内容)<br />
    信息框 (“设置成功！”, 0, , )<br />
<br />
.子程序 _时钟1_周期事件<br />
    .局部变量 当前时间, 日期时间型<br />
    当前时间 ＝ 取现行时间 ()<br />
<br />
    .如果真 (取时间间隔 (当前时间, 计划断网时间, #秒) ≥ 0)<br />
        断开网络 ()<br />
        计划断网时间 ＝ 到时间 (“2000/1/1”) ' 重置时间防止重复执行<br />
    .如果真结束<br />
<br />
    .如果真 (取时间间隔 (当前时间, 计划恢复时间, #秒) ≥ 0)<br />
        恢复网络 ()<br />
        计划恢复时间 ＝ 到时间 (“2000/1/1”) ' 重置时间防止重复执行<br />
    .如果真结束<br />
<br />
.子程序 断开网络<br />
    .局部变量 结果, 整数型<br />
    结果 ＝ 运行 (“cmd /c netsh interface set interface ” ＋ 适配器名称 ＋ “ admin=disable”, 真, #隐藏窗口)<br />
    .如果 (结果 ≠ 0)<br />
        标签_状态.标题 ＝ “网络禁用失败！”<br />
    .否则<br />
        标签_状态.标题 ＝ “网络已禁用 - ” ＋ 到文本 (取现行时间 ())<br />
    .如果结束<br />
<br />
.子程序 恢复网络<br />
    .局部变量 结果, 整数型<br />
    结果 ＝ 运行 (“cmd /c netsh interface set interface ” ＋ 适配器名称 ＋ “ admin=enable”, 真, #隐藏窗口)<br />
    .如果 (结果 ≠ 0)<br />
        标签_状态.标题 ＝ “网络恢复失败！”<br />
    .否则<br />
        标签_状态.标题 ＝ “网络已恢复 - ” ＋ 到文本 (取现行时间 ())<br />
    .如果结束

aipca · 发表于 3 天前

找网管设置访问网络的时间段

啊平 · 发表于 3 天前

弄一个时钟判断当前时间是否是允许联网区间：当前小时＝取小时 (取现行时间 ()) ' 示例：8:00-17:00断网如果 (当前小时 ≥ 8 且当前小时＜ 17) 则

自己试试 ' 禁用本地连接名称根据自己电脑实际名称修改运行 ("netsh interface set interface 本地连接 admin=disable", 假, #隐藏窗口)