Gambas France BETA


Pas de compte ? Incription

Commande "KeyPress" sur Gambas ???

1
AuteurMessages
Joker#1 Posté le 9/11/2014 à 00:05:53
Bonjour j'ai besoin d'aide pour la création de mon chat spammeur (logiciel qui permet de "spammer" autant de fois que l'on souhaite une phrase que l'on a préalablement entré dans la "textbox"), plus précisément pour actionner avec une touche du clavier...



Le programme est composé de :

bouton 1 = start
bouton 2 = stop
textbox
timer

Le spammer fonctionne parfaitement, toutefois j'aimerai y apporter quelque modifications...
Ce que j'aimerai c'est que lorsque j'enclenche la touche "Caps Look" (Verr. Maj), le spammer spam la phrase qui est présente dans la textbox et lorsque je déclenche la touche "Caps Look", le spammer arrete de spammer la phrase qui est présente dans la textbox. Et ça même si le logiciel est en arriere plan..

J'ai essayé mais sans succès :



Cordialement, Joker.

PS : Je possède Gambas3
Flachy Joe#2 Posté le 9/11/2014 à 15:20:34
Iguane : Il Gambas Uniquement pour Activer ses NEuronesSalut,
Tes images sont illisibles, colles ton code dans une balise
1
[code][ /code]
;) Flachy Joe ;)
Joker#3 Posté le 9/11/2014 à 15:41:25
Oui pardon mais de toute manière ça n'a pas fonctionné, sur visual basic je crois que c'est ça :


1
2
3
4
5
6
7
8
9
10
11
12
13
PUBLIC SUB ToggleButton1_Click()

hook.KeyPressed += NEW
EventHandler < KeyPressedEventArgsook_KeyPressed);
hook.RegisterHotKey(0, Keys.F1);
}void hook_KeyPressed(Objectsender, KeyPressedEventArgs e)
{
Desktop.SendKeys(TextBox1.Text)
Desktop.SendKeys("[Return]")
PRIVATE void
TextBox1_TextChanged(Object send EventArgs e){

END


Néanmoins, ça ne fonctionne pas avec Gambas...

PS : ici c'est la touche F1 qui déclenche le spammeur
Flachy Joe#4 Posté le 9/11/2014 à 16:14:22
Iguane : Il Gambas Uniquement pour Activer ses NEuronesTon problème reviens à créer un keylogger, je ne pense pas que ce soit possible avec l'architecture de linux, ça constitue une problème de sécurité.
En effet, il faudrait intercepter les messages du serveur d'affichage (Xorg) avant qu'il ne les transmette à la fenêtre active.
C'est sans doute possible en modifiant les sources du serveur X et en le recompilant mais il faudra alors installer cette version hacké en même temps que ton
programme.
;) Flachy Joe ;)
Joker#5 Posté le 10/11/2014 à 11:52:55
Je ne veux pas créer de keylloger... J'aimerai que lorsque j'appuie sur la touche F1 , le spammer se lance (tant que la touche est enfoncé) et dès que je retire mon doigt, celui-ci s'arrete...
Reivillo#6 Posté le 10/11/2014 à 18:42:25
C' est ici, et nul part ailleurs. « Et pis c'est tout ! »Bonsoir Joker.

P'tet ben ça:
1
2
3
4
5
6
7
PUBLIC SUB Form_KeyPress()

IF Key.F1 THEN
PRINT "Allez allez, Spammons !"
ENDIF

END
Reivillo.
Version LinuxMint 13 (1.6.1-1+maya-mate(32-bit)) LTS Noyau 3.14.33-031433-generic (27-02-2015)
LinuxMint 13 Mate Fr ICI, LinuxMint 17 Mate Fr LÀ.
Programmation Gambas3 Installé depuis la Console Terminal avec successivement: Les 3 Lignes sudo en Gras ci-dessous...
sudo add-apt-repository ppa:gambas-team/gambas3
sudo apt-get update
sudo apt-get install gambas3 -y
Gambas3.8.4-57.47 (Mise à Jour Auto via mintupdate le 28-01-2016)
Pour la Doc, c'est vers là: Documentation Gambas3 FR
Flachy Joe#7 Posté le 10/11/2014 à 19:01:57
Iguane : Il Gambas Uniquement pour Activer ses NEuronesSauf que ça ne fonctionne que si la fenêtre est active, alors que
Et ça même si le logiciel est en arriere plan.

C'est possible d’utiliser un raccourci d'application (Paramètres du Clavier, selon ton gestionnaire de bureau) qui lancerait ton utilitaire.
Pour ne pas avoir plusieurs instances en même temps, regarde du coté de l'astuce de Reveillo http://www.gambasforge.org/code-129-gb3session-unique-et-redemarrage-force-d-une-application.html

Il faut encore que tu trouves une astuce pour passer le message de la nouvelle instance, lancée par le raccourci, à l'ancienne qui contient le texte entré précédemment.

Mais ça ne s’arrêtera pas en lâchant la touche, en ré-appuyant par contre ça peut se faire.
;) Flachy Joe ;)
Reivillo#8 Posté le 10/11/2014 à 20:49:48
C' est ici, et nul part ailleurs. « Et pis c'est tout ! »@ Flachy joe, Bonsoir.
Sauf que ça ne fonctionne que si la fenêtre est active, alors que

Et ça même si le logiciel est en arrière plan
.
Désolé, j'avais pas fait Attention à cela.
Version LinuxMint 13 (1.6.1-1+maya-mate(32-bit)) LTS Noyau 3.14.33-031433-generic (27-02-2015)
LinuxMint 13 Mate Fr ICI, LinuxMint 17 Mate Fr LÀ.
Programmation Gambas3 Installé depuis la Console Terminal avec successivement: Les 3 Lignes sudo en Gras ci-dessous...
sudo add-apt-repository ppa:gambas-team/gambas3
sudo apt-get update
sudo apt-get install gambas3 -y
Gambas3.8.4-57.47 (Mise à Jour Auto via mintupdate le 28-01-2016)
Pour la Doc, c'est vers là: Documentation Gambas3 FR
gambix#9 Posté le 11/11/2014 à 09:13:56
Faire simple !C'est un keylogger !!!

TU peux peut être utiliser les raccourcis de ton wm pour ça
Moins de texte dans une signature c'est agrandir son espace.
Joker#10 Posté le 11/11/2014 à 10:52:19
Reivello ça ne fonctionne pas... toutefois merci beaucoup à vous tous.
Je pense que je vais faire un script sur python ça sera beaucoup plus simple pour le moment la source ça donne ça :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
' Gambas class file

PUBLIC SUB ToggleButton1_Click()

Timer1.Enabled = TRUE

END

PUBLIC SUB ToggleButton2_Click()

Timer1.Enabled = FALSE

END

PUBLIC SUB Timer1_Timer()

Desktop.SendKeys(TextBox1.Text)
Desktop.SendKeys("[Return]")

END

PUBLIC SUB ToggleButton1_KeyPress()

IF Key.CapsLock THEN
Timer1.Enabled = TRUE
ENDIF

END





Rien de plus basique... Cependant si vous savez comment intégrer un bouton raccourci je suis preneur :D
Joker#11 Posté le 11/11/2014 à 11:10:31
Reivillo j'ai rajouté cette ligne de commande à mon programme :

1
2
3
4
5
6
7
PUBLIC SUB Form_KeyPress()

IF Key.CapsLock THEN
Desktop.SendKeys(TextBox1.Text)
Desktop.SendKeys("[Return]")

ENDIF


Néanmoins ça ne marche pas.. (J'ai mi Caps Lock soit Verr.maj car c'est avec ce bouton que j'aimerai lancer le spammeur.
Joker#12 Posté le 11/11/2014 à 11:12:56
Bien au contraire XD LE logiciel m inverse la touche maj maintenant JE CROIS que faut que je revois un peu tout le programme la
Reivillo#13 Posté le 11/11/2014 à 17:30:18
C' est ici, et nul part ailleurs. « Et pis c'est tout ! »Tu le peux aussi, avec une Icône dans la Zone de Notification.
Un Click sur l' Icône tu Démarre, Click suivant tu l'Arrête, et ainsi de suite...
et peut-être en plus, changer l'Image de l'Icône, suivant l'Activité.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
' Gambas class file

PUBLIC hTRAYICON AS NEW TrayIcon AS "hTRAYICON"
PUBLIC hTIMER AS NEW Timer AS "hTIMER"

PUBLIC SUB Form_Open()

hTRAYICON.Tooltip = "Hors service"
hTRAYICON.Show
hTIMER.Delay = 0.01
hTIMER.Trigger

END

PUBLIC SUB hTIMER_Timer()

IF ME.Visible = TRUE THEN
ME.hide
hTIMER.Delay = 500
RETURN
ENDIF
PRINT "Allez allez, Spammons !" ' <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

END

PUBLIC SUB hTRAYICON_MouseUp()

IF hTIMER.Enabled = FALSE THEN
hTIMER.Enabled = TRUE
hTRAYICON.Tooltip = "En service"
ELSE
hTIMER.Enabled = FALSE
hTRAYICON.Tooltip = "Hors service"
ENDIF

END

PUBLIC SUB hTRAYICON_DblClick()

hTRAYICON.Delete
ME.Close
QUIT

END
Version LinuxMint 13 (1.6.1-1+maya-mate(32-bit)) LTS Noyau 3.14.33-031433-generic (27-02-2015)
LinuxMint 13 Mate Fr ICI, LinuxMint 17 Mate Fr LÀ.
Programmation Gambas3 Installé depuis la Console Terminal avec successivement: Les 3 Lignes sudo en Gras ci-dessous...
sudo add-apt-repository ppa:gambas-team/gambas3
sudo apt-get update
sudo apt-get install gambas3 -y
Gambas3.8.4-57.47 (Mise à Jour Auto via mintupdate le 28-01-2016)
Pour la Doc, c'est vers là: Documentation Gambas3 FR
Reivillo#14 Posté le 11/11/2014 à 17:33:49
C' est ici, et nul part ailleurs. « Et pis c'est tout ! »Post précédent Modifié.
Oubli de la Commande pour Fermer l'Application,
avec un DblClick sur l'Icône.( Entre autres... )
Version LinuxMint 13 (1.6.1-1+maya-mate(32-bit)) LTS Noyau 3.14.33-031433-generic (27-02-2015)
LinuxMint 13 Mate Fr ICI, LinuxMint 17 Mate Fr LÀ.
Programmation Gambas3 Installé depuis la Console Terminal avec successivement: Les 3 Lignes sudo en Gras ci-dessous...
sudo add-apt-repository ppa:gambas-team/gambas3
sudo apt-get update
sudo apt-get install gambas3 -y
Gambas3.8.4-57.47 (Mise à Jour Auto via mintupdate le 28-01-2016)
Pour la Doc, c'est vers là: Documentation Gambas3 FR
1