[Ex] Verrouiller, fermer, redémarrer ou arrêter le PC

[scorp84]

Bonjour à tous,

Ayant toujours trouvé une âme charitable sur ce forum pour me dépatouiller en cas de problème, à mon tour d'y contribuer.

Je vous propose un utilitaire bien modeste mais pratique.

Il permet :
- de verrouiller ou de fermer la session
- de redémarrer ou d'arrêter le PC

et ce, avec ou sans message de confirmation avant d'exécuter l'action.

Voici son code (sûrement perfectible hi hi hi) :

► Afficher le texte

Code : Tout sélectionner

; DESCRIPTIF SCRIPT
; MODELE DE SCRIPT : 2.19
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
Dim $script_titre, $script_desc, $auteur, $maj

$script_titre="BM'TOOLS"
$script_desc="Permet de verrouiller ou de fermer une session, de redémarrer ou d'arrêter le PC"
$auteur="BM"
$maj="25/02/2010"
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

; INCLUDES
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
#include<ButtonConstants.au3>
#include<GUIConstantsEx.au3>
#include<Process.au3>
#NoTrayIcon
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

#Region ### START Koda GUI section ### Form=r:\scripts\autoit - scripts\bm'tools - arrêt et redémarrage\arret3.kxf
$Form1 = GUICreate("BM'Tools", 186, 194, -1, -1)
$MenuItem1 = GUICtrlCreateMenu("&Fichier")
$MenuQuitter = GUICtrlCreateMenuItem("Quitter", $MenuItem1)
$MenuItem2 = GUICtrlCreateMenu("?")
$MenuMail = GUICtrlCreateMenuItem("Contacter l'auteur", $MenuItem2)
$Menuweb = GUICtrlCreateMenuItem("Site web de l'auteur", $MenuItem2)
$MenuApropos = GUICtrlCreateMenuItem("A propos de...", $MenuItem2)
$Btn_logoff = GUICtrlCreateButton("VERROUILLER SESSION", 7, 24, 171, 30, $BS_FLAT)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetBkColor(-1, 0xFFFF00)
GUICtrlSetCursor (-1, 0)
$Btn_arret = GUICtrlCreateButton("ARRETER PC", 7, 133, 171, 30, $BS_FLAT)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetBkColor(-1, 0xFF0000)
GUICtrlSetCursor (-1, 0)
$Btn_redem = GUICtrlCreateButton("REDEMARRER PC", 7, 97, 171, 30, $BS_FLAT)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetBkColor(-1, 0x00FF00)
GUICtrlSetCursor (-1, 0)
$Case_confirm = GUICtrlCreateCheckbox("Sans confirmation", 70, 2, 108, 22)
$Btn_fermer = GUICtrlCreateButton("FERMER SESSION", 7, 61, 171, 30, $BS_FLAT)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetBkColor(-1, 0xFF9900)
GUICtrlSetCursor (-1, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

; ACTIVATION CONFIRMATION OU NON
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

$reg_HKEY="HKEY_LOCAL_MACHINE\SOFTWARE\BMTOOLS\BMARRET"
;$reg_cle=DriveGetLabel(StringLeft(@ScriptDir, 3))
$reg_cle="Sans_Confirmation"
$reg_cle=StringRegExpReplace($reg_cle, " ", "")
$reg_type="REG_SZ"
$reg_val="0"

; Lire clé de registre
$lecture=RegRead($reg_HKEY,$reg_cle)

; Crée clé si n'existe pas
If $lecture=0 Then
    $ecriture=RegWrite($reg_HKEY, $reg_cle, $reg_type , $reg_val)
EndIf

; Récup valeur clé registre
$reg_val=RegRead($reg_HKEY,$reg_cle)
;MsgBox(0,$reg_cle,$reg_val)

If $reg_val=1 Then
    GUICtrlSetState($Case_confirm, $GUI_CHECKED)
EndIf

; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

Dim $rep

Func _Confirmation($msg)

    ; Récup valeur clé registre
    $reg_val=RegRead($reg_HKEY,$reg_cle)
    ;MsgBox(0,$reg_cle,$reg_val)

    If $reg_val=0 Then
        $rep_mgbox=MsgBox(4,$script_titre,$msg)

        If $rep_mgbox==7 Then
            $rep="NON"
        Else
            $rep="OUI"
        EndIf

    Else
        $rep="OUI"
    EndIf



    Return $rep

EndFunc

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

        Case $Case_confirm

            $btn_etat  = GUICtrlRead($Case_confirm)

            if $btn_etat=1 Then

                _Confirmation("Si vous cochez cette case, l'action sera exécutée sans message de confirmation." & @LF & "Confirmez-vous l'exécution directe SANS MESSAGE DE CONFIRMATION ?")

                If $rep="OUI" Then
                    $ecriture=RegWrite($reg_HKEY, $reg_cle, $reg_type , "1")
                Else
                    $ecriture=RegWrite($reg_HKEY, $reg_cle, $reg_type , "0")
                    GUICtrlSetState($Case_confirm, $GUI_UNCHECKED)
                EndIf
            Else
                $ecriture=RegWrite($reg_HKEY, $reg_cle, $reg_type , "0")
            EndIf


        Case $MenuQuitter
            Exit

        Case $MenuMail
            _RunDos("start http://www.bm.fr/contact/contact1.php?objet=Off"&#41;

        Case $Menuweb
            _RunDos("start http://www.bm.fr"&#41;

        Case $MenuApropos
            MsgBox(0,$script_titre,$script_desc & @LF & $auteur & " - v. " & $maj)

        Case $Btn_logoff

            _Confirmation("Voulez vous verrouiller la session ?")

            If $rep="OUI" Then
                Run("rundll32.exe user32.dll,LockWorkStation")
                Exit
            EndIf

        Case $Btn_fermer

            _Confirmation("Voulez vous fermer la session ?")

            If $rep="OUI" Then
                Run("shutdown.exe -l -t 0")
                Exit
            EndIf

        Case $Btn_redem

            _Confirmation("Voulez vous redémarrer le PC ?")

            If $rep="OUI" Then
                Shutdown (6)
            EndIf

        Case $Btn_arret

            _Confirmation("Voulez vous arrêter le PC ?")

            If $rep="OUI" Then
                Shutdown (5)
            EndIf

    EndSwitch
WEnd
 

En espérant que cela puisse vous servir.

Amicalement.

BM

[Mikaas]

J'ai une error au niveau de la ligne 132 Unable to parse line.

[Narmeke]

Effectivement, il semblerait qu'une erreur existe au niveau du lancement du site web de l'auteur !
Je me suis permis d'effectuer une correction :

► Afficher le texte

Code : Tout sélectionner

; DESCRIPTIF SCRIPT
; MODELE DE SCRIPT : 2.19
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
Dim $script_titre, $script_desc, $auteur, $maj

$script_titre="BM'TOOLS"
$script_desc="Permet de verrouiller ou de fermer une session, de redémarrer ou d'arrêter le PC"
$auteur="Bertrand Mounier - http://www.bmweb.fr"
$maj="25/02/2010"
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

; INCLUDES
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
#include<ButtonConstants.au3>
#include<GUIConstantsEx.au3>
#include<Process.au3>
#NoTrayIcon
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

#Region ### START Koda GUI section ### Form=r:\scripts\autoit - scripts\bm'tools - arrêt et redémarrage\arret3.kxf
$Form1 = GUICreate("BM'Tools", 186, 194, -1, -1)
$MenuItem1 = GUICtrlCreateMenu("&Fichier")
$MenuQuitter = GUICtrlCreateMenuItem("Quitter", $MenuItem1)
$MenuItem2 = GUICtrlCreateMenu("?")
$MenuMail = GUICtrlCreateMenuItem("Contacter l'auteur", $MenuItem2)
$Menuweb = GUICtrlCreateMenuItem("Site web de l'auteur", $MenuItem2)
$MenuApropos = GUICtrlCreateMenuItem("A propos de...", $MenuItem2)
$Btn_logoff = GUICtrlCreateButton("VERROUILLER SESSION", 7, 24, 171, 30, $BS_FLAT)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetBkColor(-1, 0xFFFF00)
GUICtrlSetCursor (-1, 0)
$Btn_arret = GUICtrlCreateButton("ARRETER PC", 7, 133, 171, 30, $BS_FLAT)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetBkColor(-1, 0xFF0000)
GUICtrlSetCursor (-1, 0)
$Btn_redem = GUICtrlCreateButton("REDEMARRER PC", 7, 97, 171, 30, $BS_FLAT)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetBkColor(-1, 0x00FF00)
GUICtrlSetCursor (-1, 0)
$Case_confirm = GUICtrlCreateCheckbox("Sans confirmation", 70, 2, 108, 22)
$Btn_fermer = GUICtrlCreateButton("FERMER SESSION", 7, 61, 171, 30, $BS_FLAT)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetBkColor(-1, 0xFF9900)
GUICtrlSetCursor (-1, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

; ACTIVATION CONFIRMATION OU NON
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

$reg_HKEY="HKEY_LOCAL_MACHINE\SOFTWARE\BMTOOLS\BMARRET"
;$reg_cle=DriveGetLabel(StringLeft(@ScriptDir, 3))
$reg_cle="Sans_Confirmation"
$reg_cle=StringRegExpReplace($reg_cle, " ", "")
$reg_type="REG_SZ"
$reg_val="0"

; Lire clé de registre
$lecture=RegRead($reg_HKEY,$reg_cle)

; Crée clé si n'existe pas
If $lecture=0 Then
    $ecriture=RegWrite($reg_HKEY, $reg_cle, $reg_type , $reg_val)
EndIf

; Récup valeur clé registre
$reg_val=RegRead($reg_HKEY,$reg_cle)
;MsgBox(0,$reg_cle,$reg_val)

If $reg_val=1 Then
    GUICtrlSetState($Case_confirm, $GUI_CHECKED)
EndIf

; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

Dim $rep

Func _Confirmation($msg)

    ; Récup valeur clé registre
    $reg_val=RegRead($reg_HKEY,$reg_cle)
    ;MsgBox(0,$reg_cle,$reg_val)

    If $reg_val=0 Then
        $rep_mgbox=MsgBox(4,$script_titre,$msg)

        If $rep_mgbox==7 Then
            $rep="NON"
        Else
            $rep="OUI"
        EndIf

    Else
        $rep="OUI"
    EndIf



    Return $rep

EndFunc

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

        Case $Case_confirm

            $btn_etat  = GUICtrlRead($Case_confirm)

            if $btn_etat=1 Then

                _Confirmation("Si vous cochez cette case, l'action sera exécutée sans message de confirmation." & @LF & "Confirmez-vous l'exécution directe SANS MESSAGE DE CONFIRMATION ?")

                If $rep="OUI" Then
                    $ecriture=RegWrite($reg_HKEY, $reg_cle, $reg_type , "1")
                Else
                    $ecriture=RegWrite($reg_HKEY, $reg_cle, $reg_type , "0")
                    GUICtrlSetState($Case_confirm, $GUI_UNCHECKED)
                EndIf
            Else
                $ecriture=RegWrite($reg_HKEY, $reg_cle, $reg_type , "0")
            EndIf


        Case $MenuQuitter
            Exit
[color=#80FF00]
        Case $MenuMail
            Run("explorer http://www.bmweb.fr/contact/contact1.php" )

        Case $Menuweb
            Run("explorer http://www.bmweb.fr/" )[/color]

        Case $MenuApropos
            MsgBox(0,$script_titre,$script_desc & @LF & $auteur & " - v. " & $maj)

        Case $Btn_logoff

            _Confirmation("Voulez vous verrouiller la session ?")

            If $rep="OUI" Then
                Run("rundll32.exe user32.dll,LockWorkStation")
                Exit
            EndIf

        Case $Btn_fermer

            _Confirmation("Voulez vous fermer la session ?")

            If $rep="OUI" Then
                Run("shutdown.exe -l -t 0")
                Exit
            EndIf

        Case $Btn_redem

            _Confirmation("Voulez vous redémarrer le PC ?")

            If $rep="OUI" Then
                Shutdown (6)
            EndIf

        Case $Btn_arret

            _Confirmation("Voulez vous arrêter le PC ?")

            If $rep="OUI" Then
                Shutdown (5)
            EndIf

    EndSwitch
WEnd

 

[scorp84]

Merci à Mikaas pour ta remarque et à Narmeke pour ta correction

Amicalement.

BM

[Tlem]

La commande ShellExecute() est plus appropriée car elle permettra le lancement du navigateur par défaut.

PS: Évitez de reprendre à chaque fois l'intégralité du code, cela n'a aucun intérêt et contribue à perdre le lecteur.
La citation de la portion de code incriminée est bien plus simple et plus instructif.

Merci.

[scorp84]

Merci Tlem pour ton aide précieuse (une fois de plus )

Amicalement.

BM

[Mikaas]

Je vais peut etre dire une ânnerie mais j'aurai plus mis à la place de :

► Afficher le texte

Code : Tout sélectionner

Case $MenuMail
Run("explorer http://www.bmweb.fr/contact/contact1.php" )

Case $Menuweb
Run("explorer http://www.bmweb.fr/" )

mettre ceci :

► Afficher le texte

Code : Tout sélectionner

Case $MenuMail
$NAV=RegRead("HKEY_CLASSES_ROOT\http\shell\open\command","")
    $LIEN=StringRegExpReplace($NAV,'\A[^"]*"([^"]+)".*\Z','\1')
    ShellExecute($LIEN,"http://www.bmweb.fr/contact/contact1.php")

Case $Menuweb
$NAV=RegRead("HKEY_CLASSES_ROOT\http\shell\open\command","")
    $LIEN=StringRegExpReplace($NAV,'\A[^"]*"([^"]+)".*\Z','\1')
    ShellExecute($LIEN,"http://www.bmweb.fr/")

code final :

► Afficher le texte

Code : Tout sélectionner

; DESCRIPTIF SCRIPT
; MODELE DE SCRIPT : 2.19
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
Dim $script_titre, $script_desc, $auteur, $maj

$script_titre = "BM'TOOLS"
$script_desc = "Permet de verrouiller ou de fermer une session, de redémarrer ou d'arrêter le PC"
$auteur = "Bertrand Mounier - http://www.bmweb.fr"
$maj = "25/02/2010"
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

; INCLUDES
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
#RequireAdmin

#include<ButtonConstants.au3>
#include<GUIConstantsEx.au3>
#include<Process.au3>
#NoTrayIcon
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

#Region ### START Koda GUI section ### Form=r:\scripts\autoit - scripts\bm'tools - arrêt et redémarrage\arret3.kxf
$Form1 = GUICreate("BM'Tools", 186, 194, -1, -1)
$MenuItem1 = GUICtrlCreateMenu("&Fichier")
$MenuQuitter = GUICtrlCreateMenuItem("Quitter", $MenuItem1)
$MenuItem2 = GUICtrlCreateMenu("?")
$MenuMail = GUICtrlCreateMenuItem("Contacter l'auteur", $MenuItem2)
$Menuweb = GUICtrlCreateMenuItem("Site web de l'auteur", $MenuItem2)
$MenuApropos = GUICtrlCreateMenuItem("A propos de...", $MenuItem2)
$Btn_logoff = GUICtrlCreateButton("VERROUILLER SESSION", 7, 24, 171, 30, $BS_FLAT)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetBkColor(-1, 0xFFFF00)
GUICtrlSetCursor(-1, 0)
$Btn_arret = GUICtrlCreateButton("ARRETER PC", 7, 133, 171, 30, $BS_FLAT)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetBkColor(-1, 0xFF0000)
GUICtrlSetCursor(-1, 0)
$Btn_redem = GUICtrlCreateButton("REDEMARRER PC", 7, 97, 171, 30, $BS_FLAT)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetBkColor(-1, 0x00FF00)
GUICtrlSetCursor(-1, 0)
$Case_confirm = GUICtrlCreateCheckbox("Sans confirmation", 70, 2, 108, 22)
$Btn_fermer = GUICtrlCreateButton("FERMER SESSION", 7, 61, 171, 30, $BS_FLAT)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetBkColor(-1, 0xFF9900)
GUICtrlSetCursor(-1, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

; ACTIVATION CONFIRMATION OU NON
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

$reg_HKEY = "HKEY_LOCAL_MACHINE\SOFTWARE\BMTOOLS\BMARRET"
;$reg_cle=DriveGetLabel(StringLeft(@ScriptDir, 3))
$reg_cle = "Sans_Confirmation"
$reg_cle = StringRegExpReplace($reg_cle, " ", "")
$reg_type = "REG_SZ"
$reg_val = "0"

; Lire clé de registre
$lecture = RegRead($reg_HKEY, $reg_cle)

; Crée clé si n'existe pas
If $lecture = 0 Then
    $ecriture = RegWrite($reg_HKEY, $reg_cle, $reg_type, $reg_val)
EndIf

; Récup valeur clé registre
$reg_val = RegRead($reg_HKEY, $reg_cle)
;MsgBox(0,$reg_cle,$reg_val)

If $reg_val = 1 Then
    GUICtrlSetState($Case_confirm, $GUI_CHECKED)
EndIf

; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

Dim $rep

Func _Confirmation($msg)

    ; Récup valeur clé registre
    $reg_val = RegRead($reg_HKEY, $reg_cle)
    ;MsgBox(0,$reg_cle,$reg_val)

    If $reg_val = 0 Then
        $rep_mgbox = MsgBox(4, $script_titre, $msg)

        If $rep_mgbox == 7 Then
            $rep = "NON"
        Else
            $rep = "OUI"
        EndIf

    Else
        $rep = "OUI"
    EndIf



    Return $rep

EndFunc   ;==>_Confirmation

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

        Case $Case_confirm

            $btn_etat = GUICtrlRead($Case_confirm)

            If $btn_etat = 1 Then

                _Confirmation("Si vous cochez cette case, l'action sera exécutée sans message de confirmation." & @LF & "Confirmez-vous l'exécution directe SANS MESSAGE DE CONFIRMATION ?")

                If $rep = "OUI" Then
                    $ecriture = RegWrite($reg_HKEY, $reg_cle, $reg_type, "1")
                Else
                    $ecriture = RegWrite($reg_HKEY, $reg_cle, $reg_type, "0")
                    GUICtrlSetState($Case_confirm, $GUI_UNCHECKED)
                EndIf
            Else
                $ecriture = RegWrite($reg_HKEY, $reg_cle, $reg_type, "0")
            EndIf


        Case $MenuQuitter
            Exit

        Case $MenuMail
            $NAV = RegRead("HKEY_CLASSES_ROOT\http\shell\open\command", "")
            $LIEN = StringRegExpReplace($NAV, '\A[^"]*"([^"]+)".*\Z', '\1')
            ShellExecute($LIEN, "http://www.bmweb.fr/contact/contact1.php")

        Case $Menuweb
            $NAV = RegRead("HKEY_CLASSES_ROOT\http\shell\open\command", "")
            $LIEN = StringRegExpReplace($NAV, '\A[^"]*"([^"]+)".*\Z', '\1')
            ShellExecute($LIEN, "http://www.bmweb.fr/")

        Case $MenuApropos
            MsgBox(0, $script_titre, $script_desc & @LF & $auteur & " - v. " & $maj)

        Case $Btn_logoff

            _Confirmation("Voulez vous verrouiller la session ?")

            If $rep = "OUI" Then
                Run("rundll32.exe user32.dll,LockWorkStation")
                Exit
            EndIf

        Case $Btn_fermer

            _Confirmation("Voulez vous fermer la session ?")

            If $rep = "OUI" Then
                Run("shutdown.exe -l -t 0")
                Exit
            EndIf

        Case $Btn_redem

            _Confirmation("Voulez vous redémarrer le PC ?")

            If $rep = "OUI" Then
                Shutdown(6)
            EndIf

        Case $Btn_arret

            _Confirmation("Voulez vous arrêter le PC ?")

            If $rep = "OUI" Then
                Shutdown(5)
            EndIf

    EndSwitch
WEnd
 

Permettrai de lancer les liens avec le navigateur par défaut et non IE (qui est assez lent sur mon pc de travail)

puis un petit #RequireAdmin pour les users vista

désolé si j'ai dis une ou des bétises

Cordialement Mika

[Narmeke]

Pourquoi veut tu faire si long

Il suffit de faire :

Code : Tout sélectionner

ShellExecute("http://www.bmweb.fr/")

;ou

Run("explorer http://www.bmweb.fr/" )
 

Le lien est écrit dans le code, donc aucun problème ne se pose !

Pour en revenir a se que @Tlem a dit :

Code : Tout sélectionner

Run("explorer http://www.bmweb.fr/" )
 

Mon code ouvre également le navigateur pas défaut !
En l'occurrence cher moi "Firefox"

[Tlem]

Étrange.
Je viens juste de tester sur mon PC.
Firefox est le navigateur par défaut, mais si je fait :

Code : Tout sélectionner

Run("explorer http://www.bmweb.fr/" )

alors c'est bel et bien IE qui s'ouvre et qui affiche la page ...

[Narmeke]

En effet c'est étrange

[Mikaas]

Bien sur mes 3 pc il ouvre IE alors que j'ai firefox et chrome
mais bon comme je le dis dans le code total modifié (j'ai repris ton code ^^)
il run avec le navigateur par défaut

@narmeke : pourquoi aussi long ? bah parce que j'ai lu dans un topic comme ce et que j'ai pas cherché a comprendre le pourquoi du comment, tant que cela fonctionne

[Narmeke]

@narmeke : pourquoi aussi long ? bah parce que j'ai lu dans un topic comme ce et que j'ai pas cherché a comprendre le pourquoi du comment, tant que cela fonctionne

Il fallait chercher a comprendre

Bien sur mes 3 pc il ouvre IE alors que j'ai firefox et chrome

Firefox et Chrome sont ils tes naviguateurs pas défault ? (l'un ou l'autre ?)
Je ne pense pas, car en analysant bien ta phrase tu dis que tu as simplement Firefox et Google Chrome et qu'il ouvre Internet Explorer !

Donc comme on ne peut avoir 2 naviguateurs pas défault, IE est ton naviguateur pas Défault donc normale qu'il soit ouvert ! Il est possible de modifier cela dans les options des naviguateur (Il me semble)

[Mikaas]

Il fallait chercher a comprendre

pas faux

Oula ...
J'ai 3 pc

2 pc avec Chrome par defaut ( et IE ofc sur le pc )
1 pc avec firefox par defaut ( et IE ofc sur le pc )

la phrase est mieux tourné à ton goût ^^ ?

[Narmeke]

Oui là c'est mieux

[scorp84]

Bonjour à tous,

Merci de vous creuser pour ce problème du navigateur.

Sur mon PC cela fait la même chose que pour Tlem :

Code : Tout sélectionner

ShellExecute("http://www.bmweb.fr/") => Ouvre le navigateur par défaut (Firefox)

Run("explorer http://www.bmweb.fr/" ) => Ouvre IE
 

Amicalement.

BM

[Narmeke]

Si vous voulez je vous fais une vidéo pour vous montrez que avec :

Code : Tout sélectionner

Run("explorer http://www.bmweb.fr/" )
 

J'ai belle est bien Firefox qui se lance !!

[scorp84]

Narmeke : Y a pas de problème je te crois

Ce qui me semble bizarre c'est qu'il me semble que "explorer" correspond à "explorer.exe" qui lui correspond normalement à l'explorateur de Windows.

En fait, on s'en rend compte si on change l'url par C:

Code : Tout sélectionner

Run("explorer C:" )
 

Si tu testes le code si dessus, est ce que ça t'ouvre toujours Firefox ?

Je vais essayer sur plusieurs PC voir d'où ça pourrait venir.

Merci en tout cas pour tous vos conseils.

Amicalement.

BM