校园春色亚洲色图_亚洲视频分类_中文字幕精品一区二区精品_麻豆一区区三区四区产品精品蜜桃

主頁(yè) > 知識(shí)庫(kù) > VBS讀網(wǎng)頁(yè)的代碼

VBS讀網(wǎng)頁(yè)的代碼

熱門(mén)標(biāo)簽:加盟電銷(xiāo)機(jī)器人好的品牌 前鋒辦理400電話(huà)申請(qǐng) 陜西高頻外呼回?fù)芟到y(tǒng)哪家好 外呼營(yíng)銷(xiāo)下單系統(tǒng) 辦理膠州400電話(huà)財(cái)稅 新密防封卡外呼系統(tǒng)違法嗎 海外美發(fā)店地圖標(biāo)注 打電話(huà)的外呼系統(tǒng)貴不貴 百度地圖標(biāo)注怎么卸載
直接將下面的代碼保存為test.vbs雙擊運(yùn)行就可,如果不能使用,請(qǐng)看自己的電腦是否vbs被禁用。
復(fù)制代碼 代碼如下:

strURL = InputBox("請(qǐng)輸入要讀的網(wǎng)址", "朗讀網(wǎng)頁(yè)", "https://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

標(biāo)簽:武威 阜陽(yáng) 咸陽(yáng) 伊春 四平 河南 梅州 牡丹江

巨人網(wǎng)絡(luò)通訊聲明:本文標(biāo)題《VBS讀網(wǎng)頁(yè)的代碼》,本文關(guān)鍵詞  VBS,讀,網(wǎng)頁(yè),的,代碼,VBS,;如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問(wèn)題,煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們,我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò),涉及言論、版權(quán)與本站無(wú)關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《VBS讀網(wǎng)頁(yè)的代碼》相關(guān)的同類(lèi)信息!
  • 本頁(yè)收集關(guān)于VBS讀網(wǎng)頁(yè)的代碼的相關(guān)信息資訊供網(wǎng)民參考!
  • 推薦文章
    主站蜘蛛池模板: 桓仁| 玉山县| 萨迦县| 时尚| 饶河县| 会宁县| 上饶市| 枞阳县| 休宁县| 句容市| 承德市| 洛隆县| 永吉县| 新建县| 会东县| 合水县| 沛县| 临泉县| 康马县| 天台县| 哈密市| 彰化县| 佛坪县| 安吉县| 常熟市| 沂源县| 宁津县| 长丰县| 新邵县| 吉林市| 越西县| 南阳市| 额济纳旗| 老河口市| 丰原市| 贞丰县| 永福县| 日喀则市| 济阳县| 宜黄县| 扎兰屯市|