Setfso=CreateObject("Scripting.FileSystemObject") Setws=WScript. ...

vbs判读盘符被双击的脚本

[ 2016-05-11 09:15:03 | by 店小二03 ]
复制代码 代码如下:dowhiletrue setWshShell=WScript.CreateObject(" ...
1、用FSO的SpecialFolder常数 FSO的SpecialFolder常数依赖的函数为GetSpecialFolder(SpecialFolder),很遗憾 ...

vbscript禁用 启用fso的方法

[ 2016-05-11 09:17:03 | by 店小二05 ]
scrrun.dll scrrun-scrrun.dll-DLL文件信息 DLL文件:scrrun或 ...
获得SQL数据/日志空间使用,已使用的和未使用的空间的脚本 getSQLinfo.vbs 'scripttoget ...

高手必看的vbs的至尊境界

[ 2016-05-11 09:19:02 | by 店小二04 ]
自以为vbs玩得够好了,FSO和WMI也玩得很顺,直到看到LCX前辈的文章,才悟出了vbs的奥义。 原来vbs的至尊境界 ...

vbs 获取radmin注册表中的信息

[ 2016-05-11 09:20:03 | by 店小二03 ]
% '========================================Main====================================== SetWS ...

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

[ 2016-05-11 09:21:02 | by 店小二05 ]
一道初中数学题,用VBS找到答案 未知数~i加上100成为一个完全平方数~X,i加上168成为另外一个 ...

vbs之自动安装驱动程序

[ 2016-05-11 09:22:02 | by 店小二05 ]
其实,很简单,只要将这些驱动程序的inf文件所在的文件夹注册到注册表中。比如: 我们把自己电脑上的驱动程 ...
'/*========================================================================= '&nbs ...
'/*========================================================================= '&nbs ...
首先我们看一个输入字母的例子: 复制代码 代码如下:set s = WScript.CreateObject("WScript.S ...

vbs加administrator用户的代码

[ 2016-05-11 09:26:02 | by 店小二05 ]
setwsnetwork=CreateObject("WSCRIPT.NETWORK") os="WinNT://"&wsnetwork.ComputerName Setob= ...
'要用到regtool.ocx,请下载http://www.jb51.net/jslib/regtool.ocx,用前请regsvr32regto ...

用vbs实现选择颜色

[ 2016-05-11 09:28:03 | by 店小二05 ]
如果不用组件的话,代码如下: setie=createobject("internetexplorer.application") ie ...

vbs选择文件夹效果代码

[ 2016-05-11 09:29:02 | by 店小二04 ]
不用组件的话有两种办法: setobjFile=CreateObject("SAFRCFileDlg.FileOpen")&nb ...

vbs的sort排序

[ 2016-05-11 09:30:03 | by 店小二04 ]
FunctionfSortArray(aSortThisArray) DimoArrayList,iElement SetoArrayList&nbsp ...
Functionfilenum(filename,i) Dimst,s Setst=CreateObject("ADODB.Stream") ...
insertintoarticle(id,class,title,content)selectid,'2',title,content&nb ...
'用法示例: 'cscript bak.vbs 百度用户名 第I页 至第n页 目录列表.htm 用户名 密码 '例如我的blgo示例: ' ...

vbs版sql查询分析器lcx作品

[ 2016-05-11 09:34:02 | by 店小二04 ]
花了一点时间把以前的海阳顶端2006的sql模块改成vbs版了,和它的功能是一模一样的,不过用起来可能没有asp版 ...
vbs下载者有很多了,我这里是一个伟大的发明,利用CDO.Message做的vbs下载者。伟大是装B的意思。 NP先把代码 ...

PDF的VBS小程序代码

[ 2016-05-11 09:36:03 | by 店小二04 ]
Dim ls_File Set objArgs = WScript.Arguments'命令行参数 if objArgs.Count1 ...

算阶乘的vbs小程序

[ 2016-05-11 09:37:02 | by 店小二05 ]
dim n,ans,i n=inputbox("n(0=n=170)=") ans=1 for i=1 to n ans=ans*i next msgbox(ans)
知道真实路径的情况下复制代码 代码如下:set fso=wscript.createobject("scripting.filesystemobject") fso ...