execution automatique d'un programme vb

Question

Besoin d'une petite aide!!

Je souhaiterai executer un programme a un moment pr&#233;sice de maniere automatique.
cela est -il possible, si oui comment?
Je pense que un TIMER serai la solution mais je n'en connai pas l'utilisation malgr&#232;s que selon mes source cela s'avere relativement simple...

En vous remerciant &#224; l'avance de votre aide.

PS : Vite, Vite, Vite.

cs_casy · Answer

Pourrais-tu &#234;tre plus explicite dans ta demande ?



Si c'est pour ex&#233;cuter un logiciel &#224; une date et heure pr&#233;cise style
d&#233;fragmentation des disques ou analyse par l'antivirus, tu peux passer
par le gestionnaire de taches planifi&#233;es de Windows.

reymoise · Answer

Non,non .

C'est pour lancer un prog VB que g r&#233;aliser . il genere l'envoi de mail a l'aide de outlook.
Ce programme va etre utiliser par plusieur personnes (22).
C un fichier joint qui va passer de personne en personne .Il leur est donn&#233; un temps limit&#233; pour faire passer le mail a la personne suivante donc il faut que mon programme s'active automatiquement et non en cliquant sur l'executable!

Voila j'espere que g &#233;t&#233; assez clair...

Cordialement reymoise

cs_casy · Answer

donc il faut que mon programme s'active automatiquement


2 solutions : 

Soit tu as cod&#233; ton soft pour qu'il se lance, envoi ton mail et
s'arr&#234;te. Dans ce cas il faut que tu l'ex&#233;cute r&#233;guli&#232;rement et dans le
gestionnaire de taches planifi&#233;es se charge de l'affaire sans probl&#232;me.


Soit ton soft tourne en permanence en tache de fond et toutes les x
minutes appele la fonction d'envoi que tu as cod&#233;. Dans ce cas, il te
faut une boucle infinie dans laquelle tu viens tester l'heure syst&#232;me
et quand elle corespond &#224; ton crit&#232;re tu apelle la fonction d'envoi.



Tu peux aussi  utiliser un objet timer que tu pose sur ta 
feuille, tu programme la propri&#233;t&#233; Interval avec ta p&#233;riode de
d&#233;clenchement, attention en millisecondes, maxi 65535 soit 65 secondes
mais avec un peu de code tu peux monter &#224; plusieurs minutes voire plus.



Ton timer te g&#233;n&#232;re un &#233;v&#232;nement g&#233;r&#233; par la fonction  Private Sub TonTimer_Timer () 
c'est dans cette proc&#233;dure que tu met ton code d'appel. 



En esp&#233;rant avoir un peu mieux compris ta demande cette fois-ci

cs_algori · Answer

Faut juste ne pas oublier de mettre une cl&#233; dans le registre pour que cela se relance &#224; chaque d&#233;marrage...
@++

reymoise · Answer

Je vous remercie de cette petite aide...

cs_algori · Answer

De rien...
Tchao et bonne prog...

cs_casy · Answer

Tiens il vient d'avoir une mise &#224; jour sur une des sources. J'ai
pas regard&#233; le code, mais selon les explications tu devrais trouver je
pense quelques pistes dedans


http://www.vbfrance.com/code.aspx?ID=21567

zippro4012 · Answer

Pour enregistrer un prog dans le registre pour qu'il se d&#233;marrage automatiquement avec le code :

Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" ( _
                 ByVal hKey As Long, _
                 ByVal lpSubKey As String, _
                 phkResult As Long) As Long


Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" ( _
                 ByVal hKey As Long, _
                 ByVal lpValueName As String, _
                 ByVal Reserved As Long, _
                 ByVal dwType As Long, _
                 lpData As Any, _
                 ByVal cbData As Long) As Long


Declare Function RegCloseKey Lib "advapi32.dll" ( _
                 ByVal hKey As Long) As Long

Public Const HKEY_LOCAL_MACHINE As Long = &H80000002
Public Const REG_SZ As Long = 1

Sub CreateStartKey()
  Dim KeyHandle As Long, KeyValue As String, KeyLength As Long
  Dim KeyResult As Long, KeyResult2 As Long
  KeyValue = Space(255)
  KeyLength = Len(KeyValue)
  RegOpenKey HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows\CurrentVersion\Run", KeyHandle
    KeyResult2 = RegSetValueEx(KeyHandle, NomDuProg, 0, REG_SZ, ByVal CheminDuProg, Len(ExeFile))
    If KeyResult2 <> 0 Then
      MsgBox "Erreur !", vbCritical
    End If
RegCloseKey KeyHandle
End Sub

Vive les APIs !

Execution automatique d'un programme vb

8 réponses

Discussions similaires