Si quiero ejecutar el Internet explorer (iexplore) no hay ningun problema y es lanzado la cantidad de veces y en los tiempos que he especificado
PERO.... si le paso un parametro al iexplore.exe como "iexplore http://dir2.com/verif.php" entonces no se lanza nada!

Les dejo el codigo a ver si pueden ayudarme

Cita:
Gracias!!!!!Private Declare Function ShellExecute Lib "shell32.dll" Alias _
"ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub ejecutar_Click()
Timer1.Interval = Val(msBx.Text) * 1000
Timer1.Enabled = True
End Sub
Sub form_load()
procesoBx.Text = "iexplore http://dir2.com/verif.php" ' proceso a lanzar
msBx.Text = 2 ' cada xx segundos
vecesBx.Text = 3 ' cantidad de lanzamientos
End Sub
Private Sub Timer1_Timer()
dec_veces
If (veces >= 0) Then
ShellExecute 0&, vbNullString, procesoBx.Text, vbNullString, vbNullString, vbNormalFocus ' lanzo proceso
Else: Timer1.Enabled = False
End If
End Sub
Function veces()
veces = Int(Val(vecesBx.Text))
End Function
Function dec_veces()
vecesBx.Text = Str(veces - 1)
End Function
"ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub ejecutar_Click()
Timer1.Interval = Val(msBx.Text) * 1000
Timer1.Enabled = True
End Sub
Sub form_load()
procesoBx.Text = "iexplore http://dir2.com/verif.php" ' proceso a lanzar
msBx.Text = 2 ' cada xx segundos
vecesBx.Text = 3 ' cantidad de lanzamientos
End Sub
Private Sub Timer1_Timer()
dec_veces
If (veces >= 0) Then
ShellExecute 0&, vbNullString, procesoBx.Text, vbNullString, vbNullString, vbNormalFocus ' lanzo proceso
Else: Timer1.Enabled = False
End If
End Sub
Function veces()
veces = Int(Val(vecesBx.Text))
End Function
Function dec_veces()
vecesBx.Text = Str(veces - 1)
End Function
PD: he probado lanzar un .BAT pero no se lanza tampoco el internet explorer