Get HTML Source Code Without using an Inet Control

[Mark]

Getting HTML source can be done without using a webbrowser or inet control. The other option is using the Microsoft.XMLHTTP object.

Code: Select all

Option Explicit

' This sample uses
' 1 textbox
' 1 command button
' 1 richtextbox
Private Sub cmdGetHtml_Click()
Dim strURL As String
Dim objHTML


    strURL = txtURL.Text
    Set objHTML = CreateObject("Microsoft.XMLHTTP")
    objHTML.open "GET", strURL, False
    objHTML.send

    rtbHTML.Text = objHTML.responseText

    Set objHTML = Nothing

End Sub

Private Sub Form_Load()
    txtURL.Text = "http://www.martin2k.co.uk/forums/index.php"
End Sub

[Keith]

Is this for the benefit of Syntax Highlighting Mark?

They are trying to get VB code to show the same as it does in A1vbcode with your syntax.zip

[Mark]

If A1vbcode had at least done indenting I probably would have never created the syntax highlighting project. I can do without the fancy color but just hate reading code that isn't indented properly.

[xela]

Option Explicit

' This sample uses
' 1 textbox
' 1 command button
' 1 richtextbox
Private Sub cmdGetHtml_Click()
Dim strURL As String
Dim objHTML


    strURL = txtURL.Text
    Set objHTML = CreateObject("Microsoft.XMLHTTP")
    objHTML.open "GET", strURL, False
    objHTML.send

    rtbHTML.Text = objHTML.responseText

    Set objHTML = Nothing

End Sub

Private Sub Form_Load()
    txtURL.Text = "http://www.martin2k.co.uk/forums/index.php"
End Sub

?

[Jag9]

I'm glad that someone agrees with me about the indenting. I can't stand code that isn't correctly indented.

However, Mark, if you try editing your original post in this topic and replaced the "code" tag with "vb" then it should also include the syntax highlighting that Keith has already mentioned. That's one of the modifications I've been working on today.

Also, Keith, I understand you still have a problem with uploading a .txt file containing VB code (along with line numbers)... I'll look into it when I'm sober.

Spoiler: show

Alex, I love you.