AnAcOnDa
-
31 déc. 2000 à 16:32
cs_AnAcOnDa
Messages postés30Date d'inscriptionmardi 13 novembre 2001StatutMembreDernière intervention17 novembre 2003
-
27 juil. 2010 à 23:47
ce n'est pas vrailment pour flooder un mais plutot l'action de base qui me plait ..
copie le texte dans une zone de texte libre et le copier x fois en x temps dans une zone ! precise !! si qq1 sait ca je serai ravos :)
bon merci d'avance ! ;)
Utilise l'instruction Sendkeys :
Créé une feuille avec un textbox, une listbox et un timer et deux boutons.
Le premier servira à ajouter une ligne dans la liste ( list1.additem text1.text), le deuxième bouton sera un interrupteur pour lancer ou arrêter le timer. Ensuite, place ce code pour le timer :
dim i
for i = 0 to list1.additem-1
Sendkeys list1.list(i) 'ligne pour écrire le texte
sendkeys chr(13) 'ligne pour "appuyer" sur entrée pour envoyer le texte sur le chat
doevents ' a ne pas oublier !!!
next i
voilà.
Fais des tests avec le bloc notes, je ne suis pas sûr à 100% que ça marche paraitement.
Ce code est utile si tu veux faire des dessins avec les caractères ( visage sur plusieurs lignes) et pour éviter qu'il y ait des lignes d'autres membres du chat au milieu.
Je pense que tu vas vite te faire virer des chats !! ;-p
La prochaine fois j'irai moins vite...
Le code exact est :
dim i
for i = 0 to list1.listcount-1
Sendkeys list1.list(i) 'ligne pour écrire le texte
sendkeys chr(13) 'ligne
pour "appuyer" sur entrée pour envoyer le texte sur le chat
(on peut mettre Sendkeys{ENTER})
doevents ' a ne pas oublier !!!
next i