Informatika és tudomány

Batch programozás
  • O0D:
    #6
    98 alatt nem műkszik a /p -s dolog, viszont xpben megírtam
    kis lantalk :):

    @echo off
    set $elkuldott=- meg nem kuldtel uzenetet -
    set /p $gepnev=Add meg a gepnevet ahova kuldozgetni szertnel:

    :ide
    cls
    echo @ ### ## kapcs a(z) %$gepnev% geppel ### ## ikszpopup_ __ ##
    echo @ _____________________________________________________________ @
    if "%$hiba%"=="1" echo - _!!!___ sikertelen uzenet kuldes: %$elkuldott% !!!
    if "%$hiba%"=="0" echo @ _ elozo uzeneted : %$elkuldott%
    echo @ ______________________________________________________________ @
    echo @ _________ __________ ( kilepes: qqq ) __________ ___________ @
    echo @ __ ez a kis progi stringet kuld net sendel!!! ( XP/nt hez ) __ @
    echo @ ______________________________________________________________ @

    set /p $param=# #__ Add meg az uzeneted:

    if "%$param%"=="qqq" goto kilep

    call net send %$gepnev% -%$param%
    set $hiba=0
    if errorlevel 1 set $hiba=1


    set $elkuldott=%$param%

    goto ide

    :kilep
    echo kilepes