Código PHP:
Imports System.Web
Public Class Form1
'Private Sub btnIr_Click(ByVal sender As System.Object, _
'ByVal e As System.EventArgs) Handles 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.EventArgs) Handles 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.Object, ByVal e As System.EventArgs) Handles 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.Object, ByVal e As System.EventArgs) Handles 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.Object, ByVal e As System.EventArgs) Handles 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.Object, ByVal e As System.EventArgs) Handles Button2.Click
Form2.Show()
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Me.WBuscador.GoForward()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Me.WBuscador.GoBack()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Me.WBuscador.Stop()
End Sub
End Class