Ver Mensaje Individual
  #1 (permalink)  
Antiguo 28/12/2008, 12:55
Avatar de Italico76
Italico76
 
Fecha de Ingreso: abril-2007
Mensajes: 3.303
Antigüedad: 17 años, 1 mes
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