Foro de elhacker.net

Programación => .NET (C#, VB.NET, ASP) => Mensaje iniciado por: dega1980 en 11 Abril 2014, 15:34 pm



Título: timer + process.start vb.net help!!
Publicado por: dega1980 en 11 Abril 2014, 15:34 pm

tengo este código asociado a un timer,que cada 30 segundos abre estas dos webs a la vez,pero lo que quiero es que me abra una cada 30 segundos,primero una y después a los 30 segundos la otra como lo debería hacer


Código
  1. Public Class Form1
  2.  
  3.    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
  4.        Dim url As String = "http://www.facebook.com"
  5.        Process.Start(url)
  6.        Dim url2 As String = "https://www.google.es"
  7.        Process.Start(url2)
  8.    End Sub
  9.  
  10.    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  11.        Timer1.Interval = 30000
  12.    End Sub
  13. End Class


Título: Re: timer + process.start vb.net help!!
Publicado por: Maurice_Lupin en 11 Abril 2014, 16:53 pm
Esto deberia funcionar.
Código
  1.    Public Class Form1
  2.       Dim cambio As Boolean = false
  3.       Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
  4.           Dim url As String = ""
  5.           If cambio Then
  6.                url = "http://www.facebook.com"
  7.           Else
  8.                url = "https://www.google.es"
  9.           End If
  10.           cambio = Not cambio
  11.           Process.Start(url)
  12.       End Sub
  13.  
  14.       Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  15.           Timer1.Interval = 30000
  16.       End Sub
  17.    End Class
  18.  

Saludos.


Título: Re: timer + process.start vb.net help!!
Publicado por: dega1980 en 11 Abril 2014, 17:07 pm
Esto deberia funcionar.
Código
  1.    Public Class Form1
  2.       Dim cambio As Boolean = false
  3.       Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
  4.           Dim url As String = ""
  5.           If cambio Then
  6.                url = "http://www.facebook.com"
  7.           Else
  8.                url = "https://www.google.es"
  9.           End If
  10.           cambio = Not cambio
  11.           Process.Start(url)
  12.       End Sub
  13.  
  14.       Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  15.           Timer1.Interval = 30000
  16.       End Sub
  17.    End Class
  18.  

Saludos.

Va perfecto gracias
  ;-)