Foros del Web » Programación para mayores de 30 ;) » Programación General » Visual Basic clásico »

Lanzar procesos en VB6 (ejecutar aplicaciones externas)

Estas en el tema de Lanzar procesos en VB6 (ejecutar aplicaciones externas) en el foro de Visual Basic clásico en Foros del Web. Amigos: como el Schedule que viene con Windows XP no me funciona (me da error 0x00) me dispuse a hacer mi propio crono Job y ...
  #1 (permalink)  
Antiguo 28/12/2008, 12:55
Avatar de Italico76  
Fecha de Ingreso: abril-2007
Mensajes: 3.303
Antigüedad: 17 años
Puntos: 292
Exclamación Lanzar procesos en VB6 (ejecutar aplicaciones externas)

Amigos: como el Schedule que viene con Windows XP no me funciona (me da error 0x00) me dispuse a hacer mi propio crono Job y tengo un problemita

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:
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
Gracias!!!!!

PD: he probado lanzar un .BAT pero no se lanza tampoco el internet explorer
__________________
Salu2!

Última edición por Italico76; 28/12/2008 a las 13:05
  #2 (permalink)  
Antiguo 28/12/2008, 13:20
Avatar de Italico76  
Fecha de Ingreso: abril-2007
Mensajes: 3.303
Antigüedad: 17 años
Puntos: 292
De acuerdo Respuesta: Lanzar procesos en VB6 (ejecutar aplicaciones externas)

Bueno... al final me funcionó omitiendo el nombre de la aplicacion

Cita:
procesoBx.Text = "http://dir2.com/verif.php"
Termina lanzandose en el Chrome, que es el navegador por defecto pero funciona
__________________
Salu2!
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

SíEste tema le ha gustado a 1 personas




La zona horaria es GMT -6. Ahora son las 22:38.