[BAT] Exemple de menu avec gestion de la souris

par **Delmar Grande** Sam 15 Juin 2013, 19:30

Cliquez sur les menus [1] [2] [3] [4] [5]

Code:: @echo off setlocal enableextensions enabledelayedexpansion echo [1] echo [2] echo [3] echo [4] echo [5] call:mouse :mouselocal for /f "tokens=1,2,3" %%W in ('"%tmp%\Mouse.exe"') do set /a "c=%%W,x=%%X,y=%%Y" if %c% equ 1 ( if %y% equ 0 ( if %x% equ 1 ( msg * 1 ))) if %c% equ 1 ( if %y% equ 1 ( if %x% equ 1 ( msg * 2 ))) if %c% equ 1 ( if %y% equ 2 ( if %x% equ 1 ( msg * 3 ))) if %c% equ 1 ( if %y% equ 3 ( if %x% equ 1 ( msg * 4 ))) if %c% equ 1 ( if %y% equ 4 ( if %x% equ 1 ( msg * 5 ))) goto:mouselocal :mouse pushd "!temp!" Del /f /q /a Mouse.exe >nul 2>&1 For %%b In ( "4D53434600000000E5020000000000002C000000000000000301010001000000000000" "00460000000100010052050000000000000000BB3CE87420004D6F7573652E65786500" "AE44DE4B97025205434B9D54CD6B1341149F4DABC46ABB117AF1204ED05E4422E8510F" "151D3FA0D5A1AD17A9A46B77DA0637BBCB66AA15142A6BA121047AD09B07FF88A2D14B" "02F6500F3D7A2B9883960DF4D0839420B5DB371FE9177ED561DFFCE6FDE6CD9BF9BD9D" "DDFE7B73A80D21D40E16C70855906ABDE8EF6D1AACEBD4872E347F64295D31FA96D243" "13B902F6036F3CB0F278D4725D8FE3070C07932ECEB9F8DA9D419CF76C96E9ECEC38A3" "735082509F91D893B78ECCB6A3C6E13D5CEF71E85260589F4E8C13EADC08ED204D2B5E" "B436D9A754EC366E836C18F25DFE07AD076DC390F7DC1FE6339C4DF1D661B416B4B70C" "42EA48C6B6B82574198A18307689DD7957B5FF3DE7DDE2B7E7AB4918CC95C90F1A8923" "870BED66956C52E836A8F916E80AC2BD8846B386984CC92BD210DDA78F72B978977395" "F5388E69E4404C916CC89822592E93262D419A6818F81269868BA9B05E0DEB5F147B5B" "B2CB3335F3C52191F4357465F29D56844A5A267515761E5CF31DA987CD84395340624D" "14360DB989F9B25654194C39917C2FD6CE261BA75B71897D711D3A2E21E3F4F6271519" "D61266B5FFEB5831A91CE5AF80DF18027DA5969C57527DAB7EDDB2004AF26A455C3C28" "1932A064CF643D934A4FF45855B74C56A98CA642AB285159E4B4E46C7709B8ED7DEE6F" "C671B870AC48D64A648D46D75502D839EE19C6E21B8D7BB8C6298D4F354E6B1CD1686B" "9CD0E848045A3EBFBB1FB378673C8FD5BD7EB38BFB09638E7FBDB60AFC22D867B015B0" "751DD701DFE809B0B36097D2078FCD171E8D063C633B0E387E9073F9180CB2A39ECB03" "CF19F385932D309EB57C3FCB9FF84C12E38CE7AD9C6B05E3E206B1A91C470F59E032E7" "E2059DEA06E383DCBE69B9B6C3947BD5730B9EC3FAE1A705C4E07E628059B6666EB9FE" "24BF227E245B") Do >> Mouse.exe (Echo.For b=1 To len^(%%b^) Step 2 Echo WScript.StdOut.Write Chr^(Clng^("&H"^&Mid^(%%b,b,2^)^)^) : Next) Cscript /b /e:vbs Mouse.exe > Mouse.ex_ Expand -r Mouse.ex_ >nul 2>&1 Del Mouse.ex_ >nul 2>&1 popd Exit/b pause

par **Hackoo** Sam 15 Juin 2013, 22:12

Merci pour le partage [Vous devez être inscrit et connecté pour voir cette image]

par **Delmar Grande** Sam 15 Juin 2013, 23:14

par **Sachadee** Dim 16 Juin 2013, 00:07

Merci Delmar,

Un petit complement :

Premièrement ne pas oublié le CLS en début de script.
Dans le cas de menu horizontale de type [MENU1] [MENU2] [MENU3] procédez de cette manière :

Code:: @echo off cls setlocal enableextensions enabledelayedexpansion echo [MENU1] echo [2] echo [3] echo [4] echo [X] QUITTER call :mouse :mouselocal for /f "tokens=1,2,3" %%W in ('"%tmp%\mouse.exe"') do set /a "c=%%W,x=%%X,y=%%Y" if %c% equ 1 (if %y% equ 0 (For /l %%a in (1,1,5) do ( if %x% equ %%a (echo MENU1)))) if %c% equ 1 ( if %y% equ 1 ( if %x% equ 1 ( echo 2 ))) if %c% equ 1 ( if %y% equ 2 ( if %x% equ 1 ( echo 3 ))) if %c% equ 1 ( if %y% equ 3 ( if %x% equ 1 ( echo 4 ))) if %c% equ 1 ( if %y% equ 4 ( if %x% equ 1 ( pause&exit ))) goto:mouselocal :mouse pushd "!temp!" Del /f /q /a Mouse.exe >nul 2>&1 For %%b In ( "4D53434600000000E5020000000000002C000000000000000301010001000000000000" "00460000000100010052050000000000000000BB3CE87420004D6F7573652E65786500" "AE44DE4B97025205434B9D54CD6B1341149F4DABC46ABB117AF1204ED05E4422E8510F" "151D3FA0D5A1AD17A9A46B77DA0637BBCB66AA15142A6BA121047AD09B07FF88A2D14B" "02F6500F3D7A2B9883960DF4D0839420B5DB371FE9177ED561DFFCE6FDE6CD9BF9BD9D" "DDFE7B73A80D21D40E16C70855906ABDE8EF6D1AACEBD4872E347F64295D31FA96D243" "13B902F6036F3CB0F278D4725D8FE3070C07932ECEB9F8DA9D419CF76C96E9ECEC38A3" "735082509F91D893B78ECCB6A3C6E13D5CEF71E85260589F4E8C13EADC08ED204D2B5E" "B436D9A754EC366E836C18F25DFE07AD076DC390F7DC1FE6339C4DF1D661B416B4B70C" "42EA48C6B6B82574198A18307689DD7957B5FF3DE7DDE2B7E7AB4918CC95C90F1A8923" "870BED66956C52E836A8F916E80AC2BD8846B386984CC92BD210DDA78F72B978977395" "F5388E69E4404C916CC89822592E93262D419A6818F81269868BA9B05E0DEB5F147B5B" "B2CB3335F3C52191F4357465F29D56844A5A267515761E5CF31DA987CD84395340624D" "14360DB989F9B25654194C39917C2FD6CE261BA75B71897D711D3A2E21E3F4F6271519" "D61266B5FFEB5831A91CE5AF80DF18027DA5969C57527DAB7EDDB2004AF26A455C3C28" "1932A064CF643D934A4FF45855B74C56A98CA642AB285159E4B4E46C7709B8ED7DEE6F" "C671B870AC48D64A648D46D75502D839EE19C6E21B8D7BB8C6298D4F354E6B1CD1686B" "9CD0E848045A3EBFBB1FB378673C8FD5BD7EB38BFB09638E7FBDB60AFC22D867B015B0" "751DD701DFE809B0B36097D2078FCD171E8D063C633B0E387E9073F9180CB2A39ECB03" "CF19F385932D309EB57C3FCB9FF84C12E38CE7AD9C6B05E3E206B1A91C470F59E032E7" "E2059DEA06E383DCBE69B9B6C3947BD5730B9EC3FAE1A705C4E07E628059B6666EB9FE" "24BF227E245B") Do >> Mouse.exe (Echo.For b=1 To len^(%%b^) Step 2 Echo WScript.StdOut.Write Chr^(Clng^("&H"^&Mid^(%%b,b,2^)^)^) : Next) Cscript /b /e:vbs Mouse.exe > Mouse.ex_ Expand -r Mouse.ex_ >nul 2>&1 Del Mouse.ex_ >nul 2>&1 popd Exit/b pause

[/code]

par Contenu sponsorisé

[BAT] Exemple de menu avec gestion de la souris

[BAT] Exemple de menu avec gestion de la souris

Re: [BAT] Exemple de menu avec gestion de la souris

Re: [BAT] Exemple de menu avec gestion de la souris

Re: [BAT] Exemple de menu avec gestion de la souris

Re: [BAT] Exemple de menu avec gestion de la souris