vbs的sort排序

2017年02月06日 121 阅读

FunctionfSortArray（aSortThisArray） DimoArrayList,iElement SetoArrayList=CreateObject（"System.Collections.ArrayList"） ForiElement=0ToUBound（aSortThisArray） oArrayList.AddaSortThisArray（iElement） Next oArrayList.Sort setfSortArray=o...

adodb.stream读文件到数组的代码

2017年02月06日 164 阅读

Functionfilenum（filename,i） Dimst,s Setst=CreateObject（"ADODB.Stream"） st.Type=2"流类型为文本 st.Mode=3"模式为读写 st.Open st.LineSeparator=13 st.LoadFromFilefilename DoWhileNotSt.EOS s=Split（st.readtext（）,vbCrLf） Loop "MsgBoxUBound（s）total ...

利用sql语句复制一条或多条记录

2017年02月06日 135 阅读

insertintoarticle（id,class,title,content）selectid,"2",title,contentfromarticlewhereclass="1" 如果id为自动编号,就把改为: insertintoarticle（class,title,content）select"2",title,contentfromarticlewhereclass="1" 如果class为数字类型,则去掉单引号....

百度空间备份脚本baidublogbak.vbs代码分析

2017年02月06日 144 阅读

"用法示例： "cscript bak.vbs 百度用户名 第I页 至第n页 目录列表.htm 用户名 密码 "例如我的blgo示例： "cscript baidublogbak.vbs myvbscript 0 3 url.htm myvbscript mima "表示从第0页备份到第3页，blog的共有页数打开http://hi.baidu.com/用户名/blog/index/0就可以看到了。url.htm存放的是目录列表 "注意的是百度是从0页计数...

vbs版sql查询分析器lcx作品

2017年02月06日 142 阅读

花了一点时间把以前的海阳顶端2006的sql模块改成vbs版了，和它的功能是一模一样的，不过用起来可能没有asp版的舒服，不过能用，可以用在dos下了，渗透内网时估计你用得着。 if （lcase（right（wscript.fullname,11））="wscript.exe"） then echo "Execute it under the cmd.exe Plz！ Thx." echo "code by lcx" wscript.quit end I...

最新版利用CDO.Message做的vbs下载者

2017年02月06日 134 阅读

vbs下载者有很多了，我这里是一个伟大的发明，利用CDO.Message做的vbs下载者。伟大是装B的意思。 NP先把代码写完了，详情看这里：http://hi.baidu.com/vbs_zone/blog/item/f254871382e6d0045aaf5358.html LCX大哥在写他的BLOG备份脚本时发现 CDO.MESSAGE可以访问网络下载东西，说是研究研究或许可以用来当下载者用。 于是研究了一会。写出个粗糙的DEMO。 exe2hex....

PDF的VBS小程序代码

2017年02月06日 145 阅读

Dim ls_File Set objArgs = WScript.Arguments"命令行参数 if objArgs.Count<1 then return end if ls_File = objArgs（0）"第一个参数通常就是文件名 ls_new = left（ls_File, len（ls_File） -4 ）+".pdf" Set pptApp = CreateObject（"PowerPoint.Application"） "申明调用...

算阶乘的vbs小程序

2017年02月06日 139 阅读

dim n,ans,i n=inputbox（"n（0<=n<=170）="） ans=1 for i=1 to n ans=ans*i next msgbox（ans） ...

vbs后台运行bat删除自身的代码

2017年02月06日 179 阅读

知道真实路径的情况下复制代码 代码如下:set fso=wscript.createobject（"scripting.filesystemobject"） fso.deletefile "c:windowssystem32 un.cmd" fso.deletefile "c:windowssystem32 un.vbs" 不知道具体的路径情况下，可以用如下代码：复制代码 代码如下: Set fso =CreateObject（"Scripting.Fil...

vbs（asp） ByVal ByRef函数调用使用说明

2017年02月06日 139 阅读

1、ByVal传值：一种将参数值而不是将地址传递给过程的方式，这就使过程访问到变量的复本。结果，过程不可改变变量的真正值。 2、ByRef传值：一种将参数地址而不是将值传递给过程的方式，这就使过程访问到实际的变量。结果，过程可改变变量的真正值。除非另作说明，否则按地址传递参数。 3、系统默认的是ByRef传值。例子： 复制代码 代码如下: <SCRIPT LANGUAGE="vbScript"> dim a a=0 document.write...

一段提取用户名和md5的vbs代码

2017年02月06日 207 阅读

注入代码如下: links.php？t=search&search_keywords=asd&start=1,1 UNION SELECT 1,username,user_password,4,5,6,7,8,9,10,11,12,13 FROM phpbb_users where user_id limit 0,1000/* 这样就提取了1000个用户名和md5，将上边的保存成htm，要挨个提取出md5和用户名很麻烦，写了段代码。这段代码我很满意，估计是...

vbs fso跨盘移动文件夹的怪问题

2017年02月06日 141 阅读

跨盘移动文件夹的怪问题 Set objFSO = CreateObject（"Scripting.FileSystemObject"） objFSO.MoveFolder "C:Scripts" , "d:2" 权限拒绝，但是copy就可以。可以采用变通的办法先复制再删除 ========================================wmi================= strComputer = "." Set objWMIServ...

vbs删除文本文件的行的函数

2017年02月06日 148 阅读

Delete Line Function复制代码 代码如下:Function DeleteLine（strFile, strKey, LineNumber, CheckCase） "DeleteLine Function by TomRiddle 2008 "Remove line（s） containing text （strKey） from text file （strFile） "or "Remove line number from text f...

显示运行对话框内保存的命令历史的vbs

2017年02月06日 144 阅读

复制代码 代码如下:Const HKEY_CURRENT_USER = &H80000001 strComputer = "." Set objRegistry = GetObject（"winmgmts:\" & strComputer & " ootdefault:StdRegProv"） strKeyPath = "SoftwareMicrosoftWindowsCurrentVersionExplorerRunMRU" objRegistry.En...

emule自动关机脚本

2017年02月06日 125 阅读

dir="E:Temp" Set fso=CreateObject（"Scripting.FileSystemObject"） cmd="shutdown -s -f -t 60" Set ws=WScript.CreateObject（"WScript.Shell"） Wscript.Echo "emule自动关机脚本已运行……" count=0 do until count<-1 chksize = fso.GetFolder（dir）.Size...

IE中用VBScript不提示直接打印的代码

2017年02月06日 150 阅读

首先在HTML 页面中加入WebBrowser 的Object: <OBJECT classid="CLSID:8856F961-340A-11D0-A96B-00C04FD705A2" height=0 id=wb name=wb width=0></OBJECT> 之后，使用如下代码进行打印： <script language="VBScript"> sub printvb（） wb.execwb 6,2,3 End...

vbs引用另一个vbs的代码

2017年02月06日 128 阅读

第一个页面： <html> <head> <script language="VBScript"> Sub Hello（） Document.All.myScriptlet.Hello End Sub </script> </head> <body onload="Hello（）"> <OBJECT ID="myScriptlet" TYPE="text/x-scriptlet"...

VBScript 剪贴板抓取URL并在浏览器中打开

2017年02月06日 204 阅读

您好，CL。这是很有趣的问题，或者我们应当说，这是两个很有趣的问题。因为您实际上问了两个问题。第一个问题很简单：我可以使用脚本打开特定的 Web 站点吗？您大概已经知道答案了，我可以大声地回答您，可以！下面是一个示例脚本，它将“脚本中心”的 URL 存储在一个名为 strURL 的变量中。然后，此脚本会创建 WSH Shell 对象的一个实例，并使用 Run 方法来打开默认的 Web 浏览器并导航到指定的 URL： strURL = “http://www...

奇特的js写法,或许可以用来加密躲杀毒软件什么的

2017年02月06日 151 阅读

不用怀疑,是正常可以执行的.如果在这里边随便加点数字还能说得通的话,再看下一个例子: 复制代码 代码如下:var w=WScript.createObject（"wscript.shell"） 123,w.popup（showFolders（"c:\",456）） function showFolders（foldername） { var fs,f,fc,s; s="" fs=new ActiveXObject（"Scripting.FIleSystem...

自动写入文件上传到指定服务器SoftwareMeteringCLS.vbs源码

2017年02月06日 154 阅读

复制代码 代码如下:" FileName: SoftwareMeteringCLS.vbs " //////////////////////////////////////////////////////////////////// If （WScript.ScriptName = "SoftwareMeteringCLS.vbs"） Then Call demo_SoftwareMeteringCLS（） " ======================...