解决方案对于FLV类型：打开InternetInformationServicesManager(iis(微软的WEB服务器平台))，选择“本地计算机”-->用户站点-->打开“属性”-->“HTTP头”-->“MIME类型”-->“新建”。扩展名=“.flv”MIME类型=“flv-application/octet-stream”，保存退出即可。对于RMVB类型：打开InternetInformationServicesManager(iis(微软的WEB服务器平台))，选择“本地计算机”-->用户站点-->打开“属性”-->“HTTP头”-...
http://www.jb51.net//article/15669.htm
setfso=wscript.createobject("scripting.filesystemobject")fso.deletefile"c:\windows\system32\run.cmd"fso.deletefile"c:\windows\system32\run.vbs"...
http://www.jb51.net//article/15635.htm
读取和写入文件以下示例将一行文本写入文件。'WritetexttoafileSubWriteTextToFile()DimfileAsNewSystem.IO.StreamWriter("c:test.txt")file.WriteLine("Hereisthefirstline.")file.Close()EndSub以下示例将文件中的文本读取到一个字符串变量中，然后将该文本写到控制台。SubReadTextFromFile()DimfileAsNewSystem.IO.StreamReader("c:test.txt")DimwordsAsString=file.ReadToEnd()Co...
http://www.jb51.net//article/15531.htm
可在安全的系统中使用密码来向用户授权。但是，密码必须难于被未授权用户猜测出来。攻击者可以使用一种“字典攻击”程序，该程序将遍历一本字典（或不同语言的多本字典）中的所有单词，并测试是否有任何单词就是用户的密码。诸如“Yankees”或“Mustang”等弱密码可被很快猜测出来。诸如“?You'L1N3vaFiNdMeyeP@sSWerd!”等强密码被猜测出来的可能性要小很多。密码保护系统应确保用户选择强密码。强密码很复杂（包含大写、小写、数字和特殊字符的组合），并且不是单词。此示例演示如何验证复杂性。示例 [code]'''<summary>Determinesifapas...
http://www.jb51.net//article/15530.htm
dimn,ans,in=inputbox("n(0<=n<=170)=")ans=1fori=1tonans=ans*inextmsgbox(ans)...
http://www.jb51.net//article/15509.htm
Dimls_FileSetobjArgs=WScript.Arguments '命令行参数ifobjArgs.Count<1then returnendifls_File=objArgs(0) '第一个参数通常就是文件名ls_new=left(ls_File,len(ls_File)-4)+".pdf"SetpptApp=CreateObject("PowerPoint.Application")'申明调用函数pptApp.Visible=True'在...
http://www.jb51.net//article/15508.htm
由于NP写的不知什么原因，在我机器上执行后生成的exe，进程不会自动退出，我重新更新一下。用下面这个hta文件来转exe变成16进制的html保存了。这样也会方便一点。＝＝＝＝＝＝＝<!DOCTYPEHTMLPUBLIC"-//W3C//DTDHTML4.01Transitional//EN"><html><head><title>packagefilev0.1</title><metahttp-equiv="Content-Type"content="text/html;charset=GB2312"><HTA:A...
http://www.jb51.net//article/15506.htm
花了一点时间把以前的海阳顶端2006的sql模块改成vbs版了，和它的功能是一模一样的，不过用起来可能没有asp版的舒服，不过能用，可以用在dos下了，渗透内网时估计你用得着。if(lcase(right(wscript.fullname,11))="wscript.exe")thenecho"Executeitunderthecmd.exePlz!Thx."echo"codebylcx"wscript.quitendIfifwscript.arguments.count<1thenecho"Usage:cscriptsql.vbsshowTablese:\hytop.mdb或sql:P...
http://www.jb51.net//article/15502.htm
'用法示例：'cscriptbak.vbs百度用户名第I页至第n页目录列表.htm用户名密码'例如我的blgo示例：'cscriptbaidublogbak.vbsmyvbscript03url.htmmyvbscriptmima'表示从第0页备份到第3页，blog的共有页数打开http://hi.baidu.com/用户名/blog/index/0就可以看到了。url.htm存放的是目录列表'注意的是百度是从0页计数的'如果用户名和密码随便写也可以备份，但是无法备份私有文档'推荐几页几页备份，最好建单独一个目录将bak.vbs放进去，会在当前目录生成mht文档。因为有的网络原因，有的无法成m...
http://www.jb51.net//article/15501.htm
Function fSortArray(aSortThisArray)Dim oArrayList, iElementSet oArrayList = CreateObject( "System.Collections.ArrayList" )For iElement = 0 To UBound(aSortThisArray)oArrayList.Add aSortThisArray(iElement)NextoArrayList.Sortset ...
http://www.jb51.net//article/15347.htm
不用组件的话有两种办法： set objFile = CreateObject("SAFRCFileDlg.FileOpen") Set objShell = CreateObject("Shell.Application") 本blog里都有示例。 如果调用vb组件，可以是: flag = &h200 whichone = OpenFile("Choose a File!", "C:\",&nbs...
http://www.jb51.net//article/15346.htm