Batch Index du Forum
S’enregistrerRechercherFAQMembresGroupesConnexion
Répondre au sujet Page 1 sur 1
[HTML & CSS & JAVASCRIPT] Tableau éditable..
Auteur Message
Répondre en citant
Message [HTML & CSS & JAVASCRIPT] Tableau éditable.. 
Salut à tous !

Je vous présente un code que j'avais fait depuis longtemps qui pourra sûrement vous être utile Okay (longtemps = quelques mois.....bon ok c'était ya pas bien longtemps)
Un tableau éditable en javascript Wink (Je sais je sais c'est dans le titre Laughing )

Et (le troisième "et", j'ai fini par cette phrase) je suis un débutant en javascript donc si j'ai fait des trucs inutile ou wtf ou ou je sais pas dîte-le moi Mr. Green

Par contre je vous préviens, il n'y a que 4 colonnes.. Faudrait juste rajouter un système d'ajout de colonnes pour que tous le monde soit content Okay
Mais je ne pense pas retravailler ce code à part pour régler les derniers bugs.



Et comme je suis sous windows 10 et bin faudra me dire si le design suit Laughing Bah oui parce que ya quelques différence entre le edge de windows 10 et celui des autres versions Smile
Et (oui le deuxième "et" pour bien commencer) c'est un code un peu fait sur mesure parce qu'en vrai j'aurai juste du faire 200 lignes avec 4 colonnes et basta..mais nan je me suis compliqué la vie xd Et il doit y avoir des gros morceaux complètement inutile et à un moment du script (vous verrez vous verrez c'est un endroit où toutes la masse du script y est, comme un noyau d'atome..). La cause de ce noyau : je ne sais pas comment faire une variable sans string, sans nombre mais où il y a des lettres dedans et quand je fais la variable les lettres qui ne sont pas censé être des strings le sont ou bien il y a une erreur donc..j'ai juste fait un générateur.


Finis pour l'histoire, si jamais vous avez des questions : je suis là Okay
L'installateur c'est un fichier batch Laughing



Si vous voulez que je rajoute des commentaires au sein du script dîtes-le moi Okay






(captures d'écrans rogner pour que vous ne voyer que la fenêtre concernée)


Et oui, cela s'adapte sur tous les écrans Okay
Et l'image ci-dessous représente simplement l'installateur Batch :



Code:
@echo off
::BY FLAMMROCK
call :TXTCOLOR
set COLOR=TXTCOLOR.exe
chcp 28591 > nul
color F0
mode con cols=140 lines=35
title Exécution en mode administrateur..
>nul 2>&1 "%SYSTEMROOT%\system32\cacls.exe" "%SYSTEMROOT%\system32\config\system"
if '%errorlevel%' NEQ '0' (
%COLOR% F0 0 "["
%COLOR% AD 0 "%date%"
%COLOR% F0 0 "] - "
%COLOR% AD 0 "%time%"
%COLOR% F0 0 " : "
%COLOR% F0 0 "Verification des "
%COLOR% EC 1 "privilèges administrateur"
goto UACPrompt
) else ( goto gotAdmin )
:UACPrompt
echo Set UAC = CreateObject^("Shell.Application"^) > "%temp%\getadmin.vbs"
set params = %*:"="
echo UAC.ShellExecute "%~s0", "%params%", "", "runas", 1 >> "%temp%\getadmin.vbs"
"%temp%\getadmin.vbs"
exit /B
color F0
mode con cols=140 lines=35
:gotAdmin
if exist "%temp%\getadmin.vbs" ( del "%temp%\getadmin.vbs" )
pushd "%CD%"
CD /D "%~dp0"
:install
color F0
mode con cols=140 lines=35
%COLOR% F0 0 "["
%COLOR% AD 0 "%date%"
%COLOR% F0 0 "] - "
%COLOR% AD 0 "%time%"
%COLOR% F0 0 " : "
%COLOR% EC 0 "Création "
%COLOR% F0 1 "des répertoires en cours.."
title Création des répertoires en cours..
color F0
mode con cols=140 lines=35
echo.
if not exist C:\ProgramData\zoo\data\ md C:\ProgramData\zoo\data\
%COLOR% F0 0 "["
%COLOR% AD 0 "%date%"
%COLOR% F0 0 "] - "
%COLOR% AD 0 "%time%"
%COLOR% F0 0 " : "
%COLOR% F0 0 "Souhaitez-vous rajouter '"
%COLOR% EC 0 "My free zoo liste animal"
%COLOR% F0 1 "' au menu contextuel ? [Y/N]"
set /p "registre="
if "%registre%"=="N" goto :no_install_key_registre
echo.
%COLOR% F0 0 "["
%COLOR% AD 0 "%date%"
%COLOR% F0 0 "] - "
%COLOR% AD 0 "%time%"
%COLOR% F0 0 " : "
%COLOR% EC 0 "Installation"
%COLOR% F0 1 " des clés du registre.."
title Installation des clés du registre..
echo.
echo.
pause
echo Windows Registry Editor Version 5.00 > C:\ProgramData\zoo\zoo.reg
echo. >> C:\ProgramData\zoo\zoo.reg
echo [HKEY_CLASSES_ROOT\Directory\Background\shell\My free Zoo] >> C:\ProgramData\zoo\zoo.reg
echo. >> C:\ProgramData\zoo\zoo.reg
echo [HKEY_CLASSES_ROOT\Directory\Background\shell\My free Zoo\command] >> C:\ProgramData\zoo\zoo.reg
echo @="C:\\Program Files (x86)\\My free zoo liste animal\\My Free Zoo.exe" >> C:\ProgramData\zoo\zoo.reg
echo. >> C:\ProgramData\zoo\zoo.reg
echo [HKEY_CLASSES_ROOT\Directory\Background\shell\My free Zoo\DefaultIcon] >> C:\ProgramData\zoo\zoo.reg
echo @="C:\\Program Files (x86)\\My free zoo liste animal\\My Free Zoo.exe" >> C:\ProgramData\zoo\zoo.reg
REGEDIT -s C:\ProgramData\zoo\zoo.reg
md "C:\Program Files (x86)\My free zoo liste animal\"
echo Function Objet_XMLHTTP > rar2.vbs
echo On Error Resume Next >> rar2.vbs
echo Set Objet_XMLHTTP^=CreateObject("Microsoft.XMLHTTP") >> rar2.vbs
echo Set Objet_XMLHTTP^=CreateObject("MSXML2.XMLHTTP") >> rar2.vbs
echo On Error GoTo 0 >> rar2.vbs
echo End Function >> rar2.vbs
echo Sub Importer_Fichier_Du_Web(source,destination) >> rar2.vbs
echo Set HTTP^=Objet_XMLHTTP >> rar2.vbs
echo With HTTP >> rar2.vbs
echo .Open "GET",source,False >> rar2.vbs
echo .Send >> rar2.vbs
echo End With >> rar2.vbs
echo With CreateObject("ADODB.Stream") >> rar2.vbs
echo .Type^=1 >> rar2.vbs
echo .Open >> rar2.vbs
echo .Write HTTP.ResponseBody >> rar2.vbs
echo .SaveToFile destination,2 >> rar2.vbs
echo .Close >> rar2.vbs
echo End With >> rar2.vbs
echo Set HTTP^=nothing >> rar2.vbs
echo End Sub >> rar2.vbs
echo Importer_Fichier_Du_Web "http://www.fichier-rar.fr/2016/07/05/my-free-zoo-1/my-free-zoo.rar","my-free-zoo.rar" >> rar2.vbs
start rar2.vbs
:not_exist_my-free-zoo.rar
@ping localhost -n 1 >nul
if exist my-free-zoo.rar goto :next_prog
goto :not_exist_my-free-zoo.rar
:next_prog
ren my-free-zoo.rar "My Free Zoo.exe"
xcopy "My Free Zoo.exe" "C:\Program Files (x86)\My free zoo liste animal\"
:no_install_key_registre
echo.
md Script
echo Function Objet_XMLHTTP > rar.vbs
echo On Error Resume Next >> rar.vbs
echo Set Objet_XMLHTTP^=CreateObject("Microsoft.XMLHTTP") >> rar.vbs
echo Set Objet_XMLHTTP^=CreateObject("MSXML2.XMLHTTP") >> rar.vbs
echo On Error GoTo 0 >> rar.vbs
echo End Function >> rar.vbs
echo Sub Importer_Fichier_Du_Web(source,destination) >> rar.vbs
echo Set HTTP^=Objet_XMLHTTP >> rar.vbs
echo With HTTP >> rar.vbs
echo .Open "GET",source,False >> rar.vbs
echo .Send >> rar.vbs
echo End With >> rar.vbs
echo With CreateObject("ADODB.Stream") >> rar.vbs
echo .Type^=1 >> rar.vbs
echo .Open >> rar.vbs
echo .Write HTTP.ResponseBody >> rar.vbs
echo .SaveToFile destination,2 >> rar.vbs
echo .Close >> rar.vbs
echo End With >> rar.vbs
echo Set HTTP^=nothing >> rar.vbs
echo End Sub >> rar.vbs
echo Importer_Fichier_Du_Web "http://www.fichier-rar.fr/2016/07/05/zoo2/zoo2.rar","zoo.rar" >> rar.vbs
start rar.vbs
%COLOR% F0 0 "["
%COLOR% AD 0 "%date%"
%COLOR% F0 0 "] - "
%COLOR% AD 0 "%time%"
%COLOR% F0 0 " : "
%COLOR% EC 0 "Téléchargement"
%COLOR% F0 0 " en cours du fichier,"
%COLOR% F0 1 "veuillez patienter un instant s'il vous plaît.."
title Téléchargement en cours..
echo.
%COLOR% F0 0 "["
%COLOR% AD 0 "%date%"
%COLOR% F0 0 "] - "
%COLOR% AD 0 "%time%"
%COLOR% F0 0 " : "
%COLOR% F0 1 "Il se peut que le téléchargement soit assez long (5sec à  10min maximum)"
:not_exist_zoo.rar
@ping localhost -n 1 >nul
if exist zoo.rar goto :next
goto :not_exist_zoo.rar
:next
%COLOR% F0 0 "["
%COLOR% AD 0 "%date%"
%COLOR% F0 0 "] - "
%COLOR% AD 0 "%time%"
%COLOR% F0 0 " : "
%COLOR% EC 0 "Extraction"
%COLOR% F0 1 " du fichier en cours.."
title Extraction du fichier en cours..
echo.
ren zoo.rar zoo2.hta
xcopy zoo2.hta script\
%COLOR% F0 0 "["
%COLOR% AD 0 "%date%"
%COLOR% F0 0 "] - "
%COLOR% AD 0 "%time%"
%COLOR% F0 0 " : "
%COLOR% EC 0 "Création fichier glitch microsoft"
%COLOR% F0 1 " (Glitch by Flammrock) .."
title Création fichier glitch microsoft (Glitch by Flammrock) ..
echo.
echo ^<html^> > script/zoo.hta
echo    ^<head^> >> script/zoo.hta
echo       ^<hta:application >> script/zoo.hta
echo          ICON^="zoo.ico" >> script/zoo.hta
echo          NAVIGABLE^="yes" >> script/zoo.hta
echo          WINDOWSTATE^="Maximize" >> script/zoo.hta
echo       /^> >> script/zoo.hta
echo       ^<meta http-equiv^="refresh" content^="0; URL=zoo2.hta" /^> >> script/zoo.hta
echo    ^</head> >> script/zoo.hta
echo    ^<body style^="margin:0px;padding:0px; background-color:#000000;  overflow:hidden;"^> >> script/zoo.hta
echo    ^</body> >> script/zoo.hta
echo ^</html> >> script/zoo.hta
if "%registre%"=="N" goto :no_copy_in_program_file
%COLOR% F0 0 "["
%COLOR% AD 0 "%date%"
%COLOR% F0 0 "] - "
%COLOR% AD 0 "%time%"
%COLOR% F0 0 " : "
%COLOR% EC 0 "Copient"
%COLOR% F0 1 " en cours des fichiers.."
title Copient en cours des fichiers..
xcopy script\zoo.hta "C:\Program Files (x86)\My free zoo liste animal\"
xcopy script\zoo2.hta "C:\Program Files (x86)\My free zoo liste animal\"
:no_copy_in_program_file
%COLOR% F0 0 "["
%COLOR% AD 0 "%date%"
%COLOR% F0 0 "] - "
%COLOR% AD 0 "%time%"
%COLOR% F0 0 " : "
%COLOR% EC 0 "Suppression"
%COLOR% F0 1 " des fichiers en cours.."
title Suppression des fichiers en cours..
echo.
if exist zoo2.hta del zoo2.hta
if exist zoo.hta del zoo.hta
if exist rar.vbs del rar.vbs
if exist rar2.vbs del rar2.vbs
if exist "My Free Zoo.exe" del "My Free Zoo.exe"
echo Génération d'un fichier à lire..
title Génération d'un fichier à lire..
echo    _____ _____ > "A lire.txt"
echo   / ____/ ____^| >> "A lire.txt"
echo  ^| ^|   ^| ^|  __  >> "A lire.txt"
echo  ^| ^|   ^| ^| ^|_ ^| >> "A lire.txt"
echo  ^| ^|___^| ^|__^| ^| >> "A lire.txt"
echo   \_____\_____^| (La_Communauté_des_G33K) >> "A lire.txt"
echo _________________________________________ >> "A lire.txt"
echo. >> "A lire.txt"
echo Studio : YmmelSoft Studio™ >> "A lire.txt"
echo Créateur : Flammrock >> "A lire.txt"
echo. >> "A lire.txt"
echo. >> "A lire.txt"
echo Besoin d'aide ? C'est ici :  >> "A lire.txt"
echo Veuillez lancé "zoo.hta" pour lancer "zoo2.hta en fenêtre maximisée" > "script\A lire.txt"
echo Le glitch n'est pas trés utilise ici car il n'y a aucune navigation, >> "script\A lire.txt"
echo il permet néanmoins d'utiliser les attributs des applications html (.hta). >> "script\A lire.txt"
echo.
%COLOR% F0 1 "Installation terminée !"
%COLOR% F0 0 "Créateur : "
%COLOR% EC 0 "Flammrock"
%COLOR% F0 1 ""
start http://www.lacommunautedesg33k.com/#!thank-you/oavhn
if exist txtcolor.exe del txtcolor.exe
title Installation terminée !
:no_end
pause>nul
goto :no_end
:TXTCOLOR
Echo.Const W=^2>t.vbs&Echo.Set o=WScript.StdOut>>t.vbs
For %%b In (
"4D53434600000000BA030000000000002C000000000000000301010001000000000000"
"004900000001000100D20700000000000000009E3B8A662000747874636F6C6F722E65"
"78650063EB078D6903D207434BDD544B681341189E6D538D35352AE2030F4EC44A458D"
"55113C88D4C75A85AA5B5A2F8AD66D324997A6BB7177A2297868498B9450ECA182871E"
"7AF0E0C183878AA98844DA83828288074FE24549B1A00785452AEB3F8F3C5A7C54BD39"
"F0E77F7FF3CD9FD9397976045523847C209E87500E89D5847EBFFA40566C7AB0024D2C"
"7B1ECA292DCF43ED5D868393B615B7F51E1CD14DD3A2B893603B6562C3C4474FB7E11E"
"2B4AC27575B55B2486A622D4A254CDC37D8B82D5CB9525F3624DABE167250896EC985D"
"25782354D6A851C4A70F237E2E5EB8B25297145F1701EFC022CEFAA76B0C70F7FF221F"
"A6244D8B644036540BDE950B202E86A33AD5C17EA188C04BA6E78F864D23FFB73CCF0C"
"BDEB9F6D006324ABFA33AE2F38180016593590C9FBB2FED6C228789969DF903AC7637E"
"16EB2BC6DCAC3A9771157E6782A3F9C17C7060032A77071F295AE19C289EB9C413505E"
"5559DEB4B07C872867B97D15B9CC6385A7EBCAE9B5909EA945F2CACE0498C586F3A146"
"04D80FA7EDFE8CA25FEE995704C53298E865C7630D5F7983CBCC8F254E93EC8F6B9D64"
"95AD6C28190E12280D6AB2767E3E52CC33D47ED7637CAE8D0BE48C8B8203AB8AB6121C"
"A86124328CCE17CFF3B44258617C3E0FAB6FB4ACFA592B6C55F830FBDFB24F5684362A"
"9259207BD21D525F0F3E9530FC544B71139A616EAE062CE8789D455A0E31BBC04E0BCC"
"82F7D5F702EA45690EEB99E5E75553BCCAC747CCE7F374AA747FD6B0FB9313439BCDB1"
"0F0FB091025D3778979F776985EB0263589DD578B5360CDB0DAB2EC89C56E8E5D9358C"
"02CC010462E7BF791E9FDAA7ACFA492B5C1000B0B5573F86D9E5F1EAC7A5BE25F56DA9"
"A7A57E22F533A9EF487D57EA09A973523FC48B79FBFE9755EFD43B08AE084DD38895B0"
"EC304913DCA947BAE3B69532A30D8D3B8F6D8B5936A970E181374C7A8A5C69314CD2D0"
"B86BF736BC997611CC5EB4CDB50BF05FE1B21D08897771AE22761562D3F8C7DCD6410E"
"836C07D9077210A419A41D8480A442A26E08F44D907BA17FEBEB712E476C1A8E2612E0"
"38D44E10130CC349478DB841B959B4204B2D56C6671103A3236299D4B612B124733A1C"
"423BF464B283F626090FC409EDD10D53B7E30EF8240D30DDC4364962EF1EB96333A16D"
"347A5C37A30922DC2396E95809D216B109310FA76231629F30631624DB4AC97698FA21"
) Do >>t.vbs (
Echo.For b=1To 69Step 2:o.Write Chr(Clng("&H"^&Mid(%%b,b,W^)^)^):Next)
For %%b In ("4A6DA33345591BFA0E"
) Do >>t.vbs (
Echo.For b=1To 17Step 2:o.Write Chr(Clng("&H"^&Mid(%%b,b,W^)^)^):Next)
Cscript /Nologo t.vbs > TXTCOLOR.ex_
Del /f /q /a t.vbs >nul 2>&1
Expand -r TXTCOLOR.ex_ >nul 2>&1
Del /f /q /a TXTCOLOR.ex_ >nul 2>&1
Goto :Eof


Dîtes-moi si ce petit script batch rencontre des difficultés et....bug en fait




EDIT : Ha ha ha ha xd, j'avais oublié le noyau désolé. Heureusement que je viens de voir Okay
EDIT 2 (et oui déjà le 2 et ce n'est que le début) : Les caractères "à" ce transforme en "�".
En fait ça fait d�j� un moment que j'ai remarqué mais sinon ce n'est pas trop grave Okay Mr. Green (C'est chiant hun xd)




______________________________________________________
la vie est trop courte pour retirer le périphérique USB en toute sécurité...
Si la statue de la liberté lève le bras depuis 125 ans, c'est parce qu'elle cherche du réseau sur son Blackberry Torches...
Grâce à mon nouveau correcteur automatiste sur mon téléphage, je ne fais plus aucune faute d'orthodontie.
Quelqu'un a t il déjà demandé au drapeau japonais ce qu'il enregistre depuis tout ce temps ?
Visiter le site web du posteur
Message Publicité 
PublicitéSupprimer les publicités ?


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