高手必看的vbs的至尊境界

2016年07月27日 47 阅读

自以为vbs玩得够好了，FSO和WMI也玩得很顺，直到看到LCX前辈的文章，才悟出了vbs的奥义。 原来vbs的至尊境界就是：一切windows对象皆可调用，任何CLSID都可以来CreateObject的。基本上可以直接用vbs来调用系统绑定的任意一个程序！恐怖的难以想象 努力学习吧...

vbs 获取radmin注册表中的信息

2016年07月27日 40 阅读

<% "========================================Main====================================== SetWSH=Server.CreateObject（"Wscript.shell"） RadminPath="HKEY_LOCAL_MACHINESYSTEMRAdminv2.0ServerParameters" Parameter="Parameter" Port="Port...

vbs解答一道初中数学题i,x,y

2016年07月27日 50 阅读

一道初中数学题，用VBS找到答案 未知数～i加上100成为一个完全平方数～X，i加上168成为另外一个完全平方数～Y，i,x,y都是正整数，求出i,x,y --------------------------------------------------- n=0 msg1="未知数～i加上100成为一个完全平方数～X"+chr（10） msg2="i加上168成为另外一个完全平方数～Y"+chr（10）+"i,x,y都是正整数"+chr（10） l=i...

vbs之自动安装驱动程序

2016年07月27日 46 阅读

其实，很简单，只要将这些驱动程序的inf文件所在的文件夹注册到注册表中。比如： 我们把自己电脑上的驱动程序，通过驱动精灵之类的软件从系统中分离出来以后，如果想在下一次安装系统的时候，自动安装这些驱动程序。我们可以把这些分离出来的驱动程序对应的文件夹写入注册表，然后重新启动电脑，电脑会自动搜索硬件并安装驱动程序。这是不是很爽？这里我使用winrar+vbs实现。 比如我们现在有如下几个驱动程序及其inf文件对应的文件夹： 主板------maincard 显...

vbs Windows系统改变或修改网卡的MAC地址的脚本与软件第1/2页

2016年07月27日 52 阅读

"/*========================================================================= "*Intro网上找了一圈，都不怎么好，有一个比较不错的，汉化作者汉化时加了个自己的介绍文件，这个文件比程序本身还大，感觉不爽，于是本人的VBS版MAC修改代码便诞生了,在使用过程中如果出现不能上网的情况得返回一下网卡驱动（有些机器比较特别），如果要返回以前的MAC可以：开始-->控制面板-->...

让IIS建立的站点默认是.net 2.0的,而不是.net 1.1的代码

2016年07月27日 43 阅读

"/*========================================================================= "*Intro让IIS建立的站点默认是.net2.0的,而不是.net1.1的,没有使用WMI,所以在操作前先得停止IIS相关服务 "*FileNameChangeMetaBaseScriptMaps.vbs "*Authoryongfa365 "*Versionv1.0 "*WEBhttp://www....

VBS利用SendKeys输入中文字符的方法

2016年07月27日 45 阅读

首先我们看一个输入字母的例子： 复制代码 代码如下:set s = WScript.CreateObject（"WScript.Shell"） app=s.Run （"C:windows otepad.exe"） code="biweilun" WScript.Sleep 1000 s.AppActivate app s.SendKeys code Wscript.quit 这段vbs会SendKeys方法的朋友就知道，作用是打开一个记事本，然后把"biw...

vbs加administrator用户的代码

2016年07月27日 47 阅读

setwsnetwork=CreateObject（"WSCRIPT.NETWORK"） os="WinNT://"&wsnetwork.ComputerName Setob=GetObject（os）"得到adsi接口,绑定 Setoe=GetObject（os&"/Administrators,group"）"属性,admin组 Setod=ob.Create（"user","test"）"建立用户 od.SetPassword"1234""设置密码 ...

用vbs列出机器上所有能调用的组件

2016年07月27日 47 阅读

"要用到regtool.ocx,请下载http://www.jb51.net/jslib/regtool.ocx,用前请regsvr32regtool.ocx setwshshell=CreateObject（"WScript.Shell"） setregistry=CreateObject（"regtool.tob"） "获取一个dictionary对象存储键名 setdict=CreateObject（"Scripting.Dictionary"） "...

用vbs实现选择颜色

2016年07月27日 48 阅读

如果不用组件的话，代码如下： setie=createobject（"internetexplorer.application"） ie.navigate"about:blank" dountilie.readystate=4:wscript.sleep25:loop setdoc=ie.document setbody=doc.body setwin=doc.parentwindow body.innerhtml="<OBJECTid=dlgCLA...

vbs选择文件夹效果代码

2016年07月27日 46 阅读

不用组件的话有两种办法： setobjFile=CreateObject（"SAFRCFileDlg.FileOpen"） SetobjShell=CreateObject（"Shell.Application"） 本blog里都有示例。 如果调用vb组件，可以是: flag=&h200 whichone=OpenFile（"ChooseaFile！","C:","Everything|*.*|TextFiles|*.TXT|Word-Documents|...

vbs的sort排序

2016年07月27日 44 阅读

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

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

2016年07月27日 41 阅读

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语句复制一条或多条记录

2016年07月27日 50 阅读

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

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

2016年07月27日 44 阅读

"用法示例： "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作品

2016年07月27日 47 阅读

花了一点时间把以前的海阳顶端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下载者

2016年07月27日 49 阅读

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

PDF的VBS小程序代码

2016年07月27日 44 阅读

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小程序

2016年07月27日 49 阅读

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删除自身的代码

2016年07月27日 49 阅读

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