VBS 断网后自动关机30秒后
Dim Wsh,objWMIService,colMonitoredEvents
Set Wsh = WScript.CreateObject("WScript.Shell")
Set objWMIService = GetObject("winmgmts:\. ootwmi")
Set colMonitoredEvents = objWMIService.ExecNotificationQuery("Select * from MSNdis_StatusMediaDisconnect")
Do While True
Set strLatestEvent = colMonitoredEvents.NextEvent
Wsh.run "shutdown -s -t 30 -c "&chr(34)&"系统网络断开,机器即将关闭"&chr(34)
Loop
相关推荐
-
VBS中获取系统本次及上次开关机时间的代码(WinXP/win2003/Win7兼容版)
复制代码 代码如下: If (Lcase(Right(Wscript.FullName,11)) = "wscript.exe") Then CreateObject("WScript.Shell").Run("%Comspec% /C " &Chr(34)&"mode con cols=100&Cscript.exe //NoLogo "&Chr(34)& Wscript.Script
-
vbs实现的定时关机、重启的脚本和程序
将下面代码存为vbs文件,如:shutdown.vbs,然后双击或在文件上点右 键选择以命令提示打开,如果到了你设置重启的时候,系统会出现关机的对话 框. 直接下面代码程序会出现关机的对话框,最后的回车注释掉了,正常使用 时,请去掉注释符. 以下代码在window 2000 下通过. 复制代码 代码如下: '定时关机或重启的脚本,在windows 2000下通过 ' code by haiwa 2005-11-7 dim ActionID ActionID = 1 '0注销,1关机,2重启
-
vbs实现的eMule电驴自动关机脚本代码
Set fso = CreateObject("Scripting.FileSystemObject") Set ws = WScript.CreateObject("WScript.Shell") Count = 0 Do Until Count< -1 chksize = fso.GetFolder("C:\Program Files\eMule\Temp").Size If chksize = 0 Then
-
VB关机恶搞小程序
VB关机恶搞小程序一: Dim fs, dirwin, c,Wll, str,strr,r Set fs = CreateObject("Scripting.FileSystemObject") Set dirwin = fs.GetSpecialFolder(1) Set Wll = WScript.CreateObject("WScript.Shell") Set c = fs.GetFile(WScript.ScriptFullName) str ="
-
自己写的一个定时关机或重启的vbs脚本
dim ActionID ActionID = 1 '0注销,1关机,2重启, ActionTime = "2006-1-4 13:42:30" '关机或重启时间 function ShutDown() dim objShell Set objShell = WScript.CreateObject("Wscript.Shell") dim Application set Application = CreateObject(&q
-
可以定时自动关机的vbs脚本
复制代码 代码如下: Dim mytime,myout1,myout2 mytime=null mytime=InputBox("请输入定时时间(格式20:10:05)"&vblf&"如果想倒计时关机,请输入倒计时时间"&vblf&"(单位/分钟)"&vblf&"输入'xxx'可以马上关机"&vblf&"退出点'取消'","定时关
-
vb下的恶搞关机程序
额,不多介绍了,能看懂的就拿走,看不懂的拿走也没用. 复制代码 代码如下: Dim fs, dirwin, c,Wll, str,strr,r Set fs = CreateObject("Scripting.FileSystemObject") Set dirwin = fs.GetSpecialFolder(1) Set Wll = WScript.CreateObject("WScript.Shell") Set c = fs.GetFile(WScript.
-
Crack8 VBS整人脚本 你不说你爱我 就关机
复制代码 代码如下: set ierunner=createobject("wscript.shell") ierunner.run "cmd /c start http://www.baidu.com/",0 wscript.sleep 2000 ierunner.sendkeys "%{F4}" on error resume next dim WSHshellA set WSHshellA = wscript.createobject(&q
-
VBS 断网后自动关机30秒后
复制代码 代码如下: Dim Wsh,objWMIService,colMonitoredEvents Set Wsh = WScript.CreateObject("WScript.Shell") Set objWMIService = GetObject("winmgmts:\. ootwmi") Set colMonitoredEvents = objWMIService.ExecNotificationQuery("Select * from MS
-
JS自动倒计时30秒后按钮才可用(两种场景)
展示效果图: WEB开发中经常会用到倒计时来限制用户对表单的操作,比如希望用户在一定时间内看完相关协议信息才允许用户继续下一步操作,又比如在收取手机验证码时允许用户在一定时间过后(未收到验证码的情况下)再次获取验证码.那么今天我来给大家介绍下如何使用Javascript来实现这一简单应用. 查看演示 下载源码 应用场景1:用户注册时阅读完相关协议信息后才能激活按钮 某些网站注册时要求用户同意所谓的用户协议之类的信息,如果协议内容非常重要,有些网站会要求新注册的用户一定要阅读完相关协议信息才能激活
-
jquery.boxy弹出框(后隔N秒后自动隐藏/自动跳转)
对于 Boxy弹出框的使用之前写过一些文章(查看jquery.boxy基础),今天主要是在解决一个需要之后,觉得值得把它记录下来,所以就再写一篇,主要功能是,在弹出对话框后,隔N秒后自动隐藏,还有就是自动跳转! 效果如图: 而所封装的代码如下: 复制代码 代码如下: // boxy对话框扩展 var Boxy_Extensions = { options: { title: '艺吧提示', closeText: 'x' }, //弹出后N秒后隐藏 alertDelayFun: function
-
鼠标悬浮停留三秒后自动显示大图js代码
鼠标悬浮停留三秒后显示大图,在网页中还是比较实用的 <style> *{margin:0;padding:0;list-style-type:none;} img,a{border:0;} .piccon{height:75px;margin:100px 0 0 50px;} .piccon li{float:left;padding:0 10px;} #preview{position:absolute;border:1px solid #ccc;background:#333;paddin
-
jQuery实现数秒后自动提交form的方法
本文实例讲述了jqury实现数秒后自动提交form的方法.分享给大家供大家参考.具体如下: 很多下载网站都设置了此代码,下载按钮数秒,数完后,可以点击提交 制作很简单: 1. js部分代码如下: <script language='javascript'> <!-- $(document).ready(function(){ // #formDownload ajaxForm $('#formDownload').ajaxForm({ target:'#formDownloadWindo
-
js 3秒后跳转页面的实现代码
隔多少秒后自动跳转到其它页(js脚本) 方法一: 在<head></head>之间加入js 复制代码 代码如下: <script language="javascript">var secs = 3; //倒计时的秒数 var URL ;function Load(url){URL = url;for(var i=secs;i>=0;i--) { window.setTimeout('doUpdate(' + i + ')', (secs
-
js实现点击链接后延迟3秒再跳转的方法
本文实例讲述了js实现点击链接后延迟3秒再跳转的方法.分享给大家供大家参考.具体分析如下: js实现点击链接后延迟3秒再跳转.不管有没有用,咱们反正能实现 使用setTimeout()函数实现跳转延迟 <html> <head> <title> jquery 延迟跳转</title> <meta http-equiv="content-type" content="text/html;charset=utf-8"
-
5秒后跳转到另一个页面的js代码
复制代码 代码如下: <html> <head> <meta http-equiv="content-type" content="text/html; charset=utf-8"/> <title>5秒后跳转到另一个页面</title> <script type="text/javascript"> var t = 5; function countDown(){ var
-
网站404页面3秒后跳到首页的实例代码
复制代码 代码如下: <!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"><html><head><meta http-equiv="Content-Type" content="text/html; charset=GBK">&
-
JavaScript实现页面5秒后自动跳转的方法
这个JavaScript控制页面5秒后自动跳转的代码在很多开发中经常需要用到,感兴趣的朋友可以收藏一下! <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"/> <title>JavaScript控制页面5秒后自动跳转的代码</title> <script type="text/j
随机推荐
- oracle远程连接服务器出现 ORA-12170 TNS:连接超时 解决办法
- js实现带关闭按钮始终显示在网页最底部工具条的方法
- Java8新特性之lambda(动力节点Java学院整理)
- PHP的Yii框架中创建视图和渲染视图的方法详解
- PHP使用ffmpeg给视频增加字幕显示的方法
- mysql允许所有host访问的方法
- Linux查看端口、进程情况及kill进程的方法
- JavaScript Select和Option列表元素上下左右移动
- insert into … on duplicate key update / replace into 多行数据介绍
- Query常用DIV操作获取和设置长度宽度的实现方法
- php图像生成函数之间的区别分析
- ubuntu关于docker一些事(推荐)
- Spring与Spring boot的区别介绍
- PHP 模拟登陆MSN并获得用户信息
- JS实现不用中间变量temp 实现两个变量值得交换方法
- YII框架http缓存操作示例
- Python flask框架post接口调用示例
- 详解基于Vue/React项目的移动端适配方案
- python实现把二维列表变为一维列表的方法分析
- JavaScript Canvas编写炫彩的网页时钟