本文目录索引

• 1，qq机器人怎么弄
• 2，QQ机器人怎么开启？
• 3，qq群聊天机器人是怎么设置的？
• 4，聊天机器人原理 要详细的
• 5，QQ聊天机器人怎么设置？
• 6，QQ自动聊天机器人咋用
• 7，如何快速创建QQ聊天机器人
• 8，QQ群里的机器人都有什么功能？

1，qq机器人怎么弄

　　方法步骤如下：
　　1、在百度中搜索【QQ机器人】，从搜索链接中找到一个合适的机器人软件点击进入对应的下载地址。
　　2、在下载地址中挑选合适的版本下载，作为新手，一般下载普通的完整包就可以了。
　　3、下载后解压缩到本地，在解压后的文件夹中找到执行文件，双击打开。
　　4、QQ机器人软件都是和qq相关联的，需要输入自己的账号和密码，点击登录。
　　5、QQ机器人上线后，会提示本地的QQ软件下线，这个属于正常情况，不用惊慌。
　　6、在QQ机器人软件界面中可以看到自己的好友列表和群列表，点击右下角的【设置】。
　　7、进入设置界面，在【基本】页中，可以设置不需要进行回复的qq号码和群号。然后点击【聊天】。
　　8、在聊天页可以设置自动回复的内容，点击【词库编辑器】。
　　9、在词库编辑器中，根据关键词对要回复的信息进行适当的修改。注意在回复信息中，【name】表示对方的昵称，【cqname】表示自己的昵称。
　　修改完成后点击保存，这时就完成了自动回复的设置。
　　10、使用另一个号码和这个QQ机器人聊天，QQ机器人会根据聊天信息中的关键词进行对应的快速回复。这样我们就可以放心的去做其它事情了。

2，QQ机器人怎么开启？

第一步，打开你要开启群机器人的QQ群（这个群你是群主），并点击右上角的头像标志。 第二步，进入群的详细界面后，点击“管理群”按钮。 第三步，在“管理群”中选择“设置群机器人”。 第四步，选择你喜欢的机器人并点击底部的“开启”按钮。 第五步，这时候我们的群机器人已经开启成功了，大家还可以对机器人进行一些简单的设置，比如开启新成员欢迎语，生日提醒等，步骤比较简单，大家可以参考一下我的截图。 第六步，最后，我们只需返回群的聊天界面，即可与群机器人进行互动交流。 群机器人是管理QQ群的一个非常有利的工具，可以实现QQ群自动回复，自动通过，自动踢人，如果安装相应的插件，如娱乐插件可以玩游戏，添加快递或火车票查询插件可以查询快递或火车票，还有点歌插件、整点报时插件、签到插件等一系列插件可以更加丰富你的QQ群。

3，qq群聊天机器人是怎么设置的？

首先登录手机版QQ，找到你要设置机器人的QQ群，打开聊天窗口，然后点击管理群，接着点击设置群机器人，这时会出现两个机器人供你选择，喜欢哪个就选哪个，选好后点击下面的开启，最后根据你的需求设置机器人的功能，设置完以后这个群机器人就弄好了。 首先，只有群主或者管理员才可以设置聊天机器人的，然后点击群右上角的选项进入设置选项。 点击管理群。 进入管理群的系统了以后，我们要做的就是设置群机器人。 群机器人是有两个的，我们需要选择一个确定就可以了，这样我们的机器人就设置成功了。 当然我们还可以设置机器人的一些选项，比如有新成员进群会欢迎，加群自动审核批准等。

4，聊天机器人原理 要详细的

dotnet+xml开发简单聊天机器人 来源: http://blog.sina.com.cn/u/55fd做一个智能的聊天机器人并不容易，我这里只是实现了一个很简易的聊天机器人。 当你和这个机器人聊天的时候，每次机器人会根据你说的话的关键词找到回答的语句。如果找不到就随机的说一句默认语言。数据存储格式是xml。 以下是xml的原文件：



你在哪里？
你还是学生吗？ .........
不怪
是啊，慢
什么事？
再见
没什么好谢的
我不会滚，我会走......
////////////////////////////////////////////////////////////////////以下是主要的源代码：Imports System.Xml
Public Class Form1
Inherits System.Windows.Forms.Form#Region " Windows 窗体设计器生成的代码 " Public Sub New()
MyBase.New() '该调用是 Windows 窗体设计器所必需的。
InitializeComponent() '在 InitializeComponent() 调用之后添加任何初始化 End Sub '窗体重写 dispose 以清理组件列表。
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub 'Windows 窗体设计器所必需的
Private components As System.ComponentModel.IContainer '注意: 以下过程是 Windows 窗体设计器所必需的
'可以使用 Windows 窗体设计器修改此过程。
'不要使用代码编辑器修改它。
Friend WithEvents RichTextBox1 As System.Windows.Forms.RichTextBox
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
Friend WithEvents Button1 As System.Windows.Forms.Button
Private Sub InitializeComponent()
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(Form1))
Me.RichTextBox1 = New System.Windows.Forms.RichTextBox
Me.TextBox1 = New System.Windows.Forms.TextBox
Me.Button1 = New System.Windows.Forms.Button
Me.SuspendLayout()
'
'RichTextBox1
'
Me.RichTextBox1.Location = New System.Drawing.Point(0, 0)
Me.RichTextBox1.Name = "RichTextBox1"
Me.RichTextBox1.ReadOnly = True
Me.RichTextBox1.Size = New System.Drawing.Size(560, 304)
Me.RichTextBox1.TabIndex = 2
Me.RichTextBox1.Text = ""
'
'TextBox1
'
Me.TextBox1.Location = New System.Drawing.Point(0, 312)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(456, 21)
Me.TextBox1.TabIndex = 0
Me.TextBox1.Text = ""
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(472, 312)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(72, 24)
Me.Button1.TabIndex = 1
Me.Button1.Text = "Enter"
'
'Form1
'
Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
Me.ClientSize = New System.Drawing.Size(560, 341)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.TextBox1)
Me.Controls.Add(Me.RichTextBox1)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.MaximizeBox = False
Me.Name = "Form1"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "青蛙王子"
Me.ResumeLayout(False) End Sub#End Region Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
readxml()
End Sub
Dim xmlFile As String = "./robot.xml"
Dim chatList As New ArrayList
Dim answerList As New Hashtable
Dim random As New System.Random Private Sub readxml()
Try
Dim doc As XmlDocument = New XmlDocument
doc.Load(xmlFile)
Dim nodeList As XmlNodeList
Dim root As XmlElement = doc.DocumentElement
'--默认的聊天语句--
nodeList = root.SelectNodes("/chat/default/content")
Dim node As XmlNode
For Each node In nodeList
chatList.Add(node.InnerText)
Next
'回答指定关键词的语句序列--
nodeList = root.SelectNodes("/chat/answer/content")
For Each node In nodeList
answerList.Add(node.Attributes("key").Value, node.InnerText)
Next
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'RichTextBox1.SelectionBullet = True
Dim Content$ = TextBox1.Text.Trim
If (Content = "") Then
RichTextBox1.AppendText("请不要欺骗我的感情,谢谢!" + ControlChars.Lf)
Exit Sub
End If
If (Content.IndexOf(":") -1) Then
If learnNewWord(Content) Then
RichTextBox1.AppendText("我又学会了新的东西,谢谢!" + ControlChars.Lf)
End If
Exit Sub
End If
RichTextBox1.AppendText(Content + ControlChars.Lf)
Dim aStr$ = getSimilarContent(Content)
If (aStr = Nothing) Then
Dim i% = random.Next(1, chatList.Count)
aStr = chatList.Item(i)
End If
RichTextBox1.AppendText(aStr.Trim + ControlChars.Lf)
RichTextBox1.Refresh()
End Sub
'得到相似的字符串
Function getSimilarContent(ByVal content As String) As String
Dim keys As System.Collections.ICollection = answerList.Keys
Dim enumR As System.Collections.IEnumerator = keys.GetEnumerator
While (enumR.MoveNext)
Dim str$ = enumR.Current
If content.Equals(str) Then
Return answerList(str)
End If
End While
enumR.Reset()
While (enumR.MoveNext)
Dim str$ = enumR.Current
If (content.IndexOf(str) -1) Or (str.IndexOf(content) -1) Then
Return answerList(str)
End If
End While
Return Nothing
End Function '添加新的语句
Function learnNewWord(ByVal content As String) As Boolean
Try
Dim doc As XmlDocument = New XmlDocument
Dim i% = content.IndexOf(":")
Dim str1$ = content.Substring(0, i)
Dim str2$ = content.Substring(i + 1)
doc.Load(xmlFile)
Dim elem As XmlElement = doc.CreateElement("content")
Dim attr As XmlAttribute = doc.CreateAttribute("key")
attr.Value = str1
elem.InnerText = str2
elem.Attributes.Append(attr)
'添加新的语句--
Dim root As XmlElement = doc.DocumentElement
Dim xmlNode As XmlNode = root.SelectSingleNode("/chat/answer")
xmlNode.AppendChild(elem)
answerList.Add(str1, str2)
doc.Save(xmlFile)
Return True
Catch ex As Exception
MsgBox(ex.Message)
Return False
End Try
End Function Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If e.KeyChar.Equals(ControlChars.Cr) Then
Button1_Click(Nothing, Nothing)
End If
End Sub
End Class

5，QQ聊天机器人怎么设置？

qq聊天机器人的使用方法： 软件使用很简单，双击运行后，在主界面输入你的QQ号和QQ密码，然后点“登录”按钮，有可能会要求你输入验证码。 登录成功后，会把你在电脑上登录的QQ挤下线。这是正常现象，不用担心。 如果有别人给你发消息，软件会自动弹出窗口，如果有匹配的自动回复设置条目，软件会自动延时几秒中发出，你也可以手工回复对方，或者干脆点“取消此窗口的自动回复。 你也可以通过点“设置自动回复内容”按钮，进入自动回复内容的设置。 不少人都将QQ作为主要的联系方式，QQ保持全天在线，除了能够给自己一种安全感，也能方便好友轻松找到自己，不过咱们不可能成天的守在电脑旁吧，为了实现与qq好友聊天以及qq群消息、qq群私聊，就有网友开发了qq聊天机器人，能够快速设置自动回复内容，同时还支持全自动聊天和半自动聊天结合，非常的强大。

6，QQ自动聊天机器人咋用

1，首先打开下载好的QQ机器人。
2，然后输入自己的QQ号码和QQ密码点击登录。
3，如果用手机登录了或者有什么安全保护的话，就会登录失败哦！
4，在这里可以查看使用帮助，教会如何使用机器人！
5，在选项设置中可以设置回复的内容或者字体的颜色大小等等设置。
6，然后点击打开QQ好友和群列表，再与选中的好友聊天，或者群聊天！
7打开了后别人发短信，机器人就可以自动回复了，在这里也可以手动回复，或者关闭自动回复哦！

7，如何快速创建QQ聊天机器人

创建方法
1.注册图灵机器人账号【http://www.tuling123.com/openapi/cloud/api.jsp?section=10】

2.下载图灵qq机器人套件，解压机器人到你的电脑上

3.点击运行CoolQ.exe

4.在弹出框界面，点击基本设置，输入你的图灵机器人apikey，群聊的聊天前缀请进行自定义设定。【注：默认的前缀为@，无聊是私聊还是群聊天，需要加上@，例如“@你好”，机器人才会回复】

8，QQ群里的机器人都有什么功能？

QQ机器人小冰功能如下： 1、可以问qq小冰天气，例如“@小冰 XX天气”。 2、可以玩游戏，我们可以“@小冰 猜成语”，根据给的表情猜成语。如果不玩了，可以“@小冰 不玩了”。 3、更多qq小冰的功能玩法，可以直接“@小冰 功能”，就会列出有哪些好玩的了。 4、让qq小冰讲笑话，不过你还得跟它商量来，开始可以“@小冰 笑话”它可能就给你个笑话。 5、还有就是在qq机器人设置里，可以设置新人欢迎语。