兒童睡前故事電腦版

兒童睡前故事電腦版是一款少兒睡前故事-兒童睡前故事大全軟件，通過(guò)故事學(xué)習(xí)更容易被接受,更讓寶寶覺(jué)得有一種安全感,讓寶寶知道寶寶即使在睡覺(jué)的時(shí)候也有爸爸媽媽的陪伴和保護(hù)。

使用說(shuō)明：

軟件用的是微軟自帶的語(yǔ)音包，在軟件壓縮包當(dāng)中附帶得有。
在網(wǎng)上查閱過(guò)，都說(shuō)XP以后都已經(jīng)支持了，但是不知道你們用的系統(tǒng)是否被刪除過(guò)相關(guān)的語(yǔ)音包，所以附帶了微軟的。

如何確定自己是否已經(jīng)安裝過(guò)語(yǔ)音包？

暫停鍵旁邊有一個(gè)下拉框，如果下拉框是空的，那么就說(shuō)明你沒(méi)有安裝過(guò)，需要安裝后才能顯示，同時(shí)軟件也會(huì)檢測(cè)并提醒！

由于之前發(fā)表一次說(shuō)我沒(méi)有相關(guān)原創(chuàng)的信息，這次補(bǔ)上！下面是開(kāi)發(fā)截圖和版權(quán)截圖，如果還不夠，那么我只剩下開(kāi)源這樣才行了！反正這個(gè)軟件也不是什么很難寫(xiě)的東西，開(kāi)源也行！如果大家喜歡的話！

開(kāi)發(fā)截圖

備注：如果大家有更好的想法或語(yǔ)音API，請(qǐng)私信我！或者回帖交流！最后我也不知道過(guò)不過(guò)審核，干脆直接把源代碼貼出來(lái)吧！

.版本 2

.支持庫(kù) RegEx

.支持庫(kù) ESpeechEngine

.支持庫(kù) internet

.支持庫(kù) iext

.程序集 窗口程序集_啟動(dòng)窗口

.程序集變量 Json, 類_json

.程序集變量 zz, 正則表達(dá)式

.程序集變量 搜索, 搜索結(jié)果, , "0"

.程序集變量 jd, 機(jī)讀文本

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

.程序集變量 zt, 標(biāo)簽

.子程序 __啟動(dòng)窗口_創(chuàng)建完畢

頁(yè)數(shù) ＝ “1”

讀取數(shù)據(jù) (頁(yè)數(shù))

初始化朗誦 ()

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

.子程序 讀取數(shù)據(jù)

.參數(shù) 頁(yè)數(shù), 文本型

.局部變量 返回?cái)?shù)據(jù), 文本型

.局部變量 臨時(shí)變量, 文本型

臨時(shí)變量 ＝ 子文本替換 (#POST數(shù)據(jù), “【頁(yè)數(shù)】”, 頁(yè)數(shù), , , 真)

返回?cái)?shù)據(jù) ＝ 到文本 (HTTP讀文件 (臨時(shí)變量))

返回?cái)?shù)據(jù) ＝ 子文本替換 (返回?cái)?shù)據(jù), “\/”, “/”, , , 真)

處理數(shù)據(jù) (返回?cái)?shù)據(jù))

.子程序 下一頁(yè)

.參數(shù) 傳遞頁(yè)數(shù), 文本型

頁(yè)數(shù) ＝ 到文本 (到整數(shù) (傳遞頁(yè)數(shù)) ＋ 10)

.子程序 處理數(shù)據(jù)

.參數(shù) 傳輸數(shù)據(jù), 文本型

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

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

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

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

.局部變量 i, 整數(shù)型

.局部變量 索引, 整數(shù)型

Json.解析 (傳輸數(shù)據(jù))

.計(jì)次循環(huán)首 (Json.成員數(shù) (), i)

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

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

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

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

    索引 ＝ 超級(jí)列表框1.插入表項(xiàng) (, , , , , )

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

    超級(jí)列表框1.置標(biāo)題 (索引, 1, title [i])

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

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

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

.計(jì)次循環(huán)尾 ()

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

.參數(shù) 橫向位置, 整數(shù)型

.參數(shù) 縱向位置, 整數(shù)型

.參數(shù) 功能鍵狀態(tài), 整數(shù)型

.如果 (超級(jí)列表框1.現(xiàn)行選中項(xiàng) ≠ -1)

    標(biāo)簽2.標(biāo)題 ＝ “《” ＋ 超級(jí)列表框1.取標(biāo)題 (超級(jí)列表框1.現(xiàn)行選中項(xiàng), 1) ＋ “》”

    標(biāo)簽4.標(biāo)題 ＝ “    ” ＋ 超級(jí)列表框1.取標(biāo)題 (超級(jí)列表框1.現(xiàn)行選中項(xiàng), 2)

    圖片框1.圖片 ＝ HTTP讀文件 (超級(jí)列表框1.取標(biāo)題 (超級(jí)列表框1.現(xiàn)行選中項(xiàng), 3))

    獲取故事 (超級(jí)列表框1.取標(biāo)題 (超級(jí)列表框1.現(xiàn)行選中項(xiàng), 4))

.否則

    信息框 (“無(wú)法獲取數(shù)據(jù)”, 0, “請(qǐng)檢查網(wǎng)絡(luò)通信是否正常？”, )

.如果結(jié)束

.子程序 獲取故事

.參數(shù) url, 文本型

.局部變量 臨時(shí)數(shù)據(jù), 文本型

.局部變量 i, 整數(shù)型

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

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

搜索 ＝ zz.搜索全部 (臨時(shí)數(shù)據(jù))

.判斷開(kāi)始 (取數(shù)組成員數(shù) (搜索) ＞ 0)

    編輯框1.內(nèi)容 ＝ 網(wǎng)頁(yè)_取文本_dom (搜索 [1].取匹配文本 (臨時(shí)數(shù)據(jù), ))

.默認(rèn)

.判斷結(jié)束

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

滑塊條2.選擇長(zhǎng)度 ＝ 滑塊條2.位置

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

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

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

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

jd.設(shè)置語(yǔ)速 (滑塊條1.位置)

.子程序 _超級(jí)列表框1_右鍵單擊表項(xiàng)

彈出菜單 (功能, , )

.子程序 _獲取新數(shù)據(jù)_被選擇

下一頁(yè) (頁(yè)數(shù))

讀取數(shù)據(jù) (頁(yè)數(shù))

.子程序 初始化朗誦

.局部變量 i, 整數(shù)型

d ＝ jd.列舉語(yǔ)音庫(kù) ()

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

    組合框1.刷新顯示 ()

    .計(jì)次循環(huán)首 (取數(shù)組成員數(shù) (d), i)

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

    .計(jì)次循環(huán)尾 ()

    組合框1.現(xiàn)行選中項(xiàng) ＝ 0

    jd.設(shè)置語(yǔ)音庫(kù) (組合框1.被選擇文本)

    jd.設(shè)置語(yǔ)速 (滑塊條1.位置)

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

.否則

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

.如果結(jié)束

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

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

    按鈕2.標(biāo)題 ＝ “關(guān)閉”

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

        jd.文本到語(yǔ)音 (0, 編輯框1.內(nèi)容, , )

    .如果真結(jié)束

.否則

    按鈕2.標(biāo)題 ＝ “朗誦”

    jd.停止發(fā)音 ()

.如果結(jié)束

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

.如果 (按鈕3.標(biāo)題 ＝ “暫�！�)

    按鈕3.標(biāo)題 ＝ “恢復(fù)”

    jd.暫停發(fā)音 ()

.否則

    按鈕3.標(biāo)題 ＝ “暫停”

    jd.恢復(fù)發(fā)音 ()

.如果結(jié)束

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

.參數(shù) 鍵代碼, 整數(shù)型

.參數(shù) 功能鍵狀態(tài), 整數(shù)型

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

    _獲取新數(shù)據(jù)_被選擇 ()

.如果真結(jié)束

.子程序 _版權(quán)所有_被選擇

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

.子程序 __啟動(dòng)窗口_托盤事件

.參數(shù) 操作類型, 整數(shù)型

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

    彈出菜單 (版權(quán), , )

.如果真結(jié)束

.版本 2

.全局變量 頁(yè)數(shù), 文本型

.版本 2

.常量 POST數(shù)據(jù), "<文本長(zhǎng)度: 94>"

具體內(nèi)容：https://dynamic.qbaobei.com/dynamic.php?s=/qbaobeimobile/cate_position/cate/1414/star/【頁(yè)數(shù)】

.常量 正則方法, "<文本長(zhǎng)度: 36>"

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