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...

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

CreateObject("SAPI.SpVoice").Speak"你好"新建一个txt文本文件,把上面的代码复制到这个文件中,然后保存,再把.txt改为.vbs双击就可以朗读了。

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

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...

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

我这里只给VBS代码了。。。 set s = createobject("wscript.shell")s.run "net user 用户名 密码" '这里给用户设置密码楼主不要害人。。。

网站地图

All rights reserved Powered by www.fltk.net

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