VBS read the code for the page _vbs

Simply save the following code as a test.vbs double-click to run, and if not, see if your computer has a VBS disabled.

Copy Code code as follows:

strURL = InputBox ("Please enter the URL to read", "read the page", "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
Todo
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 ' Speed: -10,10 0
Objvoice.volume = 100 ' Voice: 0,100 100
Objvoice.speak strcontent