Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresConnexion

begin process at 2009 01 07 20:17:02

3 ARTICLES SUR SQL SERVER (DATA STRUCTURES, SCANS AND SEEKS, DATA ACCESS STRATEGIES) par RaptorXP

MAIS QUE PEUT BIEN FAIRE UN MVP QUAND IL NE CODE PAS ??? par sebmafate

POWERSHELL : COMMENT EXéCUTER UN SCRIPT PS DEPUIS UNE FENêTRE MS DOS OU SCHEDULED TASK par ROMELARD Fabrice

EDM DESIGNER par Matthieu MEZIL

SMALL BASIC - UN PROJET INTéRESSANT par pierrick

RE : FREEZE POSITION SOURIS par aurel16

RE : AFFICHER L'HEURE par NHenry

RE : COLLECTION par Orohena

RE : FREEZE POSITION SOURIS par PCPT

RE : CAPTURE ECRAN par bigou87

+ de logiciels à télécharger

1 329 433 membres
637 nouveaux aujourd'hui
14 640 membres club

Trouver une ressource

Trouvez une ressource parmi 39 268 codes, 1 222 685 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

LANCEMENT AUTOMATIQUE DE PROGRAMME AU DÉMARRAGE DE WINDOWS AU BOUT D'UN TEMPS DONNÉ APRÈS CELUI-CI, ET EN CAS DE NON-INTERVENTION.

Information sur la source

Catégorie :API Niveau : Débutant Date de création : 14/01/2004 Date de mise à jour : 21/01/2004 17:22:54 Vu : 4 563

Auteur : gandalfkhorne

Ecrire un message privé

Note :
Aucune note

Commentaire sur cette source (0)

Ajouter un commentaire et/ou une note

Description

C'est un petit code tout simple qui malheureusement est incomplet car il y a une petite manipulation à faire dans la base des registre pour qu'il se lance automatiquement (g eu la flemme de faire la partie pour ecrire dans la base reg.) et très utile quand on utilise son ordinateur 24H/24 et qu'il reboot automatiquement, s'il redémarre la nuit alors le programme que vous voulez lancer s'activera, alors que si vous voulez qu'il ne démarre pas vous avez un temps t pour cliquez sur NON.

D'abord dans le menu Démarrer >> Executer; Taper regedit.
Une fois dedans chercher le dossier d'adresse : "HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Run"
Crée une nouvelle valeur chaine (edition>>nouveau>>valeur chaine)
Taper un nom quelconque, puis allez dans Edition>>Modifier et inscrivez l'adresse de l'exe que vous aurez compiler)

Source

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 Declare Function GetTickCount Lib "kernel32" () As Long
Private Sub C1_Click()
End
End Sub
Private Sub Form_Activate()
Caption= "Lancement automatique"
Tps=30
T = GetTickCount()
Do While T + ((Tps+0.1) * 1000) > GetTickCount()
DoEvents
L1.Caption = Tps - Int((GetTickCount() - T) / 1000)
Loop
ShellExecute hwnd, "Open", "Chemin de l'executable à lancer (adresse complète)", ByVal 0&, 0&, SW_Normal
End
End Sub

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 Declare Function GetTickCount Lib "kernel32" () As Long
Private Sub C1_Click()
    End
End Sub
Private Sub Form_Activate()
    Caption= "Lancement automatique"
    Tps=30
    T = GetTickCount()
    Do While T + ((Tps+0.1) * 1000) > GetTickCount()
        DoEvents
        L1.Caption = Tps - Int((GetTickCount() - T) / 1000)
    Loop
    ShellExecute hwnd, "Open", "Chemin de l'executable à lancer (adresse complète)", ByVal 0&, 0&, SW_Normal
    End
End Sub

Conclusion

Il n'y a plus qu'à mettre un command nommé c1 sur la form, modifier deux trois propriétés (borderstyle=1-fixed single, startupposition=1 - centerowner, moveable = false)