怎么用易语言禁止打开某个网站

小山山

怎么用易语言禁止打开某个网站

331858927

.版本 2
.支持库 iext
.程序集 窗口程序集1
.程序集变量 文件号, 整数型
.程序集变量 路径, 文本型
.程序集变量 加入, 逻辑型
.子程序 _按钮1_被单击
.局部变量 当前行, 文本型
.局部变量 i, 整数型
.局部变量 a, 文本型, , "0"
.局部变量 c, 整数型
i ＝ 1
.判断循环首 (i ＜ 10)
    当前行 ＝ 读入一行 (文件号)
    .如果真 (当前行 ＝ “”)
        跳出循环 ()
    .如果真结束
    a ＝ 分割文本 (当前行, “ ”, )
    .如果真 (取数组成员数 (a) ＝ 3)
        c ＝ 超级列表框1.插入表项 (, , , , , )
        超级列表框1.置标题 (c, 0, a [1])
        超级列表框1.置标题 (c, 1, a [2])
        超级列表框1.置标题 (c, 2, a [3])
    .如果真结束
.判断循环尾 ()
.子程序 __启动窗口_创建完毕
加入 ＝ 假
路径 ＝ 读环境变量 (“Systemroot”) ＋ “\System32\Drivers\Etc\hosts”
文件号 ＝ 打开文件 (路径, 1, 1)
_按钮1_被单击 ()

.子程序 _删除_被选择
超级列表框1.删除表项 (超级列表框1.现行选中项)
.子程序 _按钮2_被单击
.局部变量 当前文本, 文本型
.局部变量 循环数, 整数型
.局部变量 总文本, 文本型
关闭文件 (文件号)
.计次循环首 (超级列表框1.取表项数 (), )
    当前文本 ＝ 超级列表框1.取标题 (循环数, 0) ＋ “ ” ＋ 超级列表框1.取标题 (循环数, 1) ＋ “ ” ＋ 超级列表框1.取标题 (循环数, 2)
    总文本 ＝ 总文本 ＋ 当前文本 ＋ #换行符
    循环数 ＝ 循环数 ＋ 1
.计次循环尾 ()
写到文件 (路径, 到字节集 (总文本))
信息框 (“保存成功!”, #错误图标, “提示”)
.子程序 _超级列表框1_右键单击表项
弹出菜单 (caidan, , )
.子程序 _按钮3_被单击
.局部变量 返回值, 整数型
.局部变量 a, 整数型
.局部变量 文本, 文本型
加入 ＝ 真
.如果真 (编辑框1.内容 ＝ “”)
    返回值 ＝ 信息框 (“如果你啥都不写我就不让你上网了..你真得不写吗?”, #是否钮 ＋ #错误图标, “提示”)
    .如果 (返回值 ＝ #是钮)
        禁止DNS ()
        文本 ＝ “www.他啥都没写.com”
    .否则
        返回 ()
    .如果结束
.如果真结束
.如果真 (文本 ＝ “”)
    文本 ＝ 编辑框1.内容
.如果真结束
a ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (a, 0, “127.0.0.1”)
超级列表框1.置标题 (a, 1, 文本)
.如果真 (编辑框2.内容 ＝ “”)
    超级列表框1.置标题 (a, 2, “这家伙很懒什么都没留下!”)
    返回 ()
.如果真结束
超级列表框1.置标题 (a, 2, 编辑框2.内容)
.子程序 禁止DNS
信息框 (“老大俺错蓝...您还是写上吧”, #信息图标, “提示”)
.子程序 __启动窗口_可否被关闭, 逻辑型
.局部变量 返回值, 整数型
.如果真 (加入 ＝ 真)
    返回值 ＝ 信息框 (“文本被编辑是否保存？”, #是否钮 ＋ #询问图标, “提示”)
    .如果真 (返回值 ＝ #是钮)
        _按钮2_被单击 ()
    .如果真结束
    销毁 ()
.如果真结束
关闭文件 (文件号)

薄涼

楼上的兄弟 给力哈

正鑫软件开发

是不是有点麻烦了2楼

你先打开那个网站   然后看他的标题

然后取句柄  加个时钟  判断句柄  如果存在则关闭   

千年

hosts文件读写操作.e
http://www.3600gz.cn/thread-4600-1-1.html

koma

直接获取网站的服务器IP  然后禁用

月光深林

学习了大大大大大大大