Visual Basic Foro
Programación => Visual Basic 6 => Mensaje iniciado por: Niqoh en Septiembre 02, 2016, 02:21:56 am
-
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!
-
hola, bienvenido al foro, esta es una de las mas faciles pero hay varios métodos.
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
-
hola, bienvenido al foro, esta es una de las mas faciles pero hay varios métodos.
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.