Foro de elhacker.net

Eliminar post, problema solucionado

Se me ocurre que no has puesto intervalo inicial al Timer, de esta manera, aunque lo habilites, no ocurriría nada... :-\

Yo haía algo así:

Option Explicit
 
Private Sub Command1_Click()
    WebBrowser1.Visible = True ' No era necesario ponerlo en el timer (supongo)
    Call ChangeInterval
    Timer1.Enabled = True
    Call Timer1_Timer
End Sub
 
Private Sub Command2_Click()
    Timer1.Enabled = False
    Text1.Locked = False
    WebBrowser1.Visible = False
End Sub
 
Private Sub Form_Load()
    Me.Caption = "Long Life To Frogs! :D"
    WebBrowser1.Visible = False
    Timer1.Enabled = False
    Text2.Text = "5000" ' cada 5 seg
    Text1.Text = "http://www.google.es"
End Sub
 
Private Sub ChangeInterval()
    Timer1.Interval = CLng(Text2.Text)
End Sub
 
Private Sub Timer1_Timer()
    WebBrowser1.Navigate Text1.Text
    Call ChangeInterval
    ' ¿Esto es necesario que vaya aqui?; si quieres que el tiempo no pueda ser modificado cuando el Timer esté activado
    ' esto estaría de más... :P
End Sub

---

La otra cosa que se me ocurre es que si no cambias la pág de Text1, se cargará la misma y igual no te das cuenta.
No sé, solo digo todas las posibilidades que me vienen a la cabeza... :P

Al menos a mi me funciona así... :silbar:
Feliz año! ;)

DoEvents! :P

No lo he probado, pero tener el tiempo del timer definido al final del mismo timer da una mala sensacion ya por funcionamiento. Yo de ti, la linea que defines el tiempo la pondria en el command1 quedando asi:

Private Sub Command1_Click()
Timer1.Interval = Text2.Text
Timer1.Enabled = True
End Sub
 
Private Sub Command2_Click()
Timer1.Enabled = False
Text1.Locked = False
End Sub
 
Private Sub Timer1_Timer()
WebBrowser1.Visible = True
WebBrowser1.Navigate Text1.Text
End Sub

Por otra parte, en el timer1 pones visible=true, porque no lo defines desde un inicio como true? o almenos en el object inspector (ventana propiedades) define el objeto como visible y el intervalo de tiempo, asi ya no necesitaras escribir esas dos lineas.

Eliminar post, problema solucionado

Como es Nochevieja, te hice el ejemplo:
http://www.mediafire.com/?293vathdo29igu4

DoEvents! :P

Yo lo probe y funcioan, como que no te funciona? Eso es que debes poner algo mal o un error similar, no puede ser que ese programa de 5 lineas no te funcione.  :xD

Por cierto, para que es la aplicacion? Te aviso que si es un intento de programa DDoser o  para hacer votaciones o ganar visitas etc.. no te funcionara.