[source code] VB6 chat robot

I don't say much nonsense , Directly above

Go straight to source

The idea of the program is probably to call online API Make a call , use VB Get the value passed back, and then do simple processing and put it into List Inside , Because multithreading is not used , Yes, so when sending and receiving information, I will get stuck .

Private Sub Command1_Click()
	Dim str
	Set http = CreateObject("Msxml2.ServerXMLHTTP")
	str = Text1.Text
	Text1.Text = ""
	List1.AddItem (" you :" & 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 (" robot :" & Split(txt, """")(5))
	List1.ListIndex = List1.ListCount - 1
	List1.ListIndex = -1
End Sub


Private Sub Command2_Click()
	Static i
	i = i + 1
	Label1.Caption = " Robots get praise :" & i
End Sub

Private Sub Form_Load()
	MsgBox (" Welcome to the robot chat interface , Go and chat !")
End Sub

Private Sub List1_DblClick()
	If Check1.Value = 0 Then
	a = InputBox(" Please copy by yourself ", " Copy window ", List1.Text)
	Else
	Clipboard.SetText (List1.Text)
	End If
End Sub