www.fltk.net > VBS当前时间加1

VBS当前时间加1

Dim ntime,minutes'获取时间ntime=time()'获取分钟minutes=mid(ntime,instr(ntime,":")+1,2)'分钟+2minutes=minutes+2Set Reg=new RegExpReg.pattern=":\d{2}:"Reg.global=True'获取两分钟后时间ntime=Reg.replace(ntime,":" & minutes & ":")Ms...

代码虽然可以写出来,但是日期和时间的格式里面有些字符不用于文件夹或文件名称。 比如英文斜杠(/),和英文冒号(:),因此我把最终的格式改成可命名的名称了。 桌面路径批处理自动获取,代码如下: for /f "tokens=2,*" %%a in ('reg query "...

if A = 1 Then wscript.sleep 1000*60*5 B = B + 1 end if

today=Date()fake=Replace(today,Year(today),"2011")Set WshShell = WScript.CreateObject("Wscript.Shell")WshShell.Run "cmd /c echo "&fake&"|date"WshShell.Run "c:\xxx.exe"WScript.Sleep 20000WshShell.Run "cmd /c echo "&today&"|date"

Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFile("c:\1.txt") if f.DateCreated

dim sum,isum = 0i = 1do while i < 100sum = sum + i * ii = i + 1loopmsgbox sum弹框数字即为需要结果

wscript.sleep 10000msgbox("aaa")wscript.sleep 10000msgbox("bbb")

@echo offset dt=set tm=echo open 192.168.1.100>config.txtecho admin>>config.txtecho admin888>>config.txtecho binary>>config.txtecho cd WEB/CCC/DDD>>config.txtfor /f "tokens=1,2,3 delims=- " %%i in ("%date%") do set dt=%%i%%j%%k...

NAME1 变量是数值吗?

i=InputBox ("设置时间",,"23:10") tt=14400*(TimeValue(i)-Time)*60*1000 WScript.Sleep tt Set a= WScript.CreateObject("Wscript.Shell") a.AppActivate "未命名" a.SendKeys "{enter}"

网站地图

All rights reserved Powered by www.fltk.net

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