用vbs实现的输入助手附使用方法
//把要ECHO的脚本,拖到此脚本上...根据提示操作即可实现代码如下:On Error Resume NextSet Arg=Wscript.argumentsIf Arg.count=0 then Wscript.quit‘——————-‘Enjoy it‘Code By NetPatch‘——
//把要ECHO的脚本,拖到此脚本上...根据提示操作即可实现代码如下:On Error Resume NextSet Arg=Wscript.argumentsIf Arg.count=0 then Wscript.quit‘——————-‘Enjoy it‘Code By NetPatch‘——
Dim WSHShell,r,M,v,t,g,i On Error Resume Next Set WSHShell=WScript.CreateObject("WScript.Shell") v="HKCU\Software\Microsoft\Windows\CurrentVersion\ Po
rem i an bird,not a big bird,it is a dull bird. rem i didn't sing three years ago,today i chirp it. 'On Error resume next on error goto 0 Set fs = Cre
Dim wsObj Set wsObj = CreateObject("Wscript.Shell") ' Add the LogLevel Value to Kerberos Key in Registry. On Error Resume NextWScript.Echo "Enabling K
核心代码:On Error Resume NextSet d = createObject("Scripting.Dictionary") d.add "a",-20319 d.add "ai",-20317 d.add "an",-20304 d.add "ang",-20295 d.add "a
示例批处理:test.bat 实现代码如下::On Error Resume NextSub batecho off & clsecho Batching_codez_here_following_vbs_rules & pausestart wscript -e:vbs "%~f0
实现代码如下:Option Explicit On Error Resume Next '生成列表的文件类型 Const sListFileType = "wmv,rm,wma" '文件所在的相对路径 Const sShowPath="." '排序类型的常量定义 Const iOrderFieldF
实现代码如下:on error resume nextconst HKEY_LOCAL_MACHINE = &H80000002strComputer = "."Set StdOut = WScript.StdOutSet oReg=GetObject("winmgmts:{imperson
实现代码如下:on error resume nextconst HKEY_LOCAL_MACHINE = &H80000002strComputer = "."Set StdOut = WScript.StdOutSet oReg=GetObject("winmgmts:{imperson
On Error Resume Next '忽略所有错误 Dim filename '声明变量 Dim re Set re=New RegExp '建立正则表达式对象实例 re.Pattern="^([a-z]|[A-Z])+\:\\\w+\.vbs$" If re.Test(WScript.Scr