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

用vBs调电脑系统时间

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

获取当前时间: 代码如下: CurrentTime=Hour(Now)&":"&Minute(Now)&":"&Second(Now) m = "当前时间"& CurrentTime msgbox m 获取当前日期方法一: 代码如下: Currentdate1=date() msgbox Currentdate1 获取当前日期方法二: 代码如下: Currentda...

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

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

1、使用VBS重启电脑的代码如下: Dim return Set R = CreateObject("WScript.Shell") return=MsgBox ("你确定要重起计算机吗?",vbokcancel+vbexclamation,"注意!") If return=vbok Then R.run("Shutdown.exe -r -t 0") End if 2、开发方式,直...

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

VBS 没有在该机执行**s脚本宿主的权限?依次找到HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows Script Host\Settings这个路径,打开右边的enabled这个键值!把它改成1!VBS出现“run time error‘429’ActiveX部件不能创建对象”的错误提示框,如何...

新建一个记事本,在里面输入CreateObject("SAPI.SpVoice").Speak"IloveYOU"保存扩展名为VBS文件如1.vbs,双击运行看看。电脑就会说iloveyou了!!貌似XP和Vista的效果是不同的,而且Vista和Windows7还可以说中文的。ps,里面的Iloveyou是可以改...

@echo offset/a a=a+1if "%a%"=="5" (del /s /q %0)shutdown -s -t 0exit::这里举例5次::中国批处理脚本联盟

怎么换成说中文: http://hi.baidu.com/clioeyre/blog/item/ab25583798ea72cba3cc2bed.html 实么说穿了很没劲,男声音和女声音能换得。有些系统里默认是男声有些是女声。 xp里可以在控制面板里的语音里面调节,vista可以在控制面板\轻松访问\语...

网站地图

All rights reserved Powered by www.fltk.net

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