2020-02-16 标签:vbs,获取,系统,本次,上次,开关,机时,间的,代码,winxp,win,2003,兼容,实现,如下,lcase,right

实现代码如下： If (Lcase(Right(Wscript.FullName,11)) = "wscript.exe") Then CreateObject("WScript.Shell").Run("%Comspec% /C " &Chr(34)&"mode con cols=

2020-02-16 标签:编程,用到,windows,系统,目录,变量,简写,c,documents,settings,users,userprofile,当前,用户名,homepath,systemroot,windir,comspec,system

%ALLUSERSPROFILE% C:\Documents and Settings\All Users %USERPROFILE% C:\Documents and Settings\当前用户名 %HOMEPATH% C:\Documents and Settings\当前用户名 %SYSTEM

2020-02-16 标签:适用于,hta,sleep,函数,实现,代码,如下,function,n,var,a,ew,wscript,shell,run,comspec,c,ping,127

实现代码如下：function Sleep(n){var a = new ActiveXObject("WScript.Shell");a.Run("%comspec% /c ping -n " + n + " 127.0.0.1 > nul", 0, 1);a = null; }

2020-02-16 标签:批处理,倒计时,全屏,实现,代码,如下,echo,off,exit,comspec,k,prompt,e,100,b,00,12,cd

实现代码如下：@echo off echo exit|%ComSpec% /k prompt e 100 B4 00 B0 12 CD 10 B0 03 CD 10 CD 20 $_g$_q$_|debug>nul chcp 437>nul graftabl 936>nul set