DosTips.com

Code: Select all

@echo off & setlocal enabledelayedexpansion

cls

if /I {%1}=={input} goto input
if /I {%1}=={output} goto output

title 1234567890987654321

for /f "tokens=1,2 delims=:" %%i in ('tasklist /fi "windowtitle eq 1234567890987654321" /fo list') do (
    if "%%i"=="PID" set "my_pid=%%j"
)

set my_pid=%my_pid: =%

start /b "" cmd /c "%0" input > nul
start /b /wait "" cmd /c "%0" output < nul
exit /b

:input

set key=

for /f "delims=" %%i in ('xcopy /w "%~f0" "%~f0" 2^> nul') do (
    if not defined key set "key=%%i"
)

set "key=%key:~-1%"

title %key%

goto input


:output

for /f "tokens=1,2 delims=:" %%i in ('tasklist /v /fi "pid eq %my_pid%" /fo list') do (
   if "%%i"=="Window Title" set "key=%%j"
)
set key=%key: =%

if defined key (
   if "!key:~0,1!"=="!key!" (
      echo main: !key!
   )
)

goto output

Code: Select all

:: "unblockingInput.bat"
:: non-blocking keyboard input implementation
@echo off
setlocal enableExtensions enableDelayedExpansion
set "quit=q"
set "unblock=x"
set "SignalTerminate=terminate"

if "%~1" == "" (
   if exist "!SignalTerminate!" >nul del "!SignalTerminate!"
        if exist "!SignalTerminate!" (
      echo(Unexpected Error: "!SignalTerminate!" is write protected, or a directory.
   ) else (
      echo: Starting unblocking input:
      (((>&2 "%~f0" input) | (>&2 "%~f0" unblock)) 2>&1) | ("%~f0" main)
      if exist "!SignalTerminate!" >nul del "!SignalTerminate!"
   )
) else call :%~1
endlocal
goto :eof


:input
for /L %%a in (0, 0, 0) do (
   if exist "!SignalTerminate!" exit 0
   set "key="
   for /f "delims=" %%b in ('xcopy /w "%~f0" "%~f0" 2^>nul') do if not defined key set "key=%%b"
   set "key=!key:~-1!"
   <nul set /P "=!key!"
)
echo(Unexpected termination of endless loop on :input.
exit 1


:unblock
for /L %%a in (0, 0, 0) do (
   <nul set /P "=!unblock!"
   if exist "!SignalTerminate!" exit 0
)
echo(Unexpected termination of endless loop on :unblock.
exit 1


:main
>&3 echo(Awaiting input key ^^^('!quit!' to quit^^^): 
for /L %%a in (0, 0, 0) do (
   set "input="
   set /P "input="

   if defined input set "input=!input:%unblock%=!"
   if defined input echo(Read key: !input!

   for /f "tokens=1* delims=%quit%" %%b in ("_!input!_!quit!_") do if "%%~c" == "_!quit!_" (
      >nul copy nul "!SignalTerminate!"
      call :outro
      exit 0
   )
)
echo(Unexpected termination of endless loop on :main.
exit 1


:outro
echo(
echo(Bye world^^^!
echo(Press any key to continue.
goto :eof

Code: Select all

@echo off
setlocal
title :,0,"
if /I {%1}=={input} goto input 
if /I {%1}=={output} goto output

 rem use TAB to EXIT
for /f "delims= " %%T in ('robocopy /L . . /njh /njs' )do set "TAB=%%T"
set "title=1234567890987654321"
title %title%

for /f "tokens=2delims=," %%i in ('tasklist /fi "windowtitle eq %title%" /fo csv /nH' )do set "my_pid=%%~i"
set/aN=1,X=0
start /b "" cmd /c "%0" input
call "%0" output <nul
echo END script
pause
exit /b

:input
set "K="
for /f "eol=0 delims=" %%i in ('xcopy /w "%~f0." ?' )do set "K=%%i"
 setlocal enabledelayedexpansion
 if NOT :!K:~-1!==: title :,!N!,"!K:~-1!
 if !TAB!==!K:~-1! exit /b
 endlocal
 set/aN%%=10000,N+=1
goto :input

:output
for /f "tokens=10*delims=," %%i in ('tasklist /v /fi "pid eq %my_pid%" /fo csv /nH' )do (
  if NOT %X%==%%i set/aX=%%i&echo --- %%~j ---
  if ^%TAB%==%%~j exit /b
  goto :output
)

Code: Select all

@echo off

:: Asynchronous key reading script for taking non blocking input
:: Original Author: Nephi12
:: Contributer: Phil aka: pieh-ejdsch
:: Contributer: T3RRY
:: https://www.dostips.com/forum/viewtopic.php?t=7679
:: Handles the following Keys [Including Upper and Lower Case]:
:: `~1!2@3#4$5%6^7&8*9(0)-_=+\|]}[{poiuytrewqsadfghjkl;:'"/?.>,<mnbvcxz
:: TAB is used to exit the script.

 setlocal
 title :,0,"
:: thread label control structure by Jeb - https://stackoverflow.com/a/68636825/12343998
 for /F "tokens=3 delims=:" %%L in ("%~0") do goto %%L

(Set LF=^


%= Do not modify LineFeed var =%)

 rem use TAB to EXIT
 for /f "delims= " %%T in ('robocopy /L . . /njh /njs' )do set "TAB=%%T"

 set "title=1234567890987654321"
 title %title%

 for /f "tokens=2 delims=," %%i in ('tasklist /fi "windowtitle eq %title%" /fo csv /nH' )do set "my_pid=%%~i"
 set/aN=1
 Start /AboveNormal /b "" "%~d0\:Input:\..%~pnx0"
 Start /AboveNormal /b /Wait "" "%~d0\:Output:\..%~pnx0" <nul
 echo END script
 pause
exit /b

:input
For /l %%. in ()Do (%= Do not modify this function =%
 set "K="
 for /f "eol=0 delims=" %%i in ('xcopy /w "%~f0." ?' )do set "K=%%i"
  setlocal enabledelayedexpansion
  if NOT :!K:~-1!==: title :,!N!,"!K:~-1!
  if !TAB!==!K:~-1! EXIT
  set/aN%%=10000
  For %%v in (!N!)Do endlocal & Set/A"N=%%v+1"
 )
)

:output

 For /F %%a in ('copy /Z "%~dpf0" nul') do (set "CR=%%a") %= Enable use of Carriage Return =%
 For /F "delims=#" %%a in ('"prompt #$H# &echo on &for %%b in (1) do rem"') do (
  Set "BS=%%a" %= Enable use of BackSpace =%
 )
 Set "BS=%BS:~0,1%"
 Setlocal DisableDelayedExpansion

 For /L %%. in ()Do (%= Do not modify outer For loops =%
  For /f "tokens=10* delims=," %%i in ('tasklist /v /fi "pid eq %my_pid%" /fo csv /nH' )do (
   For /f "tokens=1,2 Delims=," %%J in ("%%~j")Do (
    Set "Input#=%%~J"
    Set "Key=%%~K"
    Setlocal EnableDelayedExpansion
    If not "!Input#!"=="!LastInput#!" (%= Perform actions based on input =%
     If "!Key!"==" " (%= Optional Condition - Perform action on SPACE =%
      Set "key-lock=1"
      <nul set /P"=.!BS! "
     )
     If "!Key!"=="!CR!" (%= Optional Condition - Perform action on ENTER =%
      Set "key-lock=1"
      Echo(
     )
     If "!Key!"=="!BS!" (%= Optional condition - Perform action on BACKSPACE =%
      Set "key-lock=1"
      <nul set /p"=!BS! !BS!"
     )
     If defined Key (%= Input was non-comma =%
      If not defined key-lock (%= Perform action using non COMMA SPACE ENTER or BACKSPACE keypress =%
       <nul set /p"=!Key!"
      )
     )Else If not "!Input#!"=="0" (%= Optional condition - Perfom action on COMMA =%
      %= Input was COMMA [ removed in For /F J set ] =%
      <nul set /p"=,"
     )
    )Else (%= No Input was entered during current loop =%
     Set "Key="
     rem %= Perform any command/s while waiting for next input =%
    )
   )
   %= EXAMPLE - define variables to retain between loops by defining to retain list =%
   %= LastInput# Definition required =%
   Set "Retain="LastInput#=!Input#!" "Keys=!Keys!!key!""
   if !TAB!==!Key! (%= Hard exit of process required due to infinite for /l loop =%
    %= Example demonstration of Tunneled retain variables =% Echo(!Keys!
    Endlocal
    EXIT
   )
   %= Tunnel list of return variables [ '*' and '?' cannot be parsed. ] =%
   For /f "Delims=" %%v in ("!Retain!")Do Endlocal & For %%R in (%%v)Do Set %%R
  )
 )
)