Foros del Web » Programación para mayores de 30 ;) » .NET »

Necesito una ayudita

Estas en el tema de Necesito una ayudita en el foro de .NET en Foros del Web. Hola buenos dias, me llamo emmanuel y tengo 14 años, estoy programando un programa que entre a una pagina, con 1 timer q me cambie ...
  #1 (permalink)  
Antiguo 19/06/2009, 09:14
 
Fecha de Ingreso: junio-2009
Mensajes: 2
Antigüedad: 14 años, 10 meses
Puntos: 0
De acuerdo Necesito una ayudita

Hola buenos dias, me llamo emmanuel y tengo 14 años, estoy programando un programa que entre a una pagina, con 1 timer q me cambie la ip y con otro timer actualize la pagina , interconecte esos timer y hice como un loop. Lo que no entiendo es como hacer para que cuando haya un error de pagina o que no entre o algo la vuelva a cargar.. les dejo el codigo:

Código PHP:
Imports System.Web

Public Class Form1
    
'Private Sub btnIr_Click(ByVal sender As System.Object, _
    '
ByVal e As System.EventArgsHandles btnIr.Click
    
'El metodo Navigate me da el valor puesto en la entrada de texto
    '
Me.WBuscador.Navigate(Me.cbBuscador.Text)
    
'Agrego la direccion al buscador (asi podre consultarla sin tener que teclearla)
    '
Me.cbBuscador.Items.Add(Me.cbBuscador.Text)
    
'System.Diagnostics.Process.Start("adsl")
    '
End Sub

    
Private Sub Form1_Load(ByVal sender As System.Object_
    ByVal e 
As System.EventArgsHandles MyBase.Load

        
'If WBuscador.Visible = True Then
        '    ' La pagina a donde se quiere ir.
        '
Me.WBuscador.Navigate("XXXXXXcom")
        
' Timer encendido
        '
Timer1.Enabled True
        
'System.Diagnostics.Process.Start("adsl")
        '
End If



    
End Sub
    
Private Sub Timer1_Tick(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Timer1.Tick
        terminado 
1
        System
.Diagnostics.Process.Start("adsl")

        
Timer1.Enabled False
        Timer2
.Enabled True

    End Sub
    
Private Sub Timer2_Tick(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Timer2.Tick
        
If terminado 1 Then
            
Try
                
Me.WBuscador.Refresh()
            Catch 
ex As Exception
                Me
.WBuscador.GoBack()
                
Me.WBuscador.Refresh()
            
End Try
            
Timer1.Enabled True
            Timer2
.Enabled False
        End 
If

        
Timer2.Enabled False

    End Sub

    
Private Sub Button1_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button1.Click
        
If WBuscador.Visible True Then
            
Try
                
' La pagina a donde se quiere ir.
                Me.WBuscador.Navigate(TextBox1.Text)
            Catch ex As Exception
                Me.WBuscador.GoBack()
                Me.WBuscador.Refresh()
            End Try
            ' 
Timer encendido
            Timer1
.Enabled True
            System
.Diagnostics.Process.Start("adsl")
        
End If
    
End Sub

    
Private Sub Button2_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button2.Click
        Form2
.Show()
    
End Sub

    
Private Sub Button5_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button5.Click
        Me
.WBuscador.GoForward()

    
End Sub

    
Private Sub Button4_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button4.Click
        Me
.WBuscador.GoBack()
    
End Sub

    
Private Sub Button3_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button3.Click
        Me
.WBuscador.Stop()
    
End Sub
End 
Class 
Desde ya muchas gracias :D
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 00:07.