AYUDA Obtener datos de una web html

[Niqoh]

Hola a todos,necesito saber como obtener datos de una web,ejemplo.
www.miweb.com/bloqueo.html
¿para que seria esto?
Para bloquear un programa propio en contra de los cracks etc...
Es decir si tiene la web como datos SI no hacer nada,si dice NO cerrar el programa.
Si puede ser sin dependencias (OCX) sería de gran ayuda.
Un abrazo compañeros espero que me puedan ayudar en caso de no entender mi necesidad pregunten.
Saludos!

[LeandroA]

hola, bienvenido al foro, esta es una de las mas faciles pero hay varios métodos.

Código: (VB) [Seleccionar]

Option Explicit

Private Sub Form_Load()

   
    MsgBox GetWebText("www.miweb.com/bloqueo.html")
 
End Sub
 
Private Function GetWebText(ByVal sUrl As String) As String
    Dim m_Inet As Object
 
    Set m_Inet = CreateObject("MSXML2.ServerXMLHTTP")
    m_Inet.open "GET", sUrl, False
    m_Inet.send

    If m_Inet.Status = 200 Then
        GetWebText = m_Inet.responsetext
    End If
   
End Function

[Niqoh]

hola, bienvenido al foro, esta es una de las mas faciles pero hay varios métodos.

Código: (VB) [Seleccionar]

Option Explicit

Private Sub Form_Load()

   
    MsgBox GetWebText("www.miweb.com/bloqueo.html")
 
End Sub
 
Private Function GetWebText(ByVal sUrl As String) As String
    Dim m_Inet As Object
 
    Set m_Inet = CreateObject("MSXML2.ServerXMLHTTP")
    m_Inet.open "GET", sUrl, False
    m_Inet.send

    If m_Inet.Status = 200 Then
        GetWebText = m_Inet.responsetext
    End If
   
End Function

Gracias por la bienvenida,aprendi mucho desde tu seccion de la pagina principal.
Y vengo para quedarme,te agradezco a vos por la ayuda...
Una pregunta,sirve para cualquier extencion? O solo es html?
Saludos.