.版本 2
.常量 常量1, "<文本長度: 41>", , AI [現(xiàn)行時(shí)間]： Hi俺寂寞空虛冷 陪陪俺吧
.常量 常量2, "<文本長度: 25>", ,  我 [現(xiàn)行時(shí)間]：  [內(nèi)容]
.常量 常量3, "<文本長度: 24>", , AI [現(xiàn)行時(shí)間]：  [內(nèi)容]
.常量 常量4, "<文本長度: 8>", , "text":"

聊天機(jī)器人源碼

此功能需要加載精易模塊

.版本 2
.支持庫 EThread
.程序集 窗口程序集_啟動(dòng)窗口
.程序集變量 發(fā)送, 文本型
.子程序 _發(fā)送按鈕_被單擊
.局部變量 修改, 文本型
修改 ＝ 子文本替換 (#常量2, “[現(xiàn)行時(shí)間]”, 到文本 (取現(xiàn)行時(shí)間 ()), , , 真)
對(duì)話編輯框.加入文本 (#換行符 ＋ 子文本替換 (修改, “[內(nèi)容]”, 內(nèi)容編輯框.內(nèi)容, , , 真))
發(fā)送 ＝ 內(nèi)容編輯框.內(nèi)容
發(fā)送 ＝ 編碼_URL編碼 (發(fā)送, , 真)
內(nèi)容編輯框.內(nèi)容 ＝ “”
啟動(dòng)線程 (&對(duì)話, , )
.子程序 __啟動(dòng)窗口_創(chuàng)建完畢
對(duì)話編輯框.加入文本 (子文本替換 (#常量1, “[現(xiàn)行時(shí)間]”, 到文本 (取現(xiàn)行時(shí)間 ()), , , 真))
.子程序 對(duì)話
.局部變量 fh, 文本型
fh ＝ 到文本 (網(wǎng)頁_訪問 (“http://www.tuling123.com/openapi/api?key=a32a544d1cfd3cc1f964f3de6caca9f0&info=” ＋ 發(fā)送))
fh ＝ 編碼_URL解碼 (fh, 真)
加入機(jī)器人 (文本_取出中間文本 (fh, #常量4, #引號(hào) ＋ “}”))
.子程序 加入機(jī)器人
.參數(shù) 內(nèi)容, 文本型
.局部變量 修改, 文本型
修改 ＝ 子文本替換 (#常量3, “[現(xiàn)行時(shí)間]”, 到文本 (取現(xiàn)行時(shí)間 ()), , , 真)
對(duì)話編輯框.加入文本 (#換行符 ＋ #換行符 ＋ 子文本替換 (修改, “[內(nèi)容]”, 內(nèi)容, , , 真))
.子程序 _內(nèi)容編輯框_按下某鍵, 邏輯型
.參數(shù) 鍵代碼, 整數(shù)型
.參數(shù) 功能鍵狀態(tài), 整數(shù)型
.如果 (鍵代碼 ＝ #回車鍵)
  _發(fā)送按鈕_被單擊 ()
.否則
.如果結(jié)束

運(yùn)行結(jié)果：