批處理新手入門導讀[視頻教程]批處理基礎視頻教程[視頻教程]VBS基礎視頻教程
[批處理文件精品]批處理版照片整理器[批處理文件精品]純批處理備份&還原驅動在線第三方下載
返回列表 發帖

VBS監測網絡

請教一個代碼,編寫一個VBS能夠監測網絡就是說運行這個腳本之前網絡連接是斷開(或者正常連接)的,運行后插入網線(拔掉網線或者禁用網絡連接)自動關機。希望各位老大指教,批處理我能寫。。。問題是那個黑窗口一閃而過。。。所以想用VBS來實現下,請各位指教了  





下面是我搜索來的代碼只能實現連接狀態轉變為斷開或者禁用的話自動關機,不能實現從斷開到連接的監測  



Dim Wsh,objWMIService,colMonitoredEvents
Set Wsh = WScript.CreateObject("WScript.Shell")
Set objWMIService = GetObject("winmgmts:\\.\root\wmi")
Set colMonitoredEvents = objWMIService.ExecNotificationQuery("Select * from MSNdis_StatusMediaDisconnect")
Do While True
Set strLatestEvent = colMonitoredEvents.NextEvent
Wsh.run "shutdown -r -f -t 30 -c "&chr(34)&"系統網絡斷開,機器即將重啟,開機前確認網線已插好"&chr(34)
Loop

[ 本帖最后由 q1x2x3 于 2010-7-6 00:47 編輯 ]

如果樓主愿意以藏運行批處理的話,那么也是可以的。
利用VBS隱藏運行批處理。
===============================
不知是否如愿?

TOP

恩,這個我明白,可是批處理的話畢竟不是很完善,再怎么隱藏好像都會跳出黑窗口的吧,還有就是如果我用批處理的話,別人同樣能夠使用批處理來禁止我的東西運行的


呵呵謝謝你的回答


我正在努力的學習當中

TOP

。。。。。一天不看沉下去了,大家幫幫忙啊

TOP

額?用VBS隱藏不會跳出來啊、

TOP

返回列表
36选7开奖结果今天福建 福建快3开奖结果-开奖历史 广东快乐10分开奖网 极速赛车彩票计算方法 江西11选五5任一怎么玩 怎么算是聚众赌博 江西时时彩号码推荐 子基金配资 哪个软件打麻将赢真钱 浙江11选五中奖规则 天津十一选五中奖详情 快乐彩12玩法规则 股票推荐 博客 赌场有哪些扑克牌玩法 河北11选五基本 云南十一选五遗漏真准网 时时彩官网