【源码】VB6聊天机器人

某新手

已于 2022-03-14 23:46:50 修改

阅读量638

点赞数 3

分类专栏：源码文章标签： vb6

于 2022-02-09 14:46:44 首次发布

本文链接：https://blog.youkuaiyun.com/qq_28406527/article/details/122841506

版权

Visual Basic API调用聊天程序 POST请求响应处理

关键词由优快云通过智能技术生成

源码专栏收录该内容

4 篇文章

订阅专栏

这个博客展示了一个使用Visual Basic(VB)编写的简单聊天程序，该程序通过调用在线API来实现用户与机器人的对话。程序在接收到用户输入后，通过POST请求发送到指定URL，并接收返回的响应，将聊天内容更新到列表框中。虽然没有使用多线程，因此在交互时可能会有短暂延迟。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

废话不多说，直接上图
请添加图片描述

请添加图片描述
直接上源码

程序的思路大概就是调用网上的API进行通话，用VB获取传递回来的值然后进行简单的处理放进List里面，由于没有用到多线程，是所以发送信息和接受信息的时候会卡一下。


Private Sub Command1_Click()
	Dim str
	Set http = CreateObject("Msxml2.ServerXMLHTTP")
	str = Text1.Text
	Text1.Text = ""
	List1.AddItem ("你:" & str)
	url = "http://api.qingyunke.com/api.php?key=free&appid=0&msg=" & str
	http.Open "POST", url, False
	http.send a
	txt = http.responsetext
	List1.AddItem ("机器人:" & Split(txt, """")(5))
	List1.ListIndex = List1.ListCount - 1
	List1.ListIndex = -1
End Sub


Private Sub Command2_Click()
	Static i
	i = i + 1
	Label1.Caption = "机器人获赞数:" & i
End Sub

Private Sub Form_Load()
	MsgBox ("欢迎来到机器人聊天界面,快去聊天吧!")
End Sub

Private Sub List1_DblClick()
	If Check1.Value = 0 Then
	a = InputBox("请自行复制", "复制窗口", List1.Text)
	Else
	Clipboard.SetText (List1.Text)
	End If
End Sub