La Web del Programador: Comunidad de Programadores
 
https://www.lawebdelprogramador.com/preguntas/

    Pregunta:  22894 - CONECTARSE A INTERNET DESDE VB
Autor:  Lucho62
Hola a todos!
Quisiera saber si alguien me pudiera facilitar un código para poder hacer que un usuario que ingresando sus datos se pueda por medio de mi programa se pueda conectar a Iinternet.

Gracias!
  Respuesta:  Pedro Valencia
Este es el codigo que te puede ayudar, a mi me fue bien.
Saludos
Pedro

******************
Dim A As Long
Dim Pagina As String
Dim Browser As Object

Private Sub cmdAdelante_Click()
Pagina = Text1.Text
URL = Pagina + Trim(Str(A)) + ".jpg"
LoadUrl (URL)
lblNumero = Str(A)
A = A + 1
End Sub
Private Sub cmdAtras_Click()
Pagina = Text1.Text
URL = Pagina + Trim(Str(A)) + ".jpg"
LoadUrl (URL)
A = IIf(A >= 1, A - 1, A = A)
lblNumero = Str(A)
End Sub
Sub LoadUrl(URL As String)
'On Error GoTo errores
Browser.navigate "http://" + URL
'errores:
'End
End Sub

Private Sub cmdSalir_Click()
Form_Terminate
End Sub

Private Sub Form_Load()
A = 1
Set Browser = CreateObject("InternetExplorer.Application")
Browser.Visible = True
lblNumero = Str(A)
End Sub
Private Sub Form_Terminate()
Set Browser = Nothing
End
End Sub
Private Sub Form_Unload(Cancel As Integer)
Set Browser = Nothing
End Sub

Private Sub Text2_Change()
A = Val(Text2.Text)
lblNumero = Str(A)
End Sub

*************************