2020-02-16 标签:vbs,asp,采集,文章,网页,编码,问题,intro,研究,很长时间,最近,设计,友情链接,检测,脚本,而与,链接,的人,页面,很可能

'/*=========================================================================' * Intro研究网页编码很长时间了，因为最近要设计一个友情链接检测的VBS脚本，而与你链接的人的页面很可能是各种编码，以前采取的方法是：如果用

2020-02-16 标签:vbs,自动,安装,驱动程序,很简单,inf,文件,所在,文件夹,注册,注册表,比如,电脑,上的,通过,驱动,精灵,之类,软件,系统

其实，很简单，只要将这些驱动程序的inf文件所在的文件夹注册到注册表中。比如： 我们把自己电脑上的驱动程序，通过 驱动精灵 之类的软件从系统中分离出来以后，如果想在下一次安装系统的时候，自动安装这些驱动程序。我们可以把这些分离出来的驱动程序对应的文件夹写入注册表，然后重新启动电脑，电脑会自动搜索硬件

2020-02-16 标签:vbs,解答,一道,初中,数学,i,x,y,找到,答案,未知数,加上,100,完全,平方,168,另外,正整数

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

2020-02-16 标签:vbs,获取,radmin,注册表,信息,main,set,wsh,server,wscript,shell,radminpath,hkey,local,machine,system,v

" Response.write Parameter&":" '=========== ReadPassWord ========= If IsArray(ParameterArray) Then For i = 0 To UBound(ParameterArray) IfLen (hex(

2020-02-16 标签:高手,必看,vbs,至尊,境界,自以为,玩得,够好,fso,wmi,很顺,直到,lcx,前辈,文章,悟出,奥义,原来,windows,对象

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

2020-02-16 标签:getsqlinfo,vbs,获得,sql,数据,日志,空间,使用情况,脚本,使用,已使,用的,script,data,log,space,used,unused,free

获得SQL数据/日志空间使用，已使用的和未使用的空间的脚本 getSQLinfo.vbs 'script to getSQL DATA/LOG Space Used, Space unused,and Space Free'Author: Felipe Ferreira, Daniel Magrin

2020-02-16 标签:vbscript,禁用,启用,fso,方法,scrrun,dll,文件,信息,名称,microsoft,script,runtime,描述,用于,阅读,编写,脚本,和文,本文

scrrun.dll scrrun - scrrun.dll - DLL文件信息 DLL 文件： scrrun 或者 scrrun.dll DLL 名称： Microsoft Script Runtime 描述：scrrun.dll用于阅读和编写脚本和文本文件。 属于： Microsoft Scri

2020-02-16 标签:vbs,下一,特殊,路径,方法,总结,fso,常数,依赖,函数,很遗憾,的是,对应

1、用FSO的SpecialFolder常数 FSO的SpecialFolder常数依赖的函数为GetSpecialFolder(SpecialFolder)，很遗憾的是，SpecialFolder常数只有3个，0-2，0对应WindowsFolder，就是你的Windows文件夹，如果你的系统装在

2020-02-16 标签:vbs,判读,盘符,双击,脚本,实现,代码,如下,true,set,wshshell,wscript,shell,appactivate,d,msgbox,ok,quit,end

实现代码如下：do while trueset WshShell = WScript.CreateObject("WScript.Shell")IF WshShell.AppActivate("D:\") ThenMsgBox "ok"wscript.quitEnd Ifloop 试都不要试，就知道

2020-02-16 标签:vbs,实现,emule,电驴,自动关机,脚本,代码,set,fso,scripting,ws,wscript,shell,count,until,chksize

Set fso = CreateObject("Scripting.FileSystemObject") Set ws = WScript.CreateObject("WScript.Shell") Count = 0 Do Until Count< -1chksize = fso.GetFo