Connexion

Récupérer mon mot de passe

Qui est en ligne ?
Il y a en tout 1 utilisateur en ligne :: 0 Enregistré, 0 Invisible et 1 Invité

Aucun

Le record du nombre d'utilisateurs en ligne est de 24 le Ven 15 Déc 2017, 23:28
Derniers sujets
Flux RSS



Flag Counter
Partenaires

[BAT] Exemple de menu avec gestion de la souris

Aller en bas

[BAT] Exemple de menu avec gestion de la souris

Message par Delmar Grande le 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
avatar
Delmar Grande
EQUIPE BBAT
EQUIPE BBAT

Mensagens : 170
Data de inscrição : 14/06/2013
Localização : Devant le pc

http://dbatchscript.forumeiros.com/

Revenir en haut Aller en bas

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

Message par Hackoo le Sam 15 Juin 2013, 22:12

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

Mensagens : 135
Data de inscrição : 06/06/2013
Localização : Tunisie

Revenir en haut Aller en bas

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

Message par Delmar Grande le Sam 15 Juin 2013, 23:14

Razz
avatar
Delmar Grande
EQUIPE BBAT
EQUIPE BBAT

Mensagens : 170
Data de inscrição : 14/06/2013
Localização : Devant le pc

http://dbatchscript.forumeiros.com/

Revenir en haut Aller en bas

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

Message par Sachadee le 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]
avatar
Sachadee
Admin
Admin

Mensagens : 591
Data de inscrição : 04/06/2013

http://bbat.forumeiro.com

Revenir en haut Aller en bas

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

Message par Contenu sponsorisé


Contenu sponsorisé


Revenir en haut Aller en bas

Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum