语音播报你的公网IP地址

　2012-05-23 16:13:16　来源：WEB开发网　　　

核心提示：'readIp.vbsstrUrl = "http://automation.whatismyip.com/n09230945.asp"If strUrl = "" Then &

'readIp.vbs

strUrl = "http://automation.whatismyip.com/n09230945.asp"
If strUrl = "" Then
    WScript.Quit 
End If 

Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = False 
ie.Navigate strUrl

Do

Loop While ie.ReadyState <> 4

 
strContent = "您的IP是："&ie.Document.body.innerText
ie.Quit

Set voice = CreateObject("SAPI.SpVoice")
voice.Rate = 0
voice.Volume = 100

voice.Speak strContent