• Home
 · 
• Internet/HTML
 · 
• MsXml http web request / submit work in msxml v2.0 and v3.0 and return the html of the page .

MsXml http web request / submit work in msxml v2.0 and v3.0 and return the html of the page .

MsXml http web request / submit work in msxml v2.0 and v3.0 and return the html of the page .

API Declarations


' add to project references the componect
' Micro$oft xml version 2.0
' Or Micro$oft xml v3.0
' And and two command button



Rate MsXml http web request / submit work in msxml v2.0 and v3.0 and return the html of the page .

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Dim XXmlhttp3 As New XMLHTTP30
Dim hhtml As String


Private Sub Command1_Click()
   XXmlhttp3.open "get", "http://edition.cnn.com/"
   XXmlhttp3.send
   wait (5)  ' Call to Function as wait for and of load the page or timeout 
   hhtml = XXmlhttp3.responseText
   MsgBox XXmlhttp3.responseText
   
End Sub

Private Sub Command2_Click()
Dim Xmlhttp2 As New XMLHTTP
Dim html As String

   Xmlhttp2.open "post", "http://edition.cnn.com/"
   Xmlhttp2.send
   html = Xmlhttp2.responseText
   MsgBox Xmlhttp2.responseText
End Sub


Public Function wait(timeout As Byte)
Dim lopx As Integer
On Error Resume Next
   Do While XXmlhttp3.statusText <> "OK"
        DoEvents
        Sleep (10)
        
        If (lopx \ 100) > timeout Then
            Exit Do
        Else
            lopx = lopx + 1
            Debug.Print lopx
        End If
   Loop
    
End Function