Hola a todos, bueno pues estoy intentando implemetar que mi herramienta "Horus Renamer" que esta en nuestros programas decargue los nombres de esta pagina [Enlace externo eliminado para invitados].
Se que se podria hacer con el control Inet pero no se muy bien por donde empezar. si alguien me podria guiar un poco ya que he estado buscando pero no encuantro nada.
Aclaro: No quiero un code quiero una explicacion para yo poder desallorarlo despues
Muchas gracias desde ya
Skype: naker.noventa
Hola Hno, el control Inet basicamente se utiliza para conectarce a un URL y de alli mediante un Get recuperar la data que envia la pagina
esto basicamente repito ya que tiene muchas opciones para desarrollar aqui te dejo el link que te ayudara sin dudas


[Enlace externo eliminado para invitados]

saludos
Imagen
Sólo tienes que obtener el código fuente de la página usando GET (documentación en el enlace que te puso el compañero xserpientex).

Posteriormente separas los datos que quieres obtener mediante splits, te recomiendo que lo hagas mediante el split que yo hice ya que necesitarás soporte para doble delimitador:
'Autor: Metal_Kingdom
'Lenguaje: VB6
'Web: udtools.net
'Fecha: 30-11-2011
'Finalidad: Separar datos de cadena.
'Añadido soporte de 2º delimitador opcional.

Function sSplit(cadena As String, delimitador As String, Optional delimitador2 As String) As String
Dim a As String, b As String, c As Long, d As Long
c = InStr(1, cadena, delimitador) + Len(delimitador)
a = Mid(cadena, c, Len(cadena))
b = StrReverse(a)
d = InStr(1, b, StrReverse(delimitador2)) + Len(delimitador2)
b = StrReverse(Mid(b, d, Len(b)))
If Not delimitador2 <> "" Then
sSplit = a
Else
sSplit = b
End If
End Function
Saludos.
UDTools.net
GitHub: https://github.com/MetalUDT
Seria mas rapido y menos pesado enviar una request, y almacenar la respuesta (El codigo fuente) en una String y luego ya delimitar los datos.

Saludos.
Ikarus: Backdoor.VBS.SafeLoader
Agnitum: Trojan.VBS.Safebot.A
http://indeseables.github.io/
Hola a todos, de nuevo gracias por su ayuda y se me ha planteado unas dudas:
se me hace mas facil extraer el texto plano mediante un webbroser de esta manera:

Código: Seleccionar todo

Web1.Navigate "http://thepiratebay.se/top/301"

Dim texto As String
contenido = Web1.Document.Body.innertext
Con esto ya consigo todo el texto de la pagina web, pero el problema es que no consigo dividir los nombres del resto del texto.
Saludos
Skype: naker.noventa
A ver si esto te funciona, lo saque de un GeoIP que tenia por hay.

Código: Seleccionar todo

Public Function GetBetween(ByRef String2BeSearched As String, ByRef sStart As String, ByRef sStop As String, Optional ByRef lSearch As Long = 1) As String

Dim lTemp As Long
lSearch = InStr(lSearch, String2BeSearched, sStart)
If lSearch > 0 Then
lSearch = lSearch + Len(sStart)
lTemp = InStr(lSearch, String2BeSearched, sStop)
If lTemp > lSearch Then
GetBetween = Mid$(String2BeSearched, lSearch, lTemp - lSearch)
End If
End If
End Function
Lo que hace es buscar en una string, pero busca entre 2 delimitadores.
Sigo recomendandote que el source de la web lo obtengas mediante una Request.

Saludos.
Ikarus: Backdoor.VBS.SafeLoader
Agnitum: Trojan.VBS.Safebot.A
http://indeseables.github.io/
Responder

Volver a “VB/.NET”