核心代码:复制代码 代码如下: If WScript.Arguments.UnNamed.Count <> 1 Then Syntax If WScript.Arguments.Named.Count > 1 Then Syntax blnTd = False If WScript.Arguments.Named.Count = 1 Then If UCase( WScript.Arguments.Named( 0 ) ) = "/..
复制代码 代码如下:on error resume next SelectFolder function SelectFolder() Const MY_COMPUTER = &H11& Const WINDOW_HANDLE = 0 Const OPTIONS = 0 Set objShell = CreateObject("Shell.Application") Set objFolder = objShell.Namespace(MY..
程序试验环境为windowsxp_sp2,主要针对系统存在多个需要中断进程的情况下,瞬间成批中断进程。 复制代码 代码如下:'---------------------------------------------------------------------------------- OnErrorResumenext Setfs=CreateObject("s..
提出你的第一个问题
回答一个你擅长的问题
对内容进行点赞或者收藏
阅读声望与权限的规范
完善个人资料