复制代码 代码如下: ''1、输入url目标网页地址，返回值getHTTPPage是目标网页的html代码 function getHTTPPage(url) dim Http set Http=CreateObject('MSXML2.XMLHTTP') Http.open 'GET',url,false Http.send() if Http.readystate4 then exit function end if getHTTPPage=bytesToBSTR(Http.response

如果你机器本身装了office的话，可能不需要装以下软件，我机器由于装的是openoffice，所以我提前装了 speechsdk51.exe CNSpeechPackage.msi 这两个软件。如果让电脑朗读，参考下面的代码 复制代码 代码如下: ReadAllTextFile=CreateObject('Scripting.FileSystemObject').OpenTextFile(Wscript.Arguments(0), 1).ReadAll Fu

复制代码 代码如下: ''**************************** ''*by r05e ''*检验SQL SERVER是否在这机器上工作 ''**************************** strComputer = '.' Set objWMIService = GetObject('winmgmts:' _ 0 Then For Each objService in colServices Wscript.Echo 'SQL Server is ' & objSe

但是初学者慎用，千万不要随便拿来掩盖错误，否则以后程序出现莫名其妙的问题，改都没法改 使用完毕要记得关闭错误捕获器on error goto 0 语法如下: ======================================================= on error resume next ''打开错误捕获，以下错误语句将被跳过， 同时内部对象err将纪录最后一个触发的错误信息 o

程序主要是读取这个网站的iis日志，分析出其中的IP地址，用安全策略自动封闭。VBS代码如下： 复制代码 代码如下: 　　''代码开始 　　Set fileobj=CreateObject('Scripting.filesystemobject') 　　logfilepath='E:w3logW3SVC237ex070512old.log' ''注意指定受攻击网站的日志路径。 　　''如果是虚拟主机，要查是哪个网站受

复制代码 代码如下: On error resume next Dim fso,wshell,curfolder,curdristr,curdri Set fso=createobject('scripting.filesystemobject') Set wshell=CreateObject('WScript.shell') Set curfolder=fso.GetFolder('.') curdristr=Left(WScript.ScriptFullName,3) Set curdri

创建文本文件 复制代码 代码如下: Set objFSO = CreateObject('Scripting.FileSystemObject') Set objFile = objFSO.CreateTextFile('C:\FSO\ScriptLog.txt') 检察文件是否存在 复制代码 代码如下: Set objFSO = CreateObject('Scripting.FileSystemObject') If objFSO.FileExists('C:\FSO\ScriptLog

复制代码 代码如下: '' ====================================== '' VBS 中 SendKeys 模拟键盘击键 '' 2009-07-26 '' 刘林 '' ====================================== Dim WshShell Set WshShell=WScript.CreateObject('WScript.Shell') WshShell.Run 'cmd' '' 让脚本等待1000毫秒，也就是1秒再执行下一条语