【源码】VB6聊天机器人

废话不多说，直接上图

直接上源码

程序的思路大概就是调用网上的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