vb.netQQ机器人 机器人编程语言

VB 聊天机器人 VB妮克帮我看下好吗 谢谢

Option Explicit

Private Type QAType

Q As String

A As String

End Type

Private QAList() As QAType

Private Sub Command1_Click()

Dim I As Long

For I = 0 To UBound(QAList)

If InStr(Text1.Text, QAList(I).Q) Then

Text2.Text = QAList(I).A

Exit For

End If

Next I

If I UBound(QAList) Then Text2.Text = "对不起，我不能回答你的问题。"

End Sub

Private Sub Form_Load()

ReDim QAList(6) '初始化对话内容数组，具体内容由自己的条目需要增加

QAList(0).Q = "你叫什么名字"

QAList(0).A = "我是聊天机器人。"

QAList(1).Q = "你多大"

QAList(1).A = "这是秘密，呵呵。"

QAList(2).Q = "你是谁"

QAList(2).A = "我是聊天机器人。"

QAList(3).Q = "你今年多大"

QAList(3).A = "你猜啊。"

QAList(4).Q = "你好吗"

QAList(4).A = "谢谢，我很好。"

QAList(5).Q = "你好"

QAList(5).A = "你好，很高兴认识你。"

QAList(6).Q = "你是女的"

QAList(6).A = "不，我只是一个计算机程序，用来自动回答你的问题，嘻嘻。"

End Sub

相关问答

Q1: 问一个关于vb中post的问题，在做QQ机器人时发现，用inet控件get某些页面时可以，但是换成

GetHeadr获取vb.netQQ机器人的是网页文件头vb.netQQ机器人，查看网页源代码就能看到vb.netQQ机器人的。

Q2: 如何制作qq聊天机器人

对于拥有多个qq群的用户来说，制作一个聊天机器人是很有必要的，那么，你知道如何制作吗?下面就让我告诉你如何制作qq聊天机器人。

制作qq聊天机器人的  方法

注册图灵机器人API key，因为后面要用到图灵机器人插件来实现智能聊天，所以就有必要用到图灵机器人的API key了，自行到图灵机器人官网注册即可。

注册非常的简单，输入邮箱、密码和验证码提交即可，然后在个人中心就能够看到自己申请到的API key 了，是一个32字符的字符串。注册后，默认调用次数是2000次每天，就是每天一共能问2000次，我的通过下面的邀请链接邀请好友注册了，所以就多了1000次，大家如果每天的请求次数不够用，也可以用这种方法来为自己提高次数。

下载酷Q机器人最新版及图灵机器人插件，酷Q机器人最新版和图灵机器人的插件已经打包上传至个人网盘，可直接前往网盘下载!网盘传送门：

。下载网盘中的附件，将附件中的两个压缩包分别解压，放至桌面或其他自己能够找到的地方。

将图灵机器人插件中解压出来的TuRingRobot.dll放至酷Qplugin文件夹下。

将图灵机器人插件放至相应文件夹后，点击CoolQ运行程序，启动CoolQ;在酷Q客户端中输入自己的QQ号和密码并点击登录。

进入设置，插件，勾选图灵机器人插件，右下角设置进入插件设置，在弹出的窗口中能看到apikey的输入框，从官网上把自己申请到的apikey粘贴进去。然后刷新插件!

看了如何制作qq聊天机器人的人还看

1. 如何制作qq头像

2. qq如何使用多人视频聊天功能

3. qq聊天怎样使用虚拟视频功能

4. 如何制作制作eip表情包

Q3: 想用VB写一个QQ机器人，要能绑定一个账号，然后比如说在群里，通过口令可以让这个机器人做一些事，如

代码让写出来vb.netQQ机器人，就有点vb.netQQ机器人，这个不可能是几句代码能写出来的。

思路：搜索【VB获得窗口句柄】

1vb.netQQ机器人，获得窗口句柄后，获得窗口名称。

2，若窗口名称是【ABC群】

3，让一段字符写入剪切板，让句柄窗口【ABC群】获得焦点，粘贴剪切板，获取句柄窗口按钮句柄，模拟点击发送按钮

当初做客服的时候曾经写过一个QQ发送软件，可以自动回复一大堆问题，选择一个回答后发送给对方，那个软件很小，150多K吧，但是可别忘记vb.netQQ机器人了，150多K若是代码需要多少个字符？

Q4: 悬赏200：想要用VB写个QQ智能聊天机器人(详细解答）

从TCP/IP找到QQvb.netQQ机器人的连接端口 截获端口数据

就可以用vb.netQQ机器人了

详见《VB程序设计自学手册》 人民邮电出版

代码太长

呵呵

Q5: 关于用VB写QQ机器人的问题

新版QQ在密码框和消息发送框上做过手脚vb.netQQ机器人，SendMessage是没效果vb.netQQ机器人的

可以在抢焦点前获取当前焦点vb.netQQ机器人，发送完vb.netQQ机器人了再切换回去。不过这样也会一闪一闪vb.netQQ机器人的

关于vb.netQQ机器人和机器人编程语言的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。