[..] Interdire des caractères dans une saisie

[Kikoolol]

Bonjour a tous !

Voilà donc j'ai fait un petit prog' avec une interface graphique dans lequel ont doit entrer un message, puis ce message sera répéter en boucle.
J'aimerais que certain caractères soit interdit, soit dés qu'on les tapent, ou soit une fois qu'on appuie sur la touche envoyer du programme, voici mon programme :
Ici

Voila merci d'avance !


code:

Code : Tout sélectionner

#include <GUIConstants.au3>

HotKeySet("{ESC}","_exit")
$Form1 = GUICreate("Envoi de messages", 298, 202, 242, 174)
$Label1 = GUICtrlCreateLabel("Message 1 :", 8, 8, 62, 17)
$Input1 = GUICtrlCreateInput("", 8, 24, 281, 21)
$Label2 = GUICtrlCreateLabel("Message 2 :", 8, 48, 62, 17)
$Input2 = GUICtrlCreateInput("", 8, 64, 281, 21)
$Label3 = GUICtrlCreateLabel("Message 3 :", 8, 88, 62, 17)
$Input3 = GUICtrlCreateInput("", 8, 104, 281, 21)
$Label4 = GUICtrlCreateLabel("Message 4 :", 8, 128, 62, 17)
$Input4 = GUICtrlCreateInput("", 8, 144, 281, 21)
$Button1 = GUICtrlCreateButton("Envoyer", 208, 168, 81, 25, 0)
GUISetState(@SW_SHOW)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            GUISetState(@SW_HIDE)
            Sleep(3000)
            While 1
                sleep(3000)
                Send(GUICtrlRead($Input1) &"{ENTER}")
                sleep(2000)
                Send(GUICtrlRead($Input2) &"{ENTER}")
                sleep(2000)
                Send(GUICtrlRead($Input3) & "{ENTER}")
                sleep(2000)
                Send(GUICtrlRead($Input4) & "{ENTER}")
            WEnd
    EndSwitch
WEnd

Func _exit()
    Exit
EndFunc

[jbnh]

Jettes un œil du coté de StringReplace

[Kikoolol]

Alors jsuis aller voir mais j'ai pas trop compris comment utiliser le script ni même ou le placer.
[C'est surtout comment l'adapter a ma GUI, je sais je suis nulle )

[timmalos]

Je viens de penser à une solution plus facile:) , si les caracteres que tu veux interdire sont tous les meme pour les 4 inputs, il sera facile de faire ca:
Mais marche uniquement si tu veux interdire des caracteres et non des mots entiers. SI c'est la 2eme cas, alors je t'ecrirai un script plus tard:)

► Afficher le texteCode

Code : Tout sélectionner

#include <GUIConstants.au3>

HotKeySet("{ESC}","_exit")
;ici, tu ecris ca : HotKeySet("caractere a ne pas ecrire","a")
HotKeySet("è","a")
HotKeySet("_","a")
HotKeySet("=","a")

$Form1 = GUICreate("Envoi de messages", 298, 202, 242, 174)
$Label1 = GUICtrlCreateLabel("Message 1 :", 8, 8, 62, 17)
$Input1 = GUICtrlCreateInput("", 8, 24, 281, 21)
$Label2 = GUICtrlCreateLabel("Message 2 :", 8, 48, 62, 17)
$Input2 = GUICtrlCreateInput("", 8, 64, 281, 21)
$Label3 = GUICtrlCreateLabel("Message 3 :", 8, 88, 62, 17)
$Input3 = GUICtrlCreateInput("", 8, 104, 281, 21)
$Label4 = GUICtrlCreateLabel("Message 4 :", 8, 128, 62, 17)
$Input4 = GUICtrlCreateInput("", 8, 144, 281, 21)
$Button1 = GUICtrlCreateButton("Envoyer", 208, 168, 81, 25, 0)
GUISetState(@SW_SHOW)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            GUISetState(@SW_HIDE)
            Sleep(3000)
            While 1
                sleep(3000)
                Send(GUICtrlRead($Input1) &"{ENTER}")
                sleep(2000)
                Send(GUICtrlRead($Input2) &"{ENTER}")
                sleep(2000)
                Send(GUICtrlRead($Input3) & "{ENTER}")
                sleep(2000)
                Send(GUICtrlRead($Input4) & "{ENTER}")
            WEnd
    EndSwitch
WEnd

Func _exit()
    Exit
EndFunc
Func a()
MsgBox(0,"","Caractère interdit",1500)
EndFunc

[Kikoolol]

Merci beaucoup de ta rapidité timmalos mais j'aimerais que mon script interdise plusieurs caractères d'affilés, comme par ex : www. / ou .fr / ! / etc...

[jbnh]

Bon comme d'ab c'est pas le meuilleur script mais bon il marche.

dans $words: mettre les mots à censurer séparés d'une virgule

► Afficher le texteCode

Code : Tout sélectionner

#include <GUIConstants.au3>
HotKeySet("{ESC}","_exit")

;-------------------------------------------------------------------
$words = "www,advertising,publicité"
;-------------------------------------------------------------------


$word = StringSplit($words, ",")
$Form1 = GUICreate("Envoi de messages", 298, 202, 242, 174)
$Label1 = GUICtrlCreateLabel("Message 1 :", 8, 8, 62, 17)
$Input1 = GUICtrlCreateInput("", 8, 24, 281, 21)
$Label2 = GUICtrlCreateLabel("Message 2 :", 8, 48, 62, 17)
$Input2 = GUICtrlCreateInput("", 8, 64, 281, 21)
$Label3 = GUICtrlCreateLabel("Message 3 :", 8, 88, 62, 17)
$Input3 = GUICtrlCreateInput("", 8, 104, 281, 21)
$Label4 = GUICtrlCreateLabel("Message 4 :", 8, 128, 62, 17)
$Input4 = GUICtrlCreateInput("", 8, 144, 281, 21)
$Button1 = GUICtrlCreateButton("Envoyer", 208, 168, 81, 25, 0)
GUISetState(@SW_SHOW)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            GUISetState(@SW_HIDE)
            Sleep(3000)
            
            For $i = 1 To $word[0]
            $output1 = StringReplace(GUICtrlRead($Input1), $word[$i], " ")  
            If $output1 <> GUICtrlRead($Input1) Then
            Exitloop
            Endif
            Next
            
            For $i = 1 To $word[0]
            $output2 = StringReplace(GUICtrlRead($Input2), $word[$i], " ")  
            If $output2 <> GUICtrlRead($Input2) Then
            Exitloop
            Endif
            Next
            
            For $i = 1 To $word[0]
            $output3 = StringReplace(GUICtrlRead($Input3), $word[$i], " ")  
            If $output3 <> GUICtrlRead($Input3) Then
            Exitloop
            Endif
            Next
            
            For $i = 1 To $word[0]
            $output4 = StringReplace(GUICtrlRead($Input4), $word[$i], " ")  
            If $output4 <> GUICtrlRead($Input4) Then
            Exitloop
            Endif
            Next
            
            
            
            
            
            While 1
                sleep(3000)
                Send($output1 &"{ENTER}")
                sleep(2000)
                Send($output2 &"{ENTER}")
                sleep(2000)
                Send($output3 & "{ENTER}")
                sleep(2000)
                Send($output4 & "{ENTER}")
            WEnd
    EndSwitch
WEnd

Func _exit()
    Exit
EndFunc

[Kikoolol]

Alors j'ai essayer ça fonctionne bien seulement si j'interdis par exemple :
.fr / .com
Et que dans la même case j'écris : .fr .com
Alors le script va interdire que le 1er mot =/

[Tlem]

Sur la base du script de jbnh, voici une autre solution (Un chouilla plus simple ):

► Afficher le texteCode

Code : Tout sélectionner

#include <GUIConstants.au3>

HotKeySet("{ESC}","_exit")

;-------------------------------------------------------------------
$words = "www,advertising,publicité"
;-------------------------------------------------------------------


$word = StringSplit($words, ",")
$Form1 = GUICreate("Envoi de messages", 298, 202, 242, 174)
$Label1 = GUICtrlCreateLabel("Message 1 :", 8, 8, 62, 17)
$Input1 = GUICtrlCreateInput("", 8, 24, 281, 21)
$Label2 = GUICtrlCreateLabel("Message 2 :", 8, 48, 62, 17)
$Input2 = GUICtrlCreateInput("", 8, 64, 281, 21)
$Label3 = GUICtrlCreateLabel("Message 3 :", 8, 88, 62, 17)
$Input3 = GUICtrlCreateInput("", 8, 104, 281, 21)
$Label4 = GUICtrlCreateLabel("Message 4 :", 8, 128, 62, 17)
$Input4 = GUICtrlCreateInput("", 8, 144, 281, 21)
$Button1 = GUICtrlCreateButton("Envoyer", 208, 168, 81, 25, 0)
GUISetState(@SW_SHOW)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
            
        Case $Button1
            _Filtre($Input1)
            _Filtre($Input2)
            _Filtre($Input3)
            _Filtre($Input4)
            
    EndSwitch
WEnd

Func _exit()
    Exit
EndFunc

Func _Filtre($Input)
    $Val = GUICtrlRead($Input)
    For $i = 1 To $word[0]
        $Val = StringReplace($Val, $word[$i], "") 
    Next
    GUICtrlSetData($Input, $Val)
EndFunc

[Kikoolol]

Je sais pas si c'est mon pc ou moi mais j'ai l'impression que le script ne veux pas s'executer.
Si j'écrit : "www TEST .fr " il m'efface le ".fr" puis n'ecrit rien du tout et ne m'efface pas le www. / J'ai remarquer aussi que y'avais aucun "send" dans ton script Tlem.

En tout cas merci beaucoup de m'aider !

[Tlem]

Effectivement, ma version du script ne fait que mettre à jour les champs de saisie.
A vous d'adapter à votre besoin.

[Kikoolol]

Il me supprime bien tout les caractères mais ils m'écrit "0" quand il copie.
Sa y'est dés que je touche au script c'est le bazare
(Ah oui, ce serait possible que dés que j'appuie sur envoyer au lieu d'effacer les caractères qu'il me mette une msgbox ? Merci )

[Tlem]

Expliquez un peut plus ce que vous voulez faire exactement.
Pour le moment cette fonction est un peut vague, donc difficile de répondre correctement.

[Kikoolol]

Ok !
Alors en gros j'aimerais qu'une fois que j'appuie sur "envoyer", si il existe des caractères interdit, une message box se déclenche en disant "blablabla caractères interdit" mais que le script ne se lance pas.

[Tlem]

Ca devrait ressembler à ce que vous voulez.
La partie message peut être adaptée en fonction des retours que vous voulez.

► Afficher le texteCode

Code : Tout sélectionner

#include <GUIConstants.au3>

HotKeySet("{ESC}","_exit")

;-------------------------------------------------------------------
$words = "www,advertising,publicité"
;-------------------------------------------------------------------

$word = StringSplit($words, ",")
$Form1 = GUICreate("Envoi de messages", 298, 202, 242, 174)
$Label1 = GUICtrlCreateLabel("Message 1 :", 8, 8, 62, 17)
$Input1 = GUICtrlCreateInput("", 8, 24, 281, 21)
$Label2 = GUICtrlCreateLabel("Message 2 :", 8, 48, 62, 17)
$Input2 = GUICtrlCreateInput("", 8, 64, 281, 21)
$Label3 = GUICtrlCreateLabel("Message 3 :", 8, 88, 62, 17)
$Input3 = GUICtrlCreateInput("", 8, 104, 281, 21)
$Label4 = GUICtrlCreateLabel("Message 4 :", 8, 128, 62, 17)
$Input4 = GUICtrlCreateInput("", 8, 144, 281, 21)
$Button1 = GUICtrlCreateButton("Envoyer", 208, 168, 81, 25, 0)
GUISetState(@SW_SHOW)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
           
       Case $Button1
           $Err = 0
            _Control($Input1)
            _Control($Input2)
            _Control($Input3)
            _Control($Input4)
            
            If Not $Err Then 
                MsgBox(0,"","C'est ici qu'on lance la suite du script.")
            Else
                MsgBox(32,"Info","Corriger les champs de saisie avant de poursuivre.")
            EndIf
            
    EndSwitch
WEnd

Func _exit()
    Exit
EndFunc

Func _Control($Input)
    $Val = GUICtrlRead($Input)
    For $i = 1 To $word[0]
        If StringInStr($Val,$word[$i]) Then
            MsgBox(16, "Erreur", $word[$i] & " <= blablabla caractères interdit")
            $Err = 1
        EndIf
    Next
EndFunc