Mayo 22, 2018, 02:33:27 am

Autor Tema: [VB] Downloader (Paginas HTML)  (Leído 1871 veces)

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado Root XOR

  • Moderador
  • *****
  • Mensajes: 401
  • Sexo: Masculino
  • Exclusive Root
    • Ver Perfil
[VB] Downloader (Paginas HTML)
« en: Febrero 05, 2012, 02:12:00 pm »
Pequeña Aplicacion que hice en Visual Basic .Net
Basicamente descarga el Html de la pagina que le indiquemos por parametro a la funcion
Código: (vbnet) You are not allowed to view links. Register or Login
Imports System.IO
Imports System.Net.HttpWebRequest

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
MkDir(Application.StartupPath & "\DataDir") 'Solo Ejecutar la 1era Vez Podriamos hacer una validacion que compuebe si existe el Directorio
End Sub

Public Sub Data()
Dim URL1 As String = "http://portalhacher.net/index.php"
Downd(URL1)
End Sub

Public Sub Downd(ByVal page As String)
Dim Content As String = Nothing
Dim Err As Boolean = False
Try
Dim Request As System.Net.HttpWebRequest = CType(System.Net.HttpWebRequest.Create(page), System.Net.HttpWebRequest)
Request.UserAgent = "Mozilla/5.0 (Windows NT 5.1; rv:6.0.2) Gecko/20100101 Firefox/6.0.2"
Request.Accept = "text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8"
Request.Headers.Add("Cookie", "Ejemplo_de_Cookie=gpf0aqo9nlq4vbplp2;") 'Toda la Cookie que se envia por Headers la ponemos aca

'Request.Referer = "http://www.google.com/"  'En Caso de que Querramos Usar Referer
Request.Timeout = 10000 'Tiempo de Time Out en caso de que la peticion retorne 404 u otro error

Dim Response As System.Net.WebResponse = Request.GetResponse()
Dim Stream As System.IO.Stream = Response.GetResponseStream()
Dim StreamReader As New System.IO.StreamReader(Stream)
Content = StreamReader.ReadToEnd()

StreamReader.Close()
Stream.Close()
Response.Close()
Catch ex As Exception
WriteLog(ex.Message)
Err = True
End Try

If Not Err Then
Writedata(Content)
End If

End Sub

Public Sub Writedata(ByVal cont As String)
Dim strStreamW As Stream
Dim strStreamWriter As StreamWriter
Dim Archivo As String = Application.StartupPath & "\DataDir\PaginaDescargada.html"
Dim Linea = cont
strStreamW = File.OpenWrite(Archivo)
strStreamWriter = New StreamWriter(strStreamW, System.Text.Encoding.UTF8)
strStreamWriter.WriteLine(Linea)
strStreamWriter.Close()
End Sub
Public Sub WriteLog(ByVal cont As String)
Dim strStreamWriter As StreamWriter
Dim Archivo As String = Application.StartupPath & "\DataDir\Logs.log"
Dim Linea = cont
strStreamWriter = New StreamWriter(Archivo, True, System.Text.Encoding.UTF8)
strStreamWriter.WriteLine(cont)
strStreamWriter.Close()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Data()
End Sub
End Class

Las Funciones Writedata u WriteLog
Escriben respectivamente el archivo
y en caso de fallar el log del fallo.

Saludos
« Última modificación: Febrero 05, 2012, 02:12:39 pm por Root XOR »


xx
hackear paginas html

Iniciado por spinsak

4 Respuestas
2349 Vistas
Último mensaje Noviembre 10, 2006, 03:20:08 pm
por Godless
thumbup
Ejecutar codigo PHP en paginas .html y .htm

Iniciado por vart001

3 Respuestas
5252 Vistas
Último mensaje Abril 27, 2007, 07:59:36 pm
por DarkAngel
thumbup
Usar Codigo PHP en paginas HTML

Iniciado por vart001

5 Respuestas
5655 Vistas
Último mensaje Agosto 01, 2006, 02:00:27 pm
por ranefi
xx
compilador de sintaxis para paginas web en html?

Iniciado por tuxman

3 Respuestas
2290 Vistas
Último mensaje Febrero 26, 2011, 02:13:29 pm
por tuxman
smiley
Cuidados con las páginas html "malignas"

Iniciado por Rosana82

3 Respuestas
1979 Vistas
Último mensaje Enero 02, 2008, 09:36:54 pm
por wanm28
xx
[Downloader]HeatshocK Downloader v1

Iniciado por sn0x.

6 Respuestas
1604 Vistas
Último mensaje Agosto 22, 2008, 09:53:16 pm
por mankito
xx
Web html con frames, necesito ayuda. Alguien que entienda en html

Iniciado por Circunsxik

5 Respuestas
2151 Vistas
Último mensaje Mayo 26, 2008, 11:44:41 pm
por Big-Peru_
xx
cargar en un html el contenido de otro html?

Iniciado por hanlly

2 Respuestas
1311 Vistas
Último mensaje Enero 29, 2013, 10:07:38 am
por orochimaru
lamp
Paginas web""!!(( MiraR esto en Off topic)) paginas web de descargar ...

Iniciado por krazy pirata

5 Respuestas
1658 Vistas
Último mensaje Noviembre 19, 2007, 11:05:38 am
por sebastianxalchemy
question
Que es un Downloader?

Iniciado por Adzok

7 Respuestas
1316 Vistas
Último mensaje Octubre 06, 2011, 05:18:57 am
por natas