Abrir Interfase de Internet

[carita]

Hola

Hice en visual basic algo similar al Internet Explorer pero no se como hacer que cuando se ejecute la aplicación automaticamente se abra la paguina web que quiera, ho hice asi porque necesito que la ventana no tenga nada de botones, ni menus y por su puesto sin barra de direccion.


La programación que tengo es la siguiente:


Public StartingAddress As String
Dim mbDontNavigateNow As Boolean
Private Sub Form_Load()
On Error Resume Next
Me.Show
tbToolBar.Refresh
Form_Resize


cboAddress.Move 50, lblAddress.Top + lblAddress.Height + 15


If Len(StartingAddress) > 0 Then
cboAddress.Text = StartingAddress
cboAddress.AddItem cboAddress.Text
'intenta explorar la dirección inicial
timTimer.Enabled = True
brwWebBrowser.Navigate StartingAddress

End If


End Sub



Private Sub brwWebBrowser_DownloadComplete()
On Error Resume Next
Me.Caption = brwWebBrowser.LocationURL
End Sub


Private Sub brwWebBrowser_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
On Error Resume Next
Dim i As Integer
Dim bFound As Boolean
'Me.Caption = brwWebBrowser.LocationName
Me.Caption = brwWebBrowser.LocationURL
For i = 0 To cboAddress.ListCount - 1
If cboAddress.List(i) = brwWebBrowser.LocationURL Then
bFound = True
Exit For
End If
Next i
mbDontNavigateNow = True
If bFound Then
cboAddress.RemoveItem i
End If
cboAddress.AddItem brwWebBrowser.LocationURL, 0
cboAddress.ListIndex = 0
mbDontNavigateNow = False
End Sub


Private Sub cboAddress_Click()
If mbDontNavigateNow Then Exit Sub
timTimer.Enabled = True
brwWebBrowser.Navigate cboAddress.Text
End Sub


Private Sub cboAddress_KeyPress(KeyAscii As Integer)
On Error Resume Next
If KeyAscii = vbKeyReturn Then
cboAddress_Click
End If
End Sub


Private Sub Form_Resize()
On Error Resume Next
cboAddress.Width = Me.ScaleWidth - 100
brwWebBrowser.Width = Me.ScaleWidth - 100
brwWebBrowser.Height = Me.ScaleHeight - (picAddress.Top + picAddress.Height) - 100
End Sub


Private Sub timTimer_Timer()
If brwWebBrowser.Busy = False Then
timTimer.Enabled = False
Me.Caption = brwWebBrowser.LocationName
Else
Me.Caption = "ACCESANDO....."
End If
End Sub




Espero que me puedan ayudar y si necesitan saber algo más solo avisenme.

mi messenger es [email protected]

[GeoAvila]

podrías guardar en el registro de windows la direccion que queres que se habra o bien guardarla en una variable para se coloque el combo y luego hagas la llamada para que cargue la pagina, si te interes lo de el registro de windows en las faq's esta como utlizar el saveseting y el getseting.

nos vemos..

[carita]

Ojala que alguien más tenga algo más que se apegue a lo que tengo, es raro que visual lo proporcione pero no hay mas informacion sobre de ello.