lancement d'une application externe avec un temporisateur et un intervalle varia

Question

Bonjour &#224; tous !

Je sais que ce genre de questions existent d&#233;j&#224;, mais je n'ai pas r&#233;ussi &#224; utiliser ce que j'ai trouv&#233;...

Comme je le dit dans le sujet, je voudrais lancer une application externe (c:	est.bat) &#224; intervalles r&#233;guliers, et en modifiant cet intervalle... Voici la liste des composants et leur nom : 
- NumericUpDown1 => permet de modifier l'intervalle en minutes
- Timer1 => c'est le timer de mon programme

Je sais aussi que l'intervalle doit etre en milisecondes, et ne dois pas d&#233;passer 60s soit 1min.
Je pense qu'il faudrait demander &#224; Timer1 de se r&#233;p&#233;ter le nombre de fois inscrit dans NumericUpDown1, et en r&#233;gant son intervalle sur 1min.

Ce que j'ai d&#233;ja fait, c'est d'invoquer le Timer grace &#224; ce code :
Imports System
Imports System.Timers
Imports System.Threading



Public Class Timer1


    Public Shared Sub Main()
        Dim aTimer As New System.Timers.Timer
        AddHandler aTimer.Elapsed, AddressOf OnTimedEvent
        ' Set the Interval to 5 seconds.
        aTimer.Interval = 5000
        aTimer.Enabled = True
    End Sub


    Private Shared Sub OnTimedEvent(ByVal source As Object, ByVal e As ElapsedEventArgs)
        Shell("c:	est.bat")
    End Sub
End Class
Logiquement, avec ce code, l'application devrait se lancer au moins une fois, mais elle ne se lance jamais...

J'esp&#232;re que quelqu'un pourra m'aider... Merci &#224; tous !!

remilafouine · Answer

D&#233;sol&#233;, le code exact est :
Imports System
Imports System.Timers
Imports System.Threading 
**********************************
Code de la fen&#234;tre Form1
**********************************


    Public Shared Sub Main()
        Dim aTimer As New System.Timers.Timer
        AddHandler aTimer.Elapsed, AddressOf OnTimedEvent
        ' Set the Interval to 5 seconds.
        aTimer.Interval = 5000
        aTimer.Enabled = True
    End Sub


    Private Shared Sub OnTimedEvent(ByVal source As Object, ByVal e As ElapsedEventArgs)
        Shell("c:	est.bat")
    End Sub
End Class

Normalement, l'application devrait se lancer toutes les 5 secondes dans cet exemple, mais elle ne se lance pas du tout...
Et encore plus bizarre, mon programme s'ouvre et se referme dessuite... et elle ne lance meme pas l'application externe...

domsig · Answer

je crois qu'il faut d&#233;clarer une variable et lui affecter le retour du shell, du style :

Private Shared Sub OnTimedEvent(ByVal source As Object, ByVal e As ElapsedEventArgs)
dim x as variant
x=        Shell("c:	est.bat")
    End Sub

en tout  cas en vb6, et d'apr&#232;s l'aide de vb.net c'est le cas aussi.

bon courage

remilafouine · Answer

Tu veux dire que je dois remplacer le code pr&#233;c&#233;dent par celui la ?

J'ai essay&#233; de remplacer la partie Private Shared Sub... de mon code, mais la fen&#234;tre ne se lance pas...
Enfin, si, elle se lance, mais je n'ai rien &#224; mon &#233;cran, puis l'application se termine toute seule et je reviens automatiquement &#224; Visual Stuido .Net...

domsig · Answer

tiens voil&#224; ton code tel que tu l'as expos&#233; ci-dessus, modifi&#233; comme je pense qu'il doit l'&#234;tre :



Imports System
Imports System.Timers
Imports System.Threading  
**********************************
Code de la fen&#234;tre Form1
**********************************


 
    Public Shared Sub Main()
        Dim aTimer As New System.Timers.Timer
        AddHandler aTimer.Elapsed, AddressOf OnTimedEvent
        ' Set the Interval to 5 seconds.
        aTimer.Interval =  5000
        aTimer.Enabled = True
    End Sub


     Private Shared Sub OnTimedEvent(ByVal source As Object, ByVal e As ElapsedEventArgs)

     dim x as variant 

    x = Shell("c:	est.bat")
    End Sub
End Class

voil&#224; j'esp&#232;re que &#231;a marche sinon n'h&#233;site pas j'ai vb.net au bureau...

remilafouine · Answer

J'ai essay&#233;, mais ca ne marche toujours pas...

Quand je presse la touche F5 pour tester l'application, Visual Studio
.Net 2003 se met en mode "Lecture Seule" comme si il lan&#231;ait
l'application, mais revient dessuite en mode "Edition", et ne lance pas
l'application...
 J'ai essay&#233; de la lancer manuellement en allant dans Mes Documents, mais l'application se referme des que je la lance...



Peut &#234;tre que &#231;a vient de mon syst&#232;me d'exploitation... J'ai Windows
Codename Longhorn Build 4074... C'est peut &#234;tre un imcompatibilit&#233; au
niveau du Framework...

remilafouine · Answer

J'ai essay&#233; de faire une action en boucle.Voila le code que j'ai utilis&#233; :


Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim test, message
test = Shell("c:	est.bat")
message = Shell("c:\message.bat")
boucle:
test.Run()
test.Sleep(5000)
message.Run()
message.Sleep(10000)
Goto boucle
End Sub

Ce qui est certain, c'est que j'ai fait une grosse b&#233;tise... L'application s'est lanc&#233;e, et a d&#233;marr&#233; toutes les lignes de commande sans s'arr&#233;ter, en boucle, sans attendre les 5 et 10 secondes...
En gros, plantage du PC car ressources utilis&#233;es &#224; 100%, et 2590 Mo de m&#233;moire (physique + virtuelle) utilis&#233;e sur 2000 environ... R&#233;sultat, un reboot forc&#233;...

HELP PLEASE !!!

Lancement d'une application externe avec un temporisateur et un intervalle varia

6 réponses

Discussions similaires