Comment s'amuser avec un Bloc-Notes
Ce site (Ce Blog) vous expliquera comment s'amuser avec un Bloc-notes .
Pour commencer je vous montrerai quelques codes pour créer des programmes assez amusants .
Puis j'enchainerai avec des codes pour faire des faux virus et en dernier pour des virus assez sympas et embêtant (pas dangereux).
1) Un Programme générant des chiffre aléatoire (Random): Enregistrer en ".bat"
@echo off
title Matrix
:test
Color 0A
echo %Random%%Random%%Random%%Random%%Random%Â%Random%%Random%%Random%%Random%%Random%Â%Random%%Random%%Random%%Random%%Random%Â%Random%%Random%%Random%%Random%%Random%Â%Random%%Random%%Random%%Random%%Random%Â%Random%%Random%%Random%%Random%%Random%Â%Random%%Random%
goto:test
2) Un petit jeu: Enregistrer en ".vbs"
msgbox "Bonjour, es-tu pret à relever le défi du nombre mystère ?"_
+ chr(13) _
+ chr(13) _
+ "J'ai choisi un nombre entre 1 et 1000, et tu dois le trouver !"_
+ chr(13) _
+ "Quand tu tapes un nombre, je te dis s'il est plus grand ou plus petit que le nombre secret."_
+ chr(13) _
+ "Mais tu n'as que 10 essais pour le trouver." _
+ chr(13) _
+ chr(13) _
+ "Bonne chance, mais tu ne peux gagner face à moi !", , "Le nombre mystère"
Randomize
secret = Int((1000 * Rnd) + 1)
tentative = 0
do
tentative = tentative + 1
if (tentative > 10) then
msgbox "Trop de tentatives, tu as perdu !"
Wscript.quit
else
end if
nombre = cint(inputbox ("Donne un nombre entre 1 et 1000"))
if (nombre = secret) then
msgbox "GAGNÉ !" _
+ chr(13) _
+ "Bravo, tu as trouvé en " & tentative & " coups !"
Wscript.quit
else
if (nombre > secret) then
msgbox "Trop grand !"
else
msgbox "Trop petit !"
end if
end if
loop
3) Une discussion amusante: Enregistrer en ".vbs"
nom = inputbox("Quel est ton nom ?")
prenom = inputbox("Quel est ton prenom ?")
age = inputbox("Quel est ton age ?")
age2 = Year(Now)- age
ville= inputbox("Quelle est le nom de ta ville ?")
msgbox("Bon je résume tu t'appelles " & nom & " " & prenom & " tu habite à " & ville & " et tu es né(e) en " & age2 & ".")
msgbox("Je dois partir au revoir " & prenom & ".")
4) Programme ouvrant des fenetre à l'infinie: Enregistrer en ".bat"
@echo off
:main
Start cmd.exe
goto :main
5) Une horloge maison: Enregistrer en ".vbs"
Heure="Il est " & Hour(Now) & "h et " & Minute(Now) & "min "& Second(Now) & "sec."
if Hour(Now)=18 then
Message="Bonjour (Votre nom)"
else
Message="Bonsoir (Votre nom)"
end if
MsgBox Message & "!" & vbnewline & Heure
6) Un deuxième petit jeu: Enregistrer en ".vbs"
+ chr(13) _
+ "Bon courage, mais fait attention à la boite maudite !", , "La boite maudite"
do
if (vie = 0) then
msgbox"Perdu, tu n'as plus de vie, ta course vers l'argent s'arrête ici, tu as gagné " & argentscore & " en " & nombretour & " coups." _
+ chr(13) _
+ "Tu peux retenter ta chance, qui sais tu gagneras peut être des millions ! "
Wscript.quit
end if
nombretour = nombretour + 1
Randomize
bmaudite = Int((3 * Rnd) + 1)
Randomize
argentboite = Int((100 * Rnd) + 1)
boiteselect = cint(inputbox ("Argent total : " & argentscore & " "_
+ " Vie : " & vie & " "_
+ chr(13) _
+ "```````````````````````````````````````````````````````````````````" _
+ chr(13) _
+ " Quelle boite choisis-tu ? (1, 2 ou 3)" _
+ chr(13) _
+ chr(13) _
+ " __ __ __ " _
+ chr(13) _
+ " | 1 | | 2 | | 3 |" _
+ chr(13) _
+ " ``` ``` ```"))
if (boiteselect = bmaudite) then
vie = vie - 1
msgbox "C'est la boite maudite, il vous reste "& vie & " vie(s)"
else
if ((boiteselect = 1) or (boiteselect = 2) or (boiteselect = 3)) then
argentscore = argentscore + argentboite
msgbox "Vous recevez " & argentboite & " pièces"
else
msgbox "Cette boite n'existe pas, tu perds une vie ! Fait attention la prochaine fois !"
if (nombretour = 0) then
vie = vie - 1
else
vie = vie - 1
nombretour = nombretour - 1
end if
end if
end if
loop
7) Un programme pour cacher tes fichier avec un mot de passe: Enregistrer en ".bat"
cls
@ECHO OFF
title Folder Private
if EXIST "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" goto UNLOCK
if NOT EXIST Private goto MDLOCKER
:CONFIRM
echo Etes vous sure de vouloir bloquer les fichiers Y=Oui N=Non(Y/N)
set/p "cho=>"
if %cho%==Y goto LOCK
if %cho%==y goto LOCK
if %cho%==n goto END
if %cho%==N goto END
echo Invalid choice.
goto CONFIRM
:LOCK
ren Private "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"
attrib +h +s "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"
echo Folder locked
goto End
:UNLOCK
echo Enter password to unlock folder
set/p "pass=>"
if NOT %pass%== 1234 goto FAIL
attrib -h -s "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"
ren "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" Private
echo Bien Bloquer GG
goto End
:FAIL
echo Invalid password
goto end
:MDLOCKER
md Private
echo Private created successfully
goto End
:End
8) Un dernier programme (BONUS)