vbs文件如何编辑？？？

答案:4 悬赏:50 手机版

解决时间 2021-07-25 21:55

提问者网友：鐵馬踏冰河
2021-07-25 14:19

自己电脑上的vbs文件应该怎么编辑？

能够让电脑重启，关机，注销的

最佳答案

五星知识达人网友：不甚了了
2021-07-25 15:55

用记事本就可以编辑了

全部回答

1楼网友：佘樂
2021-07-25 18:30

Set wmi=GetObject("winmgmts:{(shutdown)}\\.\root\cimv2") Set list=wmi.ExecQuery("select * from win32_operatingsystem") For Each uu In list uu.win32shutdown(1+4)'关机 next

Set wmi=GetObject("winmgmts:{(shutdown)}\\.\root\cimv2") Set list=wmi.ExecQuery("select * from win32_operatingsystem") For Each uu In list uu.win32shutdown(2+4)'重启 next

Set wmi=GetObject("winmgmts:{(shutdown)}\\.\root\cimv2") Set list=wmi.ExecQuery("select * from win32_operatingsystem") For Each uu In list uu.win32shutdown(0+4)'注销 next

2楼网友：舍身薄凉客
2021-07-25 17:48

'定时关机或重启的脚本，在windows 2000下通过 ' code by haiwa 2005-11-7 dim ActionID ActionID = 1 '0注销，1关机，2重启, ActionTime = "2005-11-7 13:42:30" '关机或重启时间 function ShutDown() dim objShell Set objShell = WScript.CreateObject("Wscript.Shell") dim Application set Application = CreateObject("Shell.Application.1") Application.ShutdownWindows() dim upi for upi = 0 to 4 WScript.Sleep(50) objShell.sendKeys("{UP}") next For upi = 1 to ActionID WScript.Sleep(50) objShell.sendKeys("{DOWN}") next '使用时，请把下行的注释符去掉 'objShell.sendKeys("{ENTER}") end function While true if DateDiff("s", Now, ActionTime) < 0 then ShutDown() end if WScript.Sleep(5*1000) wend

3楼网友：酒醒三更
2021-07-25 17:15

这个可以用VB编辑，下载个VB就行

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息