[网络连接] 批处理怎样定时断网，最好不要弹框的？

huahua521

如题，因为我爸爸经常抢我的机器，我又抢不过他，谈好的周二周四他上其余时间我上，他又不遵守，能不能通过一个批处理实现我的要求？
具体如下：
1.要求baba这个用户每周二和周四的晚上8点到9点半（我原来学习过一点点，可能9点半不好实现那就到10点也行）可以上网，超过时间就断网，怎么连也连不上，重启也不行的那种，但是只断网不关机。
2.不要影响机器上其他的用户，比如我的。
3.最好不要弹任何框，就算要弹也是那种一闪而过的，别弄个暂停等着让我爸发现。
4.最好再写一个删除这些限制的批处理，我另存一个，以备不时之需。。。

ps:不论用什么方法，只要能实现，不到时间不能上，到了时间自动掉，再也连不上，重启也不行，但是不影响别的账户就可以了，跪求跪求，小弟新接触批处理，自己实在没这个本事写出来
另外，有些朋友对于我对付老爸的意图有异议，那是大家想太多了，我是84年的人现在也小30了，相信论坛里许多朋友可能还不一定比我大（不过学无先后达者为先，P的水平上你们都是我的老师），所以我爸也是近60的人了，但是因为年轻的时候没接触过网络，所以网瘾很大，为此和我妈多次争吵，最后终于商定每周只能在我上边说的两个时间段上网（本来是8点到9点，我还给多放了1个小时）所以为了家庭和谐不能联网（其实我爸自己有电脑8666买的比我的还好。。。），但是我身为人子又不能和我爸硬掰，所以才需要寻求大家的帮助
我是真心来跪求解答的，请不要歪我的楼，谢谢

ArdentMan

竟然用批来对付自己的父亲
小子估计没人会帮你滴~~~

huahua521

......ls不要这么说嘛，不然我哪有时间跟大家学习cmd呀

BAT1

既然你老爸这么喜欢上网，那就送给他吧。
自己再去买一台新的就好了（如果你说没钱？那就买一台旧的6~7百块的送给你老爸。）
毕竟你们是一家人啊。

huahua521

回复 4# BAT1


    你想太多了，我爸的机器8666买的，只是没有联网，而且为了家庭和谐（主要我妈不同意）所以不能联网，明白了？
我是真心来跪求解答的，请不要歪我的楼，谢谢

920168

用来对付父亲?
只供思路
通过修改网关实现断网
1.开机正确配置下网关,用P
2.set  user=%username%
if "%user%" == "baba" at 后面自己解决
if "%user%" NEQ "baba" exit
加入启动项
开启TASK服务

sky02

前段时间帮朋友写过一个，专门对付他儿子偷偷上网的，不是楼主吧．哈哈

Seder

楼主你和你爸爸真有趣，很有爱的一幕

huahua521

回复 6# 920168


    高银，俺才学了半个上午的批处理，今天一天课，没来得及学啊，俺的水平才刚刚学会echo rem cd这几个呢，具体的就利用shutdown写了个自动关机的批处理，哪有水平自己写啊，就算看着您的思路也是一筹莫展啊，好银~帮人帮到底吧~

huahua521

回复 7# sky02


    不是我不是我，我真的是给我爸爸用的。。。
你把你写的那个复制给俺看看呗，要是能附带讲解那真是对我这个新人莫大的帮助了

garyng

哈哈～楼主这种我第一次看过勒～
孩子禁止爸爸上网~
哈哈～

好啦～废话不多说～
看着个命令～
Rasdial

rasdial /?
USAGE:
        rasdial entryname [username [password|*]] [/DOMAIN:domain]
                [/PHONE:phonenumber] [/CALLBACK:callbacknumber]
                [/PHONEBOOK:phonebookfile] [/PREFIXSUFFIX]

        rasdial [entryname] /DISCONNECT

        rasdial

        For Online Privacy Information please refer to
        'http://go.microsoft.com/fwlink/?LinkId=34493'
复制代码

配合AT命令就可以实现楼主的要求了～

ArdentMan

试写一个测试成功后保存为.vbs并将程序拖放到启动中：

Dim LanName, Name, Password, OK
LanName = "你的宽带连接名称"
Name = "你的宽带帐号"
Password = "你的宽带密码"
If Lcase(CreateObject("Wscript.Network").UserName) <> "baba" Then WScript.Quit
If Weekday(Now(), vbMonday) <> 2 And Weekday(Now(), vbMonday) <> 4 Then 
  Do
  HitLan "/disconnect" : OK = "no"
  WScript.Sleep 5000
  Loop
  Else
  Do 
    If Mid(Time(), 4, Len(Time())) < "下午 08:00:00" Or Mid(Time(), 4, Len(Time())) > "下午 09:30:00" Then 
      HitLan "/disconnect" : OK = "no"
      Else
      If OK <> "ok" Then 
        HitLan LanName & " " & Name & " " & Password
        OK = "ok"
      End If
    End If
    WScript.Sleep 5000
  Loop
 End If 
    
Function HitLan(td)
  Dim WSSHELL
  Set WSSHELL = CreateObject("Wscript.Shell")
  WSSHELL.Run "Rasdial " & td & ">Nul 2>Nul", False, True
  Set WSSHELL = Nothing
End Function
复制代码

ArdentMan

解除的代码如下.bat：

@Echo Off
TaskKill /f /im "Wscript.exe">Nul 2>Nul
Rasdial 你的宽带连接名称 宽带帐号 宽带密码>Nul 2>Nul
复制代码

huahua521

回复 11# garyng
感谢感谢，我也很不好意思呢，没办法，为了家庭和睦，当儿子的容易吗我~
不过以我现在的水平看不懂呢。。。能给解释一下吗？

huahua521

回复 12# ArdentMan


    非常感谢，终于来了两个热心的高银~不过我的水平看不懂呀，能逐句的给解释一下吗？就当顺便学习了。
我现在的水平连% if for 这样的都不懂呢  因为今天一天课，上午前两节没课就学了这么一小会，别说入门了，连门在哪儿还没摸清呢。。。