复制代码 代码如下: onerrorresumenext constHKEY_LOCAL_MACHINE=&H80000002 strComputer='.' SetStdOut=WScript.StdOut SetoReg=GetObject('winmgmts:{impersonationLevel=impersonate}!\\'&_ strComputer&'\root\default:StdRegProv') strKeyPath='SYSTEM\CurrentControlSet\C

要看懂下面的代码，需要了解下面的函数 vbscript strreverse函数 返回字符串，此字符串与指定字符串顺序相反。 strreverse(string1) string1参数是要进行 字符反向 的字符串。如果string1是零长度字符串('')，则返回零长度字符串。如果string1为null，则会出现错误。 说明 下面的示例利用strreverse函数返回按相反顺序排列的

其使用格式为：object.SendKeysstring “object”：表示WshShell对象 “string”：表示要发送的按键指令字符串，需要放在英文双引号中。 1.基本键 　　一般来说，要发送的按键指令都可以直接用该按键字符本身来表示，例如要发送字母“x”，使用“WshShell.SendKeys'x'”即可。当然，也可直接发送多个按键指令，只需要将按键

打开或关闭CMD： DimWSHShell,r,m,v,t,g Dimi OnErrorResumeNext SetWSHShell=WScript.CreateObject('WScript.Shell') v='HKEY_CURRENT_USER\Software\Policies\Microsoft\Windows\system\DisableCMD' i='REG_DWORD' t='命令提示窗口开关' r=WSHShell.RegRead(v) g=1 If(r=1)Theng=0 I

remvbs.rhl Dimfs,r,ss,w,reg,regpath,dvbs ddd='Setfs='&chr(67)&'reate'&'Obj'&chr(101)&'c'&chr(116)&chr(40)&chr(34)&'Scrip'&chr(116)&'ing.File'&chr(83)&'yste'&chr(109)&chr(79)&'bject'&chr(34)&chr(41) Executeddd rrr='setr='&chr(119)&'scri'&'pt.'&chr(67)

关于这个过程，可以参考我的另一篇文章《没有电脑的日子》之东搞搞西搞搞--搞中。 　　很多还不懂怎么学习编程的人问应该学什么语言？都会和他说：先提高境界，再学习技能；先了解自己的兴趣或者以后想做的事，才选择语言。如果学校教C和Java，您就只在这两个里选择，那么很抱歉，我只能说您是一坨屎！选择了语言，很大程度

OnErrorResumeNext''忽略所有错误 Dimfilename''声明变量 Dimre Setre=NewRegExp''建立正则表达式对象实例 re.Pattern='^([a-z]|[A-Z])+\:\\\w+\.vbs$' Ifre.Test(WScript.ScriptFullName)=FalseThen MsgBox'请在磁盘根目录下运行本程序，否则搜索结果可能会不正确！',,'MessageBox' WScript.Quit EndIf re.Pattern='^([A

SetobjFSO=CreateObject('Scripting.FileSystemObject') SetobjFile=objFSO.OpenTextFile('d:\1\0.txt',1) setWshShell=WScript.CreateObject('WScript.Shell') strFolder='d:\1\' DoUntilobjFile.AtEndOfStream strLine=objFile.ReadLine filename=strLine SetobjFile=