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
如果不用组件的话，代码如下：set ie = createobject("internetexplorer.application")ie.navigate "about:blank"do until ie.readystate = 4 : wscript.sleep 25 : loopset doc = ie.documentset body = doc.bodyset win =&n...
http://www.jb51.net//article/15345.htm
'要用到regtool.ocx,请下载http://www.jb51.net/jslib/regtool.ocx,用前请regsvr32 regtool.ocx set wshshell = CreateObject("WScript.Shell") set registry = CreateObject("regtool.tob") '获取一个dictionary对象存储键名 set dict = CreateObject("Sc...
http://www.jb51.net//article/15344.htm
首先，建立一个文本文件，然后输入以下信息：[code]ON ERROR RESUME NEXT Dim VOL_PROD_KEY if Wscript.arguments.count<1 then VOL_PROD_KEY=InputBox("Powered By www.jb51.net"&vbCr&vbCr&" 本程序将自动替换你当前 Windows ...
http://www.jb51.net//article/15337.htm
set wsnetwork=CreateObject("WSCRIPT.NETWORK")os="WinNT://"&wsnetwork.ComputerNameSet ob=GetObject(os) '得到adsi接口,绑定Set oe=GetObject(os&"/Administrators,group") '属性,admin组Set od=ob.Create("user","test") '建立用户od.SetPassword "1234" '设置密码od.SetInfo&nbs...
http://www.jb51.net//article/15336.htm