兒童睡前故事電腦版v1.1在線免費聽

兒童睡前故事電腦版是一款熱門的生活工具軟件，功能齊全，操作簡單流暢，具備良好的用戶體驗。本站提供兒童睡前故事精選電腦版下載。寶寶的專屬睡前故事，享受屬於您的親子時光。

【使用說明】

軟件用的是微軟自帶的語音包，在軟件壓縮包當中附帶得有。
在網上查閱過，都說XP以後都已經支持了，但是不知道你們用的係統是否被刪除過相關的語音包，所以附帶了微軟的。

如何確定自己是否已經安裝過語音包？

暫停鍵旁邊有一個下拉框，如果下拉框是空的，那麼就說明你沒有安裝過，需要安裝後才能顯示，同時軟件也會檢測並提醒！

由於之前發表一次說我沒有相關原創的信息，這次補上！下麵是開發截圖和版權截圖，如果還不夠，那麼我隻剩下開源這樣才行了！反正這個軟件也不是什麼很難寫的東西，開源也行！如果大家喜歡的話！

【近期更新】 

除夕 狼和小羊 農夫與蛇 狐狸和烏鴉 守株待兔 狐假虎威 七色花 小紅帽 青蛙王子 冰雪女王 快樂王子 糖果屋 賣火柴的小女孩 長發姑娘 堅定的錫兵 愚公移山 小貓釣魚 端午節 重陽節的傳說 牛郎織女鐵杵磨針 狼來了 小貓釣魚 龜兔賽跑 三隻小豬 嫦娥奔月 開天辟地 吳剛伐木 

【開發截圖】

備注：如果大家有更好的想法或語音API，請私信我！或者回帖交流！最後我也不知道過不過審核，幹脆直接把源代碼貼出來吧！

.版本 2

.支持庫 RegEx

.支持庫 ESpeechEngine

.支持庫 internet

.支持庫 iext

.程序集 窗口程序集_啟動窗口

.程序集變量 Json, 類_json

.程序集變量 zz, 正則表達式

.程序集變量 搜索, 搜索結果, , "0"

.程序集變量 jd, 機讀文本

.程序集變量 d, 文本型, , "0"

.程序集變量 zt, 標簽

.子程序 __啟動窗口_創建完畢

頁數 ＝ “1”

讀取數據 (頁數)

初始化朗誦 ()

置托盤圖標 (#圖標, “睡前故事”)

.子程序 讀取數據

.參數 頁數, 文本型

.局部變量 返回數據, 文本型

.局部變量 臨時變量, 文本型

臨時變量 ＝ 子文本替換 (#POST數據, “【頁數】”, 頁數, , , 真)

返回數據 ＝ 到文本 (HTTP讀文件 (臨時變量))

返回數據 ＝ 子文本替換 (返回數據, “\/”, “/”, , , 真)

處理數據 (返回數據)

.子程序 下一頁

.參數 傳遞頁數, 文本型

頁數 ＝ 到文本 (到整數 (傳遞頁數) ＋ 10)

.子程序 處理數據

.參數 傳輸數據, 文本型

.局部變量 title, 文本型, , "0"

.局部變量 img, 文本型, , "0"

.局部變量 url, 文本型, , "0"

.局部變量 description, 文本型, , "0"

.局部變量 i, 整數型

.局部變量 索引, 整數型

Json.解析 (傳輸數據)

.計次循環首 (Json.成員數 (), i)

    加入成員 (title, Json.取通用屬性 (“[” ＋ 到文本 (i － 1) ＋ “].title”))

    加入成員 (img, Json.取通用屬性 (“[” ＋ 到文本 (i － 1) ＋ “].img”))

    加入成員 (url, Json.取通用屬性 (“[” ＋ 到文本 (i － 1) ＋ “].url”))

    加入成員 (description, Json.取通用屬性 (“[” ＋ 到文本 (i － 1) ＋ “].description”))

    索引 ＝ 超級列表框1.插入表項 (, , , , , )

    超級列表框1.置標題 (索引, 0, 到文本 (索引 ＋ 1))

    超級列表框1.置標題 (索引, 1, title [i])

    超級列表框1.置標題 (索引, 2, description [i])

    超級列表框1.置標題 (索引, 3, img [i])

    超級列表框1.置標題 (索引, 4, url [i])

.計次循環尾 ()

.子程序 _超級列表框1_被雙擊, 邏輯型

.參數 橫向位置, 整數型

.參數 縱向位置, 整數型

.參數 功能鍵狀態, 整數型

.如果 (超級列表框1.現行選中項 ≠ -1)

    標簽2.標題 ＝ “《” ＋ 超級列表框1.取標題 (超級列表框1.現行選中項, 1) ＋ “》”

    標簽4.標題 ＝ “    ” ＋ 超級列表框1.取標題 (超級列表框1.現行選中項, 2)

    圖片框1.圖片 ＝ HTTP讀文件 (超級列表框1.取標題 (超級列表框1.現行選中項, 3))

    獲取故事 (超級列表框1.取標題 (超級列表框1.現行選中項, 4))

.否則

    信息框 (“無法獲取數據”, 0, “請檢查網絡通信是否正常？”, )

.如果結束

.子程序 獲取故事

.參數 url, 文本型

.局部變量 臨時數據, 文本型

.局部變量 i, 整數型

臨時數據 ＝ 編碼_utf8到gb2312 (到文本 (HTTP讀文件 (url)))

zz.創建 (#正則方法, )

搜索 ＝ zz.搜索全部 (臨時數據)

.判斷開始 (取數組成員數 (搜索) ＞ 0)

    編輯框1.內容 ＝ 網頁_取文本_dom (搜索 [1].取匹配文本 (臨時數據, ))

.默認

.判斷結束

.子程序 _滑塊條2_位置被改變

滑塊條2.選擇長度 ＝ 滑塊條2.位置

標簽3.標題 ＝ “音量：” ＋ 到文本 (滑塊條2.位置)

jd.設置聲音大小 (滑塊條2.位置)

.子程序 _滑塊條1_位置被改變

標簽1.標題 ＝ “語速：” ＋ 到文本 (滑塊條1.位置)

jd.設置語速 (滑塊條1.位置)

.子程序 _超級列表框1_右鍵單擊表項

彈出菜單 (功能, , )

.子程序 _獲取新數據_被選擇

下一頁 (頁數)

讀取數據 (頁數)

.子程序 初始化朗誦

.局部變量 i, 整數型

d ＝ jd.列舉語音庫 ()

.如果 (取數組成員數 (d) ＞ 0)

    組合框1.刷新顯示 ()

    .計次循環首 (取數組成員數 (d), i)

        組合框1.插入項目 (i － 1, d [i], )

    .計次循環尾 ()

    組合框1.現行選中項 ＝ 0

    jd.設置語音庫 (組合框1.被選擇文本)

    jd.設置語速 (滑塊條1.位置)

    jd.設置聲音大小 (滑塊條2.位置)

.否則

    信息框 (“請先安裝壓縮包中的語言包”, 0, “語言包未安裝”, )

.如果結束

.子程序 _按鈕2_被單擊

.如果 (按鈕2.標題 ＝ “朗誦”)

    按鈕2.標題 ＝ “關閉”

    .如果真 (編輯框1.內容 ≠ “”)

        jd.文本到語音 (0, 編輯框1.內容, , )

    .如果真結束

.否則

    按鈕2.標題 ＝ “朗誦”

    jd.停止發音 ()

.如果結束

.子程序 _按鈕3_被單擊

.如果 (按鈕3.標題 ＝ “暫停”)

    按鈕3.標題 ＝ “恢複”

    jd.暫停發音 ()

.否則

    按鈕3.標題 ＝ “暫停”

    jd.恢複發音 ()

.如果結束

.子程序 _超級列表框1_按下某鍵, 邏輯型

.參數 鍵代碼, 整數型

.參數 功能鍵狀態, 整數型

.如果真 (鍵代碼 ＝ #F5鍵)

    _獲取新數據_被選擇 ()

.如果真結束

.子程序 _版權所有_被選擇

信息框 (“軟件免費試用 版權所有 Mr.Liu ” ＋ #換行符 ＋ #換行符 ＋ “52破解 作者：djlyr”, 0, “版權信息”, )

.子程序 __啟動窗口_托盤事件

.參數 操作類型, 整數型

.如果真 (操作類型 ＝ #單擊右鍵)

    彈出菜單 (版權, , )

.如果真結束

.版本 2

.全局變量 頁數, 文本型

.版本 2

.常量 POST數據, "<文本長度: 94>"

具體內容：https://dynamic.qbaobei.com/dynamic.php?s=/qbaobeimobile/cate_position/cate/1414/star/【頁數】

.常量 正則方法, "<文本長度: 36>"

具體內容：<p class="introTit">([\s\S]*?)</div>