Visual Basic.NET - Quiero migrar a VB.NET como pasar este pequeño codigo

   
Vista:

Quiero migrar a VB.NET como pasar este pequeño codigo

Publicado por fran (22 intervenciones) el 27/01/2016 15:44:07
Buenas a todos,

Quisiera migrarme a VB.NET con un pequeño proyecto que tengo en VB.6 y si hay alguien que me pudiera echar un cable se lo agradeceria, mi codigo es este, que lo tengo puesto en un Modulo

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Option Explicit
 
Public Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
Public Declare Function InternetOpenUrl Lib "wininet.dll" Alias "InternetOpenUrlA" (ByVal hInternetSession As Long, ByVal sURL As String, ByVal sHeaders As String, ByVal lHeadersLength As Long, ByVal lFlags As Long, ByVal lContext As Long) As Long
Public Declare Function InternetReadFile Lib "wininet.dll" (ByVal hFile As Long, ByVal sBuffer As String, ByVal lNumBytesToRead As Long, lNumberOfBytesRead As Long) As Integer
Public Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInet As Long) As Integer
 
Public Const IF_FROM_CACHE = &H1000000
Public Const IF_MAKE_PERSISTENT = &H2000000
Public Const IF_NO_CACHE_WRITE = &H4000000
 
Private Const BUFFER_LEN = 256
 
Public Function GetUrlSource(sURL As String) As String
 
    Dim sBuffer As String * BUFFER_LEN, iResult As Integer, sData As String
    Dim hInternet As Long, hSession As Long, lReturn As Long
 
    'get the handle of the current internet connection
    hSession = InternetOpen("vb wininet", 1, vbNullString, vbNullString, 0)
    'get the handle of the url
    If hSession Then hInternet = InternetOpenUrl(hSession, sURL, vbNullString, 0, IF_NO_CACHE_WRITE, 0)
    'if we have the handle, then start reading the web page
    If hInternet Then
        'get the first chunk & buffer it.
        iResult = InternetReadFile(hInternet, sBuffer, BUFFER_LEN, lReturn)
        sData = sBuffer
        'if there's more data then keep reading it into the buffer
        Do While lReturn <> 0
            iResult = InternetReadFile(hInternet, sBuffer, BUFFER_LEN, lReturn)
            sData = sData + Mid(sBuffer, 1, lReturn)
        Loop
    End If
 
    'close the URL
    iResult = InternetCloseHandle(hInternet)
 
    GetUrlSource = sData
 
End Function

Pues ese es el codigo, como lo podria pasar a VB:NET.

Gracias de antemano.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Quiero migrar a VB.NET como pasar este pequeño codigo

Publicado por Miguel (346 intervenciones) el 27/01/2016 18:06:52
Hola,
Disculpa, ¿para qué es exactamente este código?...

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Quiero migrar a VB.NET como pasar este pequeño codigo

Publicado por fran (22 intervenciones) el 27/01/2016 19:33:51
Gracias por contestar.

Pero es para leer el HTML de una pagina web.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Quiero migrar a VB.NET como pasar este pequeño codigo

Publicado por Miguel (346 intervenciones) el 28/01/2016 00:20:12
Bien, para esto puedes utilizar alguna de las siguientes opciones:

1
Dim sourceString As String = New System.Net.WebClient().DownloadString("http://www.dominio.es/pagina")

O:

1
2
3
4
5
6
7
Dim html As String
Dim request As WebRequest = WebRequest.Create("http://www.dominio.es/pagina")
Using response As WebResponse = request.GetResponse()
    Using reader As New StreamReader(response.GetResponseStream())
        html = reader.ReadToEnd()
    End Using
End Using


Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Quiero migrar a VB.NET como pasar este pequeño codigo

Publicado por fran (22 intervenciones) el 28/01/2016 14:16:31
Gracias por contestar, lo probare haber que tal funciona, ya comento.

Saludos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Quiero migrar a VB.NET como pasar este pequeño codigo

Publicado por fran (22 intervenciones) el 28/01/2016 18:00:03
Funciona genial las 2 opciones, ahora quisiera saber cual de las 2 opciones me recomiendas?

Saludos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Quiero migrar a VB.NET como pasar este pequeño codigo

Publicado por Miguel (346 intervenciones) el 28/01/2016 19:22:48
Bueno, por lo general utilizo la primera opción (DownloadString(string) de WebClient) para ahorrarme código, aunque no sé con certeza cual opción es mejor o más eficiente...

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Quiero migrar a VB.NET como pasar este pequeño codigo

Publicado por fran (22 intervenciones) el 29/01/2016 01:15:51
ok, Gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar