智能机器人 html代码,【智能聊天机器人】源代码发布了，有兴趣的来吧

该楼层疑似违规已被系统折叠 隐藏此楼查看此楼

Dim I As IntegerDim DatPath As String, FDat() As Byte, AllDat() As String '数据库内容Dim user As String, YMNum As Integer, YMN3 As String, MN As Integer '用户昵称,消息Dim AboutRob() As String, Hello() As String, AnsTyp() As String '关于机器人,机器人欢迎语,回复方式

Dim YourMsg As String, RobMsg As String '消息Dim BadMsg() As String, RndUnAns1() As String, RndUnAns2() As String '不良消息,拒答的回复数据Dim RndQus() As String, RndAns() As String, AIAns() As String '随机回答的数据,智能回答的数据,随机提问的数据Dim Compt() As String, CTXT As String '数学计算的附带文字

Private Sub Form_Load()On Error GoTo ErrorAI:

DatPath = App.Path & "\Data.ait"FDat = LoadResData(101, "CUSTOM")

AboutRob = Split("|小志|公的,帅哥|08年8月诞生|地球村,中国|简体中文|我天生比较聪明,只要你教过我的东西,我一定会记住的!想知道如何教我吗?发送“/help”我告诉你。|VB6.0|zhijian01", "|")AnsTyp = Split("| 已经回复消息| 向你发送消息| 似乎未能理解其意......|", "|")

If Dir(DatPath, vbHidden Or vbReadOnly Or vbSystem) = "" Then user = InputBox("您好!我是智能聊天机器人,称谓 " & AboutRob(1) & vbCr & vbCr & "初次见面,请告诉我您的名字:") If user = "" ThenUN: user = InputBox("喂喂,先别着急,我还不知道你的名字呢:", "Hello", "无名人士") If user = "" Then GoTo UN: End If Open DatPath For Output As #1 Print #1, "|" & user & "|" Print #1, StrConv(FDat, vbUnicode) Close #1End If'开始获取数据Open DatPath For Binary As #1 ReDim FDat(FileLen(DatPath) - 1) As Byte Get #1, , FDatClose #1AllDat = Split(StrConv(FDat, vbUnicode), "[AI_Dat]") '读取所有数据user = Split(AllDat(0), "|")(1) '获取用户名Hello = Split(AllDat(1), "|") '获取欢迎语BadMsg = Split(AllDat(2), "|") '获取不良消息RndUnAns1 = Split(AllDat(3), "|") '获取不良消息的回答数据RndUnAns2 = Split(AllDat(4), "|") '获取重复消息的回答数据RndQus = Split(AllDat(5), "|") '获取随机提问RndAns = Split(AllDat(6), "|") '获取随机回答Compt = Split(AllDat(7), "|") '数学计算的附带文字AIAns = Split(AllDat(8), "|") '获取智能回答

'显示信息RandomizeLabel1(3).Caption = userLabel2(1).Caption = "名字：" & AboutRob(1)Label2(2).Caption = "性别：" & AboutRob(2)Label2(3).Caption = "生日：" & AboutRob(3)Label2(4).Caption = "来自：" & AboutRob(4)Label2(5).Caption = "语言：" & AboutRob(5)Label2(6).Caption = "备注：" & AboutRob(6)Label2(7).Caption = "编译语言：" & AboutRob(7)Label2(8).Caption = "程序版本：" & App.Major & "." & App.Minor & "." & App.RevisionLabel2(9).Caption = "智能数据：" & UBound(Hello) + UBound(BadMsg) + UBound(RndUnAns1) + UBound(RndUnAns2) + UBound(RndQus) + UBound(RndAns) + UBound(AIAns) - 7Label2(10).Caption = "程序作者：" & AboutRob(8)

Timer1.Enabled = TrueExit Sub'出现错误ErrorAI:If MsgBox("聊天数据系统出错,点击“确定”还原聊天数据系统!", vbExclamation + vbOKCancel, "Error on AI:") = vbOK Then Kill DatPath Shell App.Path & "\" & App.EXEName & ".exe", vbNormalFocus EndElse EndEnd IfEnd Sub

Private Sub Command1_Click() '发送你的信息If Trim(Text2.Text) = "" Then MsgBox "请不要发送空白内容.", , "" Exit SubEnd IfYourMsg = LCase(Replace(Text2.Text, " ", ""))Text1.Text = Text1.Text & Time & "【" & user & "】说:" & vbNewLineText1.Text = Text1.Text & Text2.Text & vbNewLine & vbNewLineText1.SelStart = Len(Text1.Text)Text2.Text = ""Text2.SetFocusYMNum = YMNum + 1Label1(1).Caption = "你已发送第 " & YMNum & " 条信息"Label1(2).Visible = FalseTimer1.Enabled = TrueTimer2.Enabled = FalseMe.Caption = "与机器人 " & AboutRob(1) & " 聊天中"End Sub