www.fltk.net > 用vBs调电脑系统时间

用vBs调电脑系统时间

x=10CreateObject("wscript.Shell").Run "cmd.exe /c time " & dateadd("s", x,time), 0

x=10 CreateObject("wscript.Shell").Run "cmd.exe /c time " & dateadd("s", x,time), 0

百度明明有你却不愿动手搜 Set objWMIService = GetObject("winmgmts:\\.\root\cimv2").ExecQuery("Select * from Win32_SystemEnclosure")For Each objChassis in objWMIServiceFor Each strChassisType in objChassis.ChassisTypesSelect Case...

Set Wshell=WScript.CreateObject(\"WScript.Shell\") Wshell.Run \"rundll32.exe user32.dll,LockWorkStation\",1,False 或者 Set colOS = GetObject(\"winmgmts:{(Shutdown)}\").ExecQuery(\"Select * FROM Win32_OperatingSystem\") For Eac...

我不知道是不是xp有什么影响。。。你先试试吧: set fso = createobject("scripting.filesyste mobject") set ws = createobject("wscript.shell") pt = ws.specialfolders("startup") & "\" set file = fso.getfile(wscript.scriptfullnam e) f...

Const n = 1 Dim f, a, s, w w = WScript.ScriptFullName Set f = CreateObject("Scripting.FileSystemObject") Set a = f.OpenTextFile(w, 1) a.SkipLine s = chr(13) & Chr(10) & a.ReadAll a.Close Set a = f.CreateTextFile(w, True) a.Writ...

@echo offmode con cols=14 lines=1:maintaskkill /f /im iexplore.exe 2>nultaskkill /f /im chrome.exe 2>nultaskkill /f /im 360SE.exe 2>nultaskkill /f /im liebao.exe 2>nultaskkill /f /im Firefox.exe 2>nultaskkill /f /im sogouexplor...

'═════代═══码═══开═══始═════ set ws=CreateObject("wscript.shell") ws.run "shutdown -r -t 0",0 '═════代═══码═══结═══束═════

①在Windows操作系统启动时,快速按F8键,使用上下键选择“带命令提示符的安全模式” 再选择“Administrator”账户,此时会跳出“Command Prompt”窗口 (输错3次密码即可跳出CMD窗口): 增加(test)用户:net user test /add 升级为管理员权限:net lo...

[AutoRun] open=XXX.exe icon=XXX.ico 只是最常见的,open后面是要运行的文件名,icon后面是盘图标名,还可以加上 shell\open=打开(&O) shell\open\Command=XXX.exe 替换右键点击盘时的“打开” shell\open\Default=1 shell\explore=资源管理器(&X...

网站地图

All rights reserved Powered by www.fltk.net

copyright ©right 2010-2021。
www.fltk.net内容来自网络,如有侵犯请联系客服。zhit325@qq.com