Using Function Ajax in VB6

Using Function Ajax in VB6
Code :
Private Sub Command1_Click()
Dim objXml
Set objXml = CreateObject("Msxml2.XMLHTTP")
objXml.open "GET", "http://www.w3schools.com/ajax/time.asp", True
objXml.send (Null)
If Not objXml Is Nothing Then
ReGet:
DoEvents
If objXml.readyState = 4 Then
MsgBox "Time at Web is: " & objXml.responseText
ElseIf objXml.readyState = 1 Then
Goto ReGet
End If
End If
Set objXml = Nothing
End Sub

Related Post :