易語言調用接口來實現機器人聊天的功能

今天小編就爲大家分享一篇關於易語言調用接口來實現機器人聊天的功能,小編覺得內容挺不錯的,現在分享給大家,具有很好的參考價值,需要的朋友一起跟隨小編來看看吧

常量數據表

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

聊天機器人源碼

此功能需要加載精易模塊

.版本 2
.支持庫 EThread
.程序集 窗口程序集_啓動窗口
.程序集變量 發送, 文本型
.子程序 _發送按鈕_被單擊
.局部變量 修改, 文本型
修改 = 子文本替換 (#常量2, “[現行時間]”, 到文本 (取現行時間 ()), , , 真)
對話編輯框.加入文本 (#換行符 + 子文本替換 (修改, “[內容]”, 內容編輯框.內容, , , 真))
發送 = 內容編輯框.內容
發送 = 編碼_URL編碼 (發送, , 真)
內容編輯框.內容 = “”
啓動線程 (&對話, , )
.子程序 __啓動窗口_創建完畢
對話編輯框.加入文本 (子文本替換 (#常量1, “[現行時間]”, 到文本 (取現行時間 ()), , , 真))
.子程序 對話
.局部變量 fh, 文本型
fh = 到文本 (網頁_訪問 (“http://www.tuling123.com/openapi/api?key=a32a544d1cfd3cc1f964f3de6caca9f0&info=” + 發送))
fh = 編碼_URL解碼 (fh, 真)
加入機器人 (文本_取出中間文本 (fh, #常量4, #引號 + “}”))
.子程序 加入機器人
.參數 內容, 文本型
.局部變量 修改, 文本型
修改 = 子文本替換 (#常量3, “[現行時間]”, 到文本 (取現行時間 ()), , , 真)
對話編輯框.加入文本 (#換行符 + #換行符 + 子文本替換 (修改, “[內容]”, 內容, , , 真))
.子程序 _內容編輯框_按下某鍵, 邏輯型
.參數 鍵代碼, 整數型
.參數 功能鍵狀態, 整數型
.如果 (鍵代碼 = #回車鍵)
  _發送按鈕_被單擊 ()
.否則
.如果結束

運行結果:

總結

以上就是這篇文章的全部內容了,希望本文的內容對大家的學習或者工作具有一定的參考學習價值,謝謝大家對神馬文庫的支持。如果你想了解更多相關內容請查看下面相關鏈接

發表評論
所有評論
還沒有人評論,想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.
相關文章