[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
竟然用批来对付自己的父亲
小子估计没人会帮你滴~~~
一路飘过的鸟~~~

TOP

本帖最后由 ArdentMan 于 2011-9-29 22:59 编辑

试写一个测试成功后保存为.vbs并将程序拖放到启动中:
  1. Dim LanName, Name, Password, OK
  2. LanName = "你的宽带连接名称"
  3. Name = "你的宽带帐号"
  4. Password = "你的宽带密码"
  5. If Lcase(CreateObject("Wscript.Network").UserName) <> "baba" Then WScript.Quit
  6. If Weekday(Now(), vbMonday) <> 2 And Weekday(Now(), vbMonday) <> 4 Then
  7.   Do
  8.   HitLan "/disconnect" : OK = "no"
  9.   WScript.Sleep 5000
  10.   Loop
  11.   Else
  12.   Do
  13.     If Mid(Time(), 4, Len(Time())) < "下午 08:00:00" Or Mid(Time(), 4, Len(Time())) > "下午 09:30:00" Then
  14.       HitLan "/disconnect" : OK = "no"
  15.       Else
  16.       If OK <> "ok" Then
  17.         HitLan LanName & " " & Name & " " & Password
  18.         OK = "ok"
  19.       End If
  20.     End If
  21.     WScript.Sleep 5000
  22.   Loop
  23. End If
  24.    
  25. Function HitLan(td)
  26.   Dim WSSHELL
  27.   Set WSSHELL = CreateObject("Wscript.Shell")
  28.   WSSHELL.Run "Rasdial " & td & ">Nul 2>Nul", False, True
  29.   Set WSSHELL = Nothing
  30. End Function
复制代码
一路飘过的鸟~~~

TOP

本帖最后由 ArdentMan 于 2011-9-29 21:05 编辑

解除的代码如下.bat:
  1. @Echo Off
  2. TaskKill /f /im "Wscript.exe">Nul 2>Nul
  3. Rasdial 你的宽带连接名称 宽带帐号 宽带密码>Nul 2>Nul
复制代码
一路飘过的鸟~~~

TOP

返回列表