Batch Index du Forum
S’enregistrerRechercherFAQMembresGroupesConnexion
Répondre au sujet Page 1 sur 1
[Besoin d'aide et de conseils] écriture automatique
Auteur Message
Répondre en citant
Message [Besoin d'aide et de conseils] écriture automatique 
Salut à tous voilà un moment que je cherche a codé un écriture automatique , par la j'entend un programme qui écris lettre par lettre un message voici le code en dessous je vous laisse regarder si vous ne comprenais pas mes propos , le cas écheant j'en suis désolé

Code:

@echo off
title Ecriture
:: \\ ZeR0-@bSoLu
color 02
pause
:1
echo C
ping localhost - n>1
cls
echo Ce
ping localhost - n>1
cls
echo Ce P
ping localhost - n>1
cls
echo Ce Pr
ping localhost - n>1
cls
echo Ce Pro
ping localhost - n>1
cls
echo Ce Prog
ping localhost - n>1
cls
echo Ce Progr
ping localhost - n>1
cls
echo Ce Progra
ping localhost - n>1
cls
echo Ce P Program
ping localhost - n>1
cls
echo Ce Programm
ping localhost - n>1
cls
echo Ce Programme
ping localhost - n>1
cls
echo Ce Programme a
ping localhost - n>1
cls
echo Ce Programme a e
ping localhost - n>1
cls
echo Ce Programme a et
ping localhost - n>1
cls
echo Ce Programme a ete
ping localhost - n>1
cls
echo Ce Programme a ete e
ping localhost - n>1
cls
echo Ce Programme a ete ec
ping localhost - n>1
cls
echo Ce Programme a ete ecr
ping localhost - n>1
cls
echo Ce Programme a ete ecri
ping localhost - n>1
cls
echo Ce Programme a ete ecris
ping localhost - n>1
cls
echo Ce Programme a ete ecris p
ping localhost - n>1
cls
echo Ce Programme a ete ecris pa
ping localhost - n>1
cls
echo Ce Programme a ete ecris par
ping localhost - n>1
cls
echo Ce Programme a ete ecris par Z
ping localhost - n>1
cls
echo Ce Programme a ete ecris par Ze
ping localhost - n>1
cls
echo Ce Programme a ete ecris par ZeR
ping localhost - n>1
cls
echo Ce Programme a ete ecris par ZeR0
ping localhost - n>1
cls
echo Ce Programme a ete ecris par ZeR0-
ping localhost - n>1
cls
echo Ce Programme a ete ecris par ZeR0-@
ping localhost - n>1
cls
echo Ce Programme a ete ecris par ZeR0-@b
ping localhost - n>1
cls
echo Ce Programme a ete ecris par ZeR0-@bS
ping localhost - n>1
cls
echo Ce Programme a ete ecris par ZeR0-@bSo
ping localhost - n>1
cls
echo Ce Programme a ete ecris par ZeR0-@bSoL
ping localhost - n>1
cls
echo Ce Programme a ete ecris par ZeR0-@bSoLu
ping localhost - n>3
goto 1



Je cherche à savoir si il n'y a pas un moyen beaucoup plus efficace d'arriver au même resultat et peut être avec moins de lags
Je n'ai vraiment pas d'autres idées :/
Merci d'avance Smile




______________________________________________________
Mess like the bests
Die like the rest


Programmation:

Batch: 30/100
Python: 65/100
Vb: 10/100
C : 15/100
VBS: 19/100
HTML: 25/100
PHP: 10/100
CSS: 10/100
Ada: 15/100
Perl: 9/100
Bash linux : 45/100
Ruby : 5/100
Message Publicité 
PublicitéSupprimer les publicités ?


Répondre en citant
Message [Besoin d'aide et de conseils] écriture automatique 
Salut,

Vite fait :


Code:
@echo off

setlocal enabledelayedexpansion
Set /P $Tstring=Entrez une chaine de caractere:


:::Ici le temps en seconde

set $t=2

for /l %%a in (0,1,8192) do (set $t=!$Tstring:~%%a,1!
                                         if defined $t (set $l=!$l!!$t!
                                                            cls
                                                            echo !$l!
                                                            >nul PING localhost -n %$t%) else (>nul ping localhost -n 3
                                                                                                                exit /b))
endlocal
pause



Et la même mais avec un pseudo cadre que tu peux facilement faire avec un vrai cadre (il suffit de remplacer les caractères)


Code:
@echo off

setlocal enabledelayedexpansion
Set /P $Tstring=Entrez une chaine de caractere:


:::Ici le temps en seconde

set $t=2

for /l %%a in (0,1,8192) do (set $t=!$Tstring:~%%a,1!
                             if defined $t (set $l=!$l!!$t!
                                            set $f=####
                                            cls
                                            for /l %%b in (0,1,%%a) do (set $f=#!$f!)
                                            echo !$f!&echo # !$l! #&echo !$f!
                                            >nul ping localhost -n 2) else (>nul ping localhost -n 3
                                                                            exit /b))








Dernière édition par sachadee le Sam 23 Nov 2013 - 00:28; édité 1 fois

______________________________________________________
AffPng.exe , StringBetween.exe , Hex2Png.exe
Répondre en citant
Message [Besoin d'aide et de conseils] écriture automatique 
Oh super merci de ton partage je regarde ça et je te dit Very Happy




______________________________________________________
Mess like the bests
Die like the rest


Programmation:

Batch: 30/100
Python: 65/100
Vb: 10/100
C : 15/100
VBS: 19/100
HTML: 25/100
PHP: 10/100
CSS: 10/100
Ada: 15/100
Perl: 9/100
Bash linux : 45/100
Ruby : 5/100
Répondre en citant
Message [Besoin d'aide et de conseils] écriture automatique 
effectivement je suis plus fan du premieer je trouve ça plus "authentique " haha
Merci de ton aide c'est vraiment gentil de ta part




______________________________________________________
Mess like the bests
Die like the rest


Programmation:

Batch: 30/100
Python: 65/100
Vb: 10/100
C : 15/100
VBS: 19/100
HTML: 25/100
PHP: 10/100
CSS: 10/100
Ada: 15/100
Perl: 9/100
Bash linux : 45/100
Ruby : 5/100
Répondre en citant
Message [Besoin d'aide et de conseils] écriture automatique 
Salut Very Happy
Tu me fais rappeler d'un VBscript que j'ai fait avant Mr. Green qui écrit tout seul en croyant que le système a été infecté par un virus qui écrit et parle tout seul Very Happy








______________________________________________________
Mes Contributions en Téléchargement
Répondre en citant
Message [Besoin d'aide et de conseils] écriture automatique 
Sympa dommage que la voix de windows lise lettre par lettre xD




______________________________________________________
Mess like the bests
Die like the rest


Programmation:

Batch: 30/100
Python: 65/100
Vb: 10/100
C : 15/100
VBS: 19/100
HTML: 25/100
PHP: 10/100
CSS: 10/100
Ada: 15/100
Perl: 9/100
Bash linux : 45/100
Ruby : 5/100
Répondre en citant
Message [Besoin d'aide et de conseils] écriture automatique 
Salut !

Je sais que le topic est résolu mais voici un petit script que j'ai fais spécialement pour toi Mr. Green

Code:
@Echo Off
Color 0F
SetLocal EnableDelayedExpansion
Set /P "String=Entrez une chaine de caracteres: "
Cls
Set "Char=1"
Set "Current_String=!String!
Set "Lenght=0"
Set "T=2" &:: {Le temps entre chaque affichage d'un caractère.}
Call:Lenght &:: {On appelle la fonction "Lenght".}
For /L %%I In (1,1,!Lenght!) Do ( :: {De 1 à la longueur de la chaine, on affiche un caractère.}
  Echo !String:~0,%%I!
  Ping LocalHost -n !T! > Nul
  Cls
)
Pause>Nul
:Lenght &:: {Cette fonction compte le nombre de caractères d'une chaine.}
If "!Current_String!" EQU "" Goto:Eof
Set "Current_String=!Current_String:~0,-1!
Set /A "Lenght+=1"
Goto Lenght


Voila, c'était juste ma petite contribution Okay

Dylan.




______________________________________________________
Viens découvrir INTERPOL, un nouveau langage interprété !

Yahoo Messenger
Répondre en citant
Message [Besoin d'aide et de conseils] écriture automatique 
Wow super je te remercie de cette contribution j'apprecie beaucoup Very Happy Merci pour ton travail !!




______________________________________________________
Mess like the bests
Die like the rest


Programmation:

Batch: 30/100
Python: 65/100
Vb: 10/100
C : 15/100
VBS: 19/100
HTML: 25/100
PHP: 10/100
CSS: 10/100
Ada: 15/100
Perl: 9/100
Bash linux : 45/100
Ruby : 5/100
Répondre en citant
Message [Besoin d'aide et de conseils] écriture automatique 
salut,

enlevez le cls et remplacez le «echo lettre» par «set /p "=lettre"<nul»



Répondre en citant
Message [Besoin d'aide et de conseils] écriture automatique 
Effectivement temp ça évite de créer une liste Okay

Code:
@echo off
setlocal enabledelayedexpansion
Set /P $Tstring=Entrez une chaine de caractere:

:::Ici le temps en seconde
set $t=2

for /l %%a in (0,1,8192) do (set $t=!$Tstring:~%%a,1!
                             if defined $t (set /p =!$t!<nul
                                            >nul PING localhost -n %$t%) else (>nul ping localhost -n 3
                                                                               exit /b))





______________________________________________________
AffPng.exe , StringBetween.exe , Hex2Png.exe
Message [Besoin d'aide et de conseils] écriture automatique 


Montrer les messages depuis:
Répondre au sujet Page 1 sur 1
  



Index | créer un forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
Copyright 2008 - 2016 // Batch