Page 1 sur 1
[..] Interdire des caractères dans une saisie
Posté : lun. 25 août 2008 19:17
par 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
Re: [..]Interdire des caractères dans une saisie
Posté : lun. 25 août 2008 20:15
par jbnh
Jettes un œil du coté de
StringReplace
Re: [..]Interdire des caractères dans une saisie
Posté : lun. 25 août 2008 21:27
par 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
)
Re: [..]Interdire des caractères dans une saisie
Posté : lun. 25 août 2008 21:35
par 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
Re: [..]Interdire des caractères dans une saisie
Posté : lun. 25 août 2008 21:47
par 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...
Re: [..]Interdire des caractères dans une saisie
Posté : mar. 26 août 2008 00:08
par 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
Re: [..]Interdire des caractères dans une saisie
Posté : mar. 26 août 2008 01:08
par 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 =/
Re: [..]Interdire des caractères dans une saisie
Posté : mar. 26 août 2008 01:21
par 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
Re: [..] Interdire des caractères dans une saisie
Posté : mar. 26 août 2008 03:22
par 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 !
Re: [..] Interdire des caractères dans une saisie
Posté : mar. 26 août 2008 03:44
par Tlem
Effectivement, ma version du script ne fait que mettre à jour les champs de saisie.
A vous d'adapter à votre besoin.
Re: [..] Interdire des caractères dans une saisie
Posté : mar. 26 août 2008 04:35
par 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 )
Re: [..] Interdire des caractères dans une saisie
Posté : mar. 26 août 2008 08:35
par 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.
Re: [..] Interdire des caractères dans une saisie
Posté : mar. 26 août 2008 13:26
par 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.
Re: [..] Interdire des caractères dans une saisie
Posté : mar. 26 août 2008 14:39
par 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