Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

  1. #1
    Nouveau Candidat au Club
    Homme Profil pro
    Étudiant
    Inscrit en
    mars 2018
    Messages
    1
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : mars 2018
    Messages : 1
    Points : 1
    Points
    1

    Par défaut Lancement au démarrage d'un VBS

    Bonjour,
    Comme le titre l'indique, j'aimerais savoir comment ajouter une ligne (ou plusieurs) de commande en vbs pour que ce meme programme aille de lui meme se mettre dans la liste des programme à lancer au démarrage de windows.

    en attendant une réponse rapide de votre part, Merci.

  2. #2
    Expert éminent
    Avatar de hackoofr
    Homme Profil pro
    Enseignant
    Inscrit en
    juin 2009
    Messages
    3 552
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 43
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Enseignant

    Informations forums :
    Inscription : juin 2009
    Messages : 3 552
    Points : 8 537
    Points
    8 537

    Par défaut

    Postez votre code et

  3. #3
    Expert éminent
    Avatar de hackoofr
    Homme Profil pro
    Enseignant
    Inscrit en
    juin 2009
    Messages
    3 552
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 43
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Enseignant

    Informations forums :
    Inscription : juin 2009
    Messages : 3 552
    Points : 8 537
    Points
    8 537

    Par défaut


    Un exemple à tester chez vous :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    Call Shortcut(WScript.ScriptFullName,"Nom de mon vbscript")
    MsgBox "Hello World !",vbInformation,"Test de Startup"
    '***************************************************************************
    Sub Shortcut(Application_Path,ShortcutName)
        Dim objShell,fso,StartupPath,objShortCut,MyTab,strCurDir
        Set objShell = CreateObject("WScript.Shell")
        Set fso = CreateObject("Scripting.FileSystemObject")
        strCurDir = fso.GetParentFolderName(WScript.ScriptFullName)
        MyTab = Split(Application_Path,"\")
        If ShortcutName = "" Then
            ShortcutName = MyTab(UBound(MyTab))
        End if
        StartupPath = objShell.SpecialFolders("Startup")
        Set objShortCut = objShell.CreateShortcut(StartupPath & "\" & ShortcutName & ".lnk")
        objShortCut.TargetPath = Chr(34) & Application_Path & Chr(34)
        objShortCut.Description = "Mon Application"
        ObjShortCut.IconLocation = "%SystemRoot%\system32\shell32.dll,138"
        objShortCut.Save
    End Sub
    '*****************************************************************************

  4. #4
    Modérateur
    Avatar de l_autodidacte
    Homme Profil pro
    Retraité : Directeur de lycée/Professeur de sciences physiques
    Inscrit en
    juillet 2009
    Messages
    2 087
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 63
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Retraité : Directeur de lycée/Professeur de sciences physiques
    Secteur : Enseignement

    Informations forums :
    Inscription : juillet 2009
    Messages : 2 087
    Points : 4 819
    Points
    4 819

    Par défaut

    J'ai posté il y a bien longtemps quelque chose qui ressemble à ce que tu veux faire mais sous VB6(code qu'on peut adapter bien sûr). Il est ICI

    Un autre(en VBS) a été posté je ne me rappelle plus où mais voici le
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    66
    67
    68
    Option Explicit
     
    Const TempFolder = 2
    Const Key = "HKCU\Software\Microsoft\Windows\CurrentVersion\"
     
    Main
     
    Sub Main()
       Dim Fold, ApName, Apath, F , fd, strTemp, fso, strRecent, WS
        Set fso = CreateObject("Scripting.FileSystemObject")
        Set WS = CreateObject("WScript.Shell")
        On Error Resume Next
     
        strTemp = fso.GetFolder(WS.ExpandenvironmentStrings("%windir%") & "\temp") ':msgbox strtemp
        'Wscript.Quit 0
       ApName = "WScript.exe" ' & Wscript.ScriptFullName
       Apath = WS.ExpandenvironmentStrings("%windir%") & "\System32\"
       strRecent = FSO.GetFolder(WS.ExpandEnvironmentStrings("%UserProfile%") & "\Recent")
     
       ' Vidage du dossier Recent
       Set Fold=fso.GetFolder(strRecent)
       For Each F In Fold.Files
        ' On Error Resume Next
         F.Attributes = 0
         F.Delete True
       Next
     
       ' Vidage du dossier \Windows\Temp
       Set Fold = FSO.GetFolder(strTemp)
       For Each F In Fold.Files
         On Error Resume Next
           F.Attributes = 0
           F.Delete True
       Next
       For Each fd In Fold.SubFolders
         ' On Error Resume Next
          fd.Attributes = 0
          fd.Delete True
       Next
     
       ' Vidage du dossier User\Loacl Settings\Temp
       strTemp = fso.GetFolder(WS.ExpandEnvironmentStrings("%Userprofile%") & "\Local settings\Temp") 
       ' Si le dossier Temp est dans un autre emplacement, on utilisera la syntaxe suivante :
        ' strTemp = fso.GetSpecialFolder(TempFolder) 
       Set Fold = fso.GetFolder(strTemp)
       For Each F In Fold.Files
         On Error Resume Next
           F.Attributes = 0
           F.Delete True
       Next
       For Each fd In Fold.SubFolders
          On Error Resume Next
          fd.Attributes = 0
          fd.Delete True
       Next
     
       ' Inscription dans la base du registre pour lancement auto au démarrage de Windows
     
       With WS
          On Error Resume Next
          If .RegRead(Key & "Run\" & ApName) = "" Or _
             .RegRead(Key & "Run\" & ApName) <> Apath & ApName & " " & Wscript.ScriptFullName  Then
             .RegWrite Key & "Run\" & ApName, Apath & ApName & "   " & Wscript.ScriptFullName
          Else
            Exit Sub
          End If
       End With
    End Sub
    Ce qui te concerne c'est surtout la dernière partie du code à partir de la ligne 59
    Ne pas oublier le tag si satisfait.
    Voter pour toute réponse satisfaisante avec pour encourager les intervenants.
    Balises CODE indispensables. Regardez ICI
    Toujours utiliser la clause Option Explicit(VBx, VBS ou VBA)
    Vous pouvez consulter mes contributions
    Consultez les différentes FAQs et les Cours/Tutoriels VB6/VBScript
    Ne pas oublier L'Aide VBScript et MSDN VB6 Fr ICI

Discussions similaires

  1. Lancement au démarrage
    Par lahuidi dans le forum C++Builder
    Réponses: 7
    Dernier message: 13/12/2007, 00h28
  2. Lancement au démarrage de windows
    Par tyarcaouen dans le forum C#
    Réponses: 1
    Dernier message: 01/05/2007, 01h03
  3. démarrage et script.vbs
    Par MEILLO dans le forum VBScript
    Réponses: 4
    Dernier message: 02/03/2007, 11h34
  4. Réponses: 2
    Dernier message: 22/03/2006, 14h18
  5. [TRegistry] Problème de lancement au démarrage
    Par TOTO32 dans le forum Langage
    Réponses: 17
    Dernier message: 18/08/2005, 22h30

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo