[R] Forcing d'une fenêtre

[Meskaliine]

Bonjour à toutes et à tous !

Je voulais commencer ce sujet par une question du genre : Existe t'il une fonction/macro qui permet que son programme sois le seul utilisable lorsqu'il est ouvert ?
(Pour mon cas, mon programme vise à demander un mot de passe à l'utilisateur)
Mais finalement, je me suis dit qu'il existait forcément une fonction/macro.
Donc ma question est : Quelle est la fonction/macro qui va permettre à mon programme d'être le seul à pouvoir être utilisé lorsqu'il est activé.
En gros, bloqué toutes l'utilisation de l'ordinateur tant que le programmes est actif (donc tant que le mot de passe n'a pas été entré.)

Voili Voilou, merci d'avance.

P.S : Le script, si besoin est.

Code : Tout sélectionner

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=..\Mes images\Bad-Blood-Yolks-Ka-boom.ico
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
; #######################
; ### *************** ###
; #######################
;
; Version AutoIt : 3.3.8.1
; Langue : Francais
; Plateforme : Windows 7
; Auteur : ****************
;
; Fonction du script; Mot de passe au démarrage de la session. Ne bloque pas l'utilisation de l'ordinateur.
; Version : 1.9 : 14/03/2013
;           - seconde version

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WinAPI.au3>
#include <GuiButton.au3>

Dim $mot_de_passeY = "ordinateur"
Global $largeur = 400, $hauteur = 100, $Titre = "/!\"
Local $version = "v1.9"
Global $paused
HotKeySet("^p","MDP")
;Break(0)


#Region ### START KODA GUI section ###

$SecureUser = GUICreate($Titre , 150, 150)
$Image1 = GUICtrlCreatePic("C:\Users\Julie\Desktop\Clément\Mes images\pingouin.jpg", 0,0)
WinActivate("/!\")
GUISetState(@SW_SHOW)

#EndRegion ### END KODA GUI section ###

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

        Case $Image1
            $mot_de_passe = InputBox("SecureUser","Mot de passe :","","*")

        If ($mot_de_passeY = $mot_de_passe) Then
            Fin()
        ElseIf ($mot_de_passeY <> $mot_de_passe) Then
            Reboot()
        EndIf

    EndSwitch
WEnd


Func Fin()

    SplashTextOn("","Mot de passe correct. Bienvenue !", 450, 70, -1, -1, 0 + 1 + 16 + 32,"Times New Roman", 12, 800)
    Sleep(1750)
    SplashOff()
    Exit

EndFunc

Func Reboot()

    SplashTextOn("","Mot de passe incorrect... Redémarrage de l'ordinateur !", 450, 70, -1, -1, 0 + 1 + 16 + 32,"Times New Roman", 12, 800)
    Sleep(1750)
    ;ShutDown(6)
    SplashOff()
    Exit

EndFunc

Func MDP()

    SplashTextOn("","Le mot de passe est : ordinateur", 450, 70, -1, -1, 0 + 1 + 16 + 32,"Times New Roman", 12, 800)
    Sleep(2000)
    SplashOff()

EndFunc
 

[Evotique]

Salut,

Cette macro pourrait correspondre à ton besoin : http://autoitscript.fr/forum/viewtopic.php?f=20&t=7345

[Meskaliine]

La macro WS_EX_TOPMOST va m'être utile effectivement, mais l'utilisation de l'ordinateur est encore possible.
Et quand j'ajoute cette macro à ma ligne de script;
Sois : $Image1 = GUICtrlCreatePic("C:\Users\Julie\Desktop\Clément\Mes images\pingouin.jpg", 0,0,$WS_EX_TOPMOST)
Mon image, n'est plus au bonne dimension, et est complètement écrasé dans ma GUI.

[mikell]

Hum l'UDF BlockInputEx semble parfaite pour ça
http://www.autoitscript.com/forum/index ... opic=87735
En particulier l'exemple 'Pass Lock' présent dans le zip

[Meskaliine]

Diantre de l'anglais !
Bon allé c'est partit pour un peu de lecture.
Merci pour la réponse rapide en tout cas, je sent que je vais arriver à mes fins avec ça.

[Evotique]

Sinon je te propose un fonctionnement différent : tu fermes le processus de l'application (par ex. firefox.exe), tu demande un mot de passe, si il est valide, tu réouvre le processus.

Pour bloquer la fermeture de cette application (dans un but personnel) il te suffit d'ignorer l'action et de vérifier si tskmgr.exe est ouvert (le gestionnaire des taches), si oui tu le fermes.

[Meskaliine]

Je m'étais dit qu'une simple macro allait résoudre mon problème mais la j'avoue que je suis dépassé.
Le BlockInputEx ne fonctionne pas (error can't open include file <BlockInputEx.au3>); et si j'ai bien compris, ca bloque l'utilisation de la souris et du clavier, et j'en ai besoin, donc non pour le BlockInputEx.

Et pour ce que tu me dit d'essayer Evotique, j'ai rien compris

[mikell]

Dans ce cas l'idée c'est que BlockInputEx va bloquer la souris et une partie du clavier, en n'autorisant que les touches lettres et chiffres + la touche 'enter' et en gardant l'inputbox au 1er plan
L'erreur vient certainement de la déclaration d'include à mettre en tête de script (#include "BlockInputEx.au3" ) avec l'udf dans le même dossier que le script

[Meskaliine]

Le : #include <BlockInputEx.au3> est bien en tête de script avec le reste de mes #include, et bien évidemment dans le même dossier que mon script.
Je galère vraiment la.
Puis-je vous demander un service ?!

[La réponse est oui !]
Serait t-il possible de reprendre le script que j'ai mis dans mon premier post et de me le "corriger" pour que la fenêtre qui est affiché par le script, sois la seul utilisable sur l'écran (donc ce que je recherche a faire.)

[La réponse est non...]
Tant pis, je vais me débrouiller et rester éveiller jusqu'à pas d'heure pour tenter de résoudre mon problème... *sanglot*

[Tlem]

En ce qui me concerne, je lit :

Code : Tout sélectionner

#AutoIt3Wrapper_Icon=..\Mes images\[color=#FF0000]Bad-Blood-Yolks-Ka-boom.ico[/color]

Code : Tout sélectionner

$Image1 = GUICtrlCreatePic("C:\Users\[color=#FF0000]Julie[/color]\Desktop\[color=#FF0000]Clément[/color]\Mes images\pingouin.jpg", 0,0)

Moi je vois un frangin qui veux bloquer sa sœur ou faire une blague à sa mère.
Clément, tu est un vilain garçon ...

[mikell]

Thierry c'est une intolérable intrusion dans la vie privée

► Afficher le texte

Bad-Blood-Yolks-Ka-boom.ico

@ Clément Meskaliine, bien lire le script avant exécution ^^

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <BlockInputEx.au3>
#include <Misc.au3>

Dim $mot_de_passe = "aaa"  ; "ordinateur"    ;<<<<<<<<<<<<<<<
HotKeySet("{ESC}", "_Quit")  ;<<<<<<<<<<<<<<

$gui = GUICreate("/!\" , 150, 150, -1, -1, BitOr($WS_POPUP, $WS_BORDER))
GUICtrlCreatePic("C:\Program Files\AutoIt3\Examples\GUI\merlin.gif", 0, 0)
GUICtrlSetState(-1, $GUI_DISABLE)
$input = GUICtrlCreateInput("", 20, 120, 110, 20)  
GUISetState(@SW_SHOW)
WinSetOnTop($gui, "", 1)

_BlockInputEx(1, "[:ALPHA:]|[:NUMBER:]|{ENTER}|{ALT}|{TAB}|{BACKSPACE}|{ESC}")   ;<<<<<<<<<<<<<<
;;_BlockInputEx(1, "[:ALPHA:]|[:NUMBER:]|{ENTER}|{ALT}|{TAB}|{BACKSPACE}")
While 1
    If _IsPressed("0D") Then   ; touche ENTER  <<<<<<<<<<<<<<<
        $test = GuiCtrlRead($input)
        If $test = $mot_de_passe Then
            Fin()
        Else 
            Reboot()
        EndIf
    EndIf
WEnd

;===============================
Func _Quit()
    Exit
EndFunc

Func Fin()
    SplashTextOn("","Mot de passe correct. Bienvenue !", 450, 70, -1, -1, 0 + 1 + 16 + 32,"Times New Roman", 12, 800)
    Sleep(1750)
    SplashOff()
    Exit
EndFunc

Func Reboot()
    SplashTextOn("","Mot de passe incorrect... Redémarrage de l'ordinateur !", 450, 70, -1, -1, 0 + 1 + 16 + 32,"Times New Roman", 12, 800)
    Sleep(1750)
    ;ShutDown(6)
    SplashOff()
    Exit
EndFunc
 

[Meskaliine]

Désolé je n'ai pas de soeur et ma mère utilise Linux, ça va être difficile de lui balancer un programme fait sous Autoit je pense.
Je suis juste entrain d’effectuer un stage pour apprendre quelques "bases" de la programmation, et mon tuteur m'a présenté ce langage; et mon premier "TP" est de faire un mot de passe à l'ouverture de la session. Rien de bien malfaisant...
Et si je voulais vraiment utiliser ce programme à des fins peux morales, je choisirais un mot de passe un peu plus complexe (quoique je peu le changer.)

En ce qui concerne tout ceci, merci Tlem, de m'enfoncer en publiant mon identité sur un post. (je rigole bien sur ^^)
Et sinon, merci.
Sujet terminé

EDIT : Rien à faire, même avec ton script ca ne fontionne pas Mikell. #include <InputBox.au3> ne fonctionne pas. Ca me donne une : error can't open file "InputBox.au3"

[Tlem]

Rahhh lalaaaa, ce Michel, il a oublié de donner le lien vers l'UDF : http://www.autoitscript.com/forum/topic ... nputex-udf

[Meskaliine]

Non, c'est moi l'âne. Il m'avait déjà donné le lien, j'ai juste oublier de faire ca sur cet ordinateur.
Merci beaucoup !! Problème résolu

[Tlem]

Ha oui ...