VBS读网页的代码_vbs

直接将下面的代码保存为test.vbs双击运行就可，如果不能使用，请看自己的电脑是否vbs被禁用。

复制代码 代码如下:

strURL = InputBox("请输入要读的网址", "朗读网页", "http://www.jb51.net/index.htm")
If strURL = "" Then
Wscript.quit
End If
Set ie = WScript.CreateObject("InternetExplorer.Application")
ie.visible = True
ie.navigate strURL
Do
Wscript.Sleep 200
Loop Until ie.ReadyState = 4
strContent = ie.document.body.innerText
Set objVoice = CreateObject("SAPI.SpVoice")
Set objVoice.Voice = objVoice.GetVoices("Name=Microsoft Simplified Chinese").Item(0)
objVoice.Rate = 5 '速度:-10,10 0
objVoice.Volume = 100 '声音:0,100 100
objVoice.Speak strContent

时间： 2024-11-06 10:01:03

VBS读网页的代码_vbs的相关文章

VBS中常用脚本代码_vbs

将域用户或租添加到本地组 Set objGroup = GetObject("WinNT://./Administrators") Set objUser = GetObject("WinNT://testnet/Engineers") objGroup.Add(objUser.ADsPath) 修改本地管理员密码 Set objcnlar = GetObject("WinNT://./administrator, user") objcnla.

vbs获取当前路径的代码_vbs

CMD当前路径 复制代码 代码如下: test = createobject("Scripting.FileSystemObject").GetFolder(".").PathWscript.echo test 当前VBS路径 复制代码 代码如下: test = createobject("Scripting.FileSystemObject").GetFile(Wscript.ScriptFullName).ParentFolder.PathW

VBS文本文件操作实现代码_vbs

对于文件的操作,例如:生成一个或者打开一个或者删除一个.txt格式文件.虽然官方的FILE插件提供了一些基本功能,但功能不多.你并不需要理解什么是fso模版,什么是vbs语句,直接套用下面的语句吧!红色字为自己定义的部分,蓝色字为任意选一部分 如果你看不懂,请参考下面的例子!操作同一个文件红色部分必须相同 请认真看括号内的解释内容定义一个名为fso的关系文件问题的对象,对于一个文件的操作只需写一次,此句必须写VBS Set fso = CreateObject("Scripting.FileSy

发老兵及海洋VBS解包工具代码_vbs

关于为什么提供打包程序和打包压缩文件.MDB的解压 2006.asp 海阳顶端网asp木马2006版文件   unpack.vbs 打包文件"hytop.mdb"的解开器   2006x.exe 海阳顶端网asp木马2006 c/s模式转换器   2006x2.exe 海阳顶端网asp木马2006 专用短服务器端   c/s模式转换器   2006z.exe 海阳顶端网asp木马2006_lite版本组合器   用来自定义生成相应功能的lite版木马   hididi.ini 2006

vbs 多线程下载实现代码_vbs

话说还是闲来练手,初步实现了自己认为的"多线程"下载.(至于是不是多线程,可以参考12楼链接) 为避免冗余,省了一些错误检查.我觉得没多大实际用途,有兴趣的兄弟一起学习讨论呗.欢迎大家指正: 复制代码 代码如下: 'by wankoilz url=InputBox("输入完整下载地址:") threadCount=InputBox("输入线程数(不超过10吧,太多就累赘了):") fileName=GetFileName(url) filePat

VBS 数字转英文代码_vbs

如何创建名为 SpellNumber 的示例函数 启动 Microsoft Excel. 按 Alt+F11 启动 Visual Basic 编辑器. 在"插入"菜单上,单击"模块". 在模块表中键入下面的代码. 复制代码 代码如下: Option Explicit 'Main Function Function SpellNumber(ByVal MyNumber) Dim Dollars, Cents, Temp Dim DecimalPlace, Count

将WMI中的DateTime类型转换成VBS时间的函数代码_vbs

有两种方法可以转换,一种是自己写个函数解析: 复制代码 代码如下: Function WMIDateStringToDate(DateTime) WMIDateStringToDate = _ CDate(Mid(DateTime, 5, 2) &_ "/" &_ Mid(DateTime, 7, 2) &_ "/" &_ Left(DateTime, 4) &_ " " &_ Mid (DateT

vbs base64 解密脚本代码_vbs

复制代码 代码如下: Function fDecode(sStringToDecode) 'This function will decode a Base64 encoded string and returns the decoded string. 'This becomes usefull when attempting to hide passwords from prying eyes. Const CharList = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcd

获取屏幕分辨率的VBS代码_vbs

我想到的方法有两种. 一种是WMI中的Win32_DesktopMonitor类 复制代码 代码如下: strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_Desktop