''******************************************************************************************* ''Version:3.1 ''调整错误处理方法，错误信息输出到LogFile文件，可以查看扫描失败原因 ''如果出现“RPC服务器不可用”错误，是因为远程主机没开机 ''如果出现“RPC服务器不可用”之外的错误，可能是由于正在运行的程序造成

右键菜单中添加CMDHERE 复制代码 代码如下: SetWshShell=CreateObject('Wscript.Shell') WshShell.RegWrite'HKEY_LOCAL_MACHINE\Software\CLASSES\Folder\shell\cmdhere\','' WshShell.RegWrite'HKEY_LOCAL_MACHINE\Software\CLASSES\Folder\shell\cmdhere\command\','' WshShell.RegW

Tr4c3:为了方便在dos下使用，我把inputbox改成了args。 复制代码 代码如下: ''ProgramByxiaolu ''name:file2vbs.vbs Onerrorresumenext SetArgs=Wscript.Arguments IfArgs.length2Then Wscript.Echo'Usage:'&Wscript.ScriptName&'c:\muma.exec:\muma.vbs' Wscript.Quit EndIf dowhile1 fname=A

使用方法： 1.将下面的代码保存为：Ring.vbs（文件名可自定） 2.将Ring.vbs移动到程序启动组，这样可以随WINDOWS自动启动了（位置是：开始--程序--启动，XP的启动组位置是：C:\DocumentsandSettings\你的用户名\「开始」菜单\程序\启动\） 3.我这里使用的是Window自带的MediaPlayer播放音乐，所以先打开您的MediaPlayer，将

ONERRORRESUMENEXT DimVOL_PROD_KEY ifWscript.arguments.count1then VOL_PROD_KEY=InputBox('使用说明：'&vbCr&vbCr&'本程序将自动替换你当前Windows的序列号,通过微软验证完全正版。'&vbCr&vbCr&'序列号(OEM版无效,默认版本为XPVLK)：'&vbCr&vbCr&'输入序列号(默认为XPVLK)：','WindowsXP/2003序列号更换工具','DG8FV-B9T

使用方法''use:cscriptthis.vbsdic.txt　 把下面的代码保存为this.vbs 复制代码 代码如下: a=Array(1,2,3,4,'a') Functionjs1(n) fori=1ton f=f&'f'&i&'&' s=s&'ForEachf'&i&'Ina:wscript.echo'&f s=Mid(S,1,Len(S)-1)&':' Next js1=s EndFunction Functionjs2(n) fori=1ton m=m&'Next'&':' Ne

classCFoo subPrintHello() response.Write'HelloWorld!' endsub endclass dimobj setobj=newCFoo callobj.PrintHello setobj=nothing

黑人必会！强制杀进程！对付杀毒软件啊 ''备注：vbs强制关闭程序 ''防止出现错误 复制代码 代码如下: OnErrorResumeNext ''vbs代码开始---------------------------------------------- subClose_Process(ProcessName) OnErrorResumeNext foreachpsingetobject('winmgmts:\\.\root\cimv2:win32_process').instances_''