AutoIt Français

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

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

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

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

Amicalement.

BM

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.

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

)

Amicalement.

BM

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

► Afficher le texte

mettre ceci :

► Afficher le texte

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

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"

É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 ...

En effet c'est étrange

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

Mikaas a écrit :@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

Mikaas a écrit :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)

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 ^^ ?

Oui là c'est mieux

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

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 !!

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

AutoIt Français

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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