API tools faq
paste
Advertisement
Guest User

test

a guest
Sep 9th, 2020
62
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Batch 17.71 KB | None | 0 0
raw download clone embed print report
  1. @echo OFF
  2. title LAN-Messenger
  3. mode CON cols=40 lines=3
  4. rem IF /i %1==debug @echo ON
  5.  
  6. color 07
  7.  
  8. REM ALLGEMEINE VERSION
  9. SET ver=1.3.4
  10.  
  11. REM SET /P readcolor=<.\data_lanmsgr\color.data
  12. REM color %readcolor%
  13.  
  14. :password
  15. mode CON cols=50 lines=6
  16.  
  17.  
  18. :login
  19. mode CON cols=50 lines=6
  20. if exist ".\data_lanmsgr\nick.data" ( GOTO takename)
  21. CLS
  22. echo ---------------- LAN - Messenger -----------------
  23. echo :------------------------------------------------:
  24. echo :      Bitte geben Sie ihren Chat-Namen ein!     : class="re0">
  25. echo --------------------------------------------------
  26. echo.
  27. SET /p "chatn=Chat-Name: "
  28. IF /i "%chatn%"=="" GOTO emptyname
  29. GOTO rules
  30.  
  31. :emptyname
  32. SET "chatn=%username%"
  33. GOTO rules
  34.  
  35. :takename
  36. SET /P chatn=<./data_lanmsgr\nick.data
  37. ECHO.
  38. ECHO ==================================================
  39. ECHO              - Willkommen, %chatn% -
  40. ECHO ==================================================
  41. TIMEOUT /T 1 /NOBREAK>NUL
  42.  
  43. :rules
  44. @mode CON cols=50 lines=17
  45. IF exist ".\data_lanmsgr\rules.accepted" goto load
  46. CLS
  47. echo -------------------- Regeln ----------------------
  48. echo :     1. Bitte beleidigen Sie niemanden!         : class="re0">
  49. echo :                                                :
  50. echo :     2. Denken Sie daran, dass jeder der        :
  51. echo :        ber dieses Programm verfgt und        :
  52. echo :        im lokalen Netzwerk angemeldet ist,     :
  53. echo :        ihre Nachrichten, welche Sie in         :
  54. echo :        diesem Programm  schreiben, lesen       :
  55. echo :        kann!                                   :
  56. echo :                                                :
  57. echo :     3. Ich bernehme keine Haftung fr         :
  58. echo :        Sch„den! (Yannik Hbl)                  :
  59. echo --------------------------------------------------
  60. echo :    Ich akzeptiere die Regeln: [j]a / [n]ein    :
  61. echo --------------------------------------------------
  62. echo.
  63. choice
  64. IF %errorlevel% equ 1 GOTO loadfirst
  65. CLS
  66. GOTO password
  67.  
  68.  
  69. :loadfirst
  70. mkdir .\data_lanmsgr  2>nul
  71.  rem was  sollen die && das  sind  bedingte Ausführungen!  (wenn dann  wenigstens Befehl & Befehl)
  72.  rem  wenn es  keine  speziellen  Notwendigkeit dafür  gibt, dann ein Befehl  pro Zeile...
  73. echo true > .\data_lanmsgr\rules.accepted
  74.  
  75. :load
  76. @mode CON cols=45 lines=10
  77. CLS
  78. for /l %%a in (1,1,7) do echo.
  79. echo  Version %ver%    [-------------]    0/100
  80. timeout 1 >NUL
  81. CLS
  82.  
  83.   rem weiß  nicht was  das  soll, die  Datei  kann zu diesem Zeitpunkt  noch garnicht existieren!
  84. IF exist ".\data_lanmsgr\pathhere.data" ( GOTO completed ) else ( ECHO DEBUG: - Config-Ordner nicht gefunden. - )
  85. for /l %%a in (1,1,6) do echo.
  86. echo  Version %ver%    [=====--------]   27/100
  87. timeout 1 >NUL
  88. CLS
  89. for /l %%a in (1,1,7) do echo.
  90. echo  Version %ver%    [=======------]   43/100
  91. timeout 1 >NUL
  92.  
  93.   rem wenn Ordner  existiert erroroutput nach  nul umleiten!  2>nul (standardoutput  ist  bei md immer  Leer also bringt nix!)
  94. mkdir data_lanmsgr 2>nul
  95.  
  96. ECHO %chatn%>.\data_lanmsgr\nick.data
  97.  
  98.   rem echt blöd schon  hier path.data zu erstellen,  wenn noch gar kein  Pfad  abgerfragt wurde... das  erschwert später die  Entscheidung zum erstellen  ...aber  ich lasse  es...
  99. ECHO NOCH_KEINEN_PFAD_GESETZT> .\data_lanmsgr\path.data
  100.  
  101. REM Hier wird nun, wenn noch nicht vorhanden, die chatausgabe Batch erstellt!
  102.  rem das liese sich  bequemer mit einer einer multiblen Batch lösen... habe  aber  keinen  Bock  alles umzuschreiben
  103.  
  104. ECHO @ECHO OFF >> .\data_lanmsgr\Chat-LanMsgr.bat
  105. ECHO TITLE Chat-LanMsgr>> .\data_lanmsgr\Chat-LanMsgr.bat
  106. ECHO mode CON cols=122 lines=25 >> .\data_lanmsgr\Chat-LanMsgr.bat
  107. ECHO SET /P readcolor=^<.\data_lanmsgr\color.data >> .\data_lanmsgr\Chat-LanMsgr.bat
  108. ECHO color %%readcolor%% >> .\data_lanmsgr\Chat-LanMsgr.bat
  109. ECHO CLS >> .\data_lanmsgr\Chat-LanMsgr.bat
  110. ECHO :start >> .\data_lanmsgr\Chat-LanMsgr.bat
  111.  rem wegen möglicher Pfade  mit Leerzeichen...
  112. ECHO for /f "usebackq tokens=*" %%%%v in (".\path.data") do set "path1=%%%%v" >> .\data_lanmsgr\Chat-LanMsgr.bat
  113. ECHO CLS >> .\data_lanmsgr\Chat-LanMsgr.bat
  114. ECHO for /f "usebackq " %%%%p in ("%%path1%%\data\info.data") do set "oldnumber=%%%%p" >> .\data_lanmsgr\Chat-LanMsgr.bat
  115. ECHO set /a oldnum=%%oldnumber%% >> .\data_lanmsgr\Chat-LanMsgr.bat
  116. ECHO echo -------------------------------------------------------------------------------------------------------------------------- >> .\data_lanmsgr\Chat-LanMsgr.bat
  117. ECHO echo ----------{Tipp: Zum Kopieren von Text, reicht es diesen zu markieren und einen Rechtsklick darauf zu machen.}------------ >> .\data_lanmsgr\Chat-LanMsgr.bat
  118. ECHO echo -------------------------------------------------------------------------------------------------------------------------- >> .\data_lanmsgr\Chat-LanMsgr.bat
  119. ECHO :chat >> .\data_lanmsgr\Chat-LanMsgr.bat
  120.  rem fehlermeldung abfangen wenn gerrade  auf  die Darei geschrieben wird
  121. ECHO (for /f "usebackq" %%%%o in ("%%path1%%\data\info.data") do set "number=%%%%o")2^>NUL >> .\data_lanmsgr\Chat-LanMsgr.bat
  122.  rem  ECHO ping localhost -n 1 -w [milliseconds]^>NUL ....
  123.  rem erstmal  ist die Syntax  falsch die  Angabe von Millisekunden von Timeout (-w) wirkt  nur auf sehr lange Pings, was für localhost nie Eintritt
  124.  
  125. ECHO IF "%%number%%" gtr "%%oldnum%%" GOTO chatread >> .\data_lanmsgr\Chat-LanMsgr.bat
  126.  rem  besser als localhostpings (<1ms)  einfach ein Paar 1000 calls ins Nichts (zwar  sehr  ungenau, aber  wir wollen  den anderen Tread ja  zeit zum schreiben geben)
  127.  rem bei sehr  langsamen Rechnern  etwas  weniger
  128. echo for /l %%%%a in (1,1,5000) do (call ) >> .\data_lanmsgr\Chat-LanMsgr.bat
  129. ECHO GOTO chat >> .\data_lanmsgr\Chat-LanMsgr.bat
  130. ECHO :chatread >> .\data_lanmsgr\Chat-LanMsgr.bat
  131.  rem  warum nochmal die Date lesen? einfach   die Variable zuweisen
  132. ECHO set "oldnum=%%number%%" >> .\data_lanmsgr\Chat-LanMsgr.bat
  133. ECHO SET /p txtout=^<"%%path1%%\mails\data.mssgdata" >> .\data_lanmsgr\Chat-LanMsgr.bat
  134. ECHO for /f "usebackq" %%%%m in ("%%path1%%\mails\data.mssgdata") do set "colortxt=%%%%m"^NUL >> .\data_lanmsgr\Chat-LanMsgr.bat
  135. ECHO IF "%%colortxt%%"=="colorfun" GOTO colorit >> .\data_lanmsgr\Chat-LanMsgr.bat
  136. ECHO ECHO %%txtout%% >> .\data_lanmsgr\Chat-LanMsgr.bat
  137. ECHO GOTO chat >> .\data_lanmsgr\Chat-LanMsgr.bat
  138. ECHO :colorit >> .\data_lanmsgr\Chat-LanMsgr.bat
  139. ECHO color 02 >> .\data_lanmsgr\Chat-LanMsgr.bat
  140. ECHO timeout 1 ^>NUL >> .\data_lanmsgr\Chat-LanMsgr.bat
  141. ECHO color 20 >> .\data_lanmsgr\Chat-LanMsgr.bat
  142. ECHO timeout 1 ^>NUL >> .\data_lanmsgr\Chat-LanMsgr.bat
  143. ECHO color fc >> .\data_lanmsgr\Chat-LanMsgr.bat
  144. ECHO timeout 1 ^>NUL >> .\data_lanmsgr\Chat-LanMsgr.bat
  145. ECHO color cb >> .\data_lanmsgr\Chat-LanMsgr.bat
  146. ECHO timeout 1 ^>NUL >> .\data_lanmsgr\Chat-LanMsgr.bat
  147. ECHO color 85 >> .\data_lanmsgr\Chat-LanMsgr.bat
  148. ECHO timeout 1 ^>NUL >> .\data_lanmsgr\Chat-LanMsgr.bat
  149. ECHO color 20 >> .\data_lanmsgr\Chat-LanMsgr.bat
  150. ECHO timeout 1 ^>NUL >> .\data_lanmsgr\Chat-LanMsgr.bat
  151. ECHO color e9 >> .\data_lanmsgr\Chat-LanMsgr.bat
  152. ECHO timeout 1 ^>NUL >> .\data_lanmsgr\Chat-LanMsgr.bat
  153. ECHO color %%readcolor%% >> .\data_lanmsgr\Chat-LanMsgr.bat
  154. ECHO GOTO chat >> .\data_lanmsgr\Chat-LanMsgr.bat
  155. CLS
  156. ECHO 07> .\data_lanmsgr\color.data
  157. CLS
  158. ECHO 1 > .\data_lanmsgr\pathhere.data
  159. CLS
  160. for /l %%a in (1,1,7) do echo.
  161. echo  Version %ver%    [=========----]   61/100
  162. timeout 1 >NUL
  163. CLS
  164. ECHO DEBUG: - Config-Ordner wurde erstellt. -
  165. for /l %%a in (1,1,6) do echo.
  166. echo  Version %ver%    [===========--]   82/100
  167. timeout 1 >NUL
  168. CLS
  169. :completed
  170. echo DEBUG: - Config-Ordner wurde eingelesen! -
  171. for /l %%a in (1,1,6) do echo.
  172. echo  Version %ver%    [============-]   96/100
  173. timeout 1 >NUL
  174. CLS
  175. for /l %%a in (1,1,7) do echo.
  176. echo  Version %ver%    [=============]  100/100
  177. timeout 1 >NUL
  178. CLS
  179. echo Starte .          [-]
  180. timeout 1 >NUL
  181. CLS
  182. echo Starte . .        [/]
  183. timeout 1 >NUL
  184. CLS
  185. echo Starte . . .      [\]
  186. timeout 1 >NUL
  187. CLS
  188. GOTO console
  189.  
  190. :console
  191. REM Hier ist nun das "Hauptmenü"/die Konsole
  192. @mode CON cols=41 lines=10
  193. SET /P readcolor=<.\data_lanmsgr\color.data
  194. color %readcolor%
  195.  rem ??? keine  Ahnung  warum dies
  196. TASKKILL /FI "WINDOWTITLE eq Chat-LanMsgr">NUL
  197.  rem auch Pfade mit Leerzeichen  einlesen  (alle token am Stück)
  198. for /f "usebackq tokens=*" %%v in (".\data_lanmsgr\path.data") do set "path1=%%v"
  199. echo blubbb %path1%
  200. @mode CON cols=41 lines=7
  201. CLS
  202. echo --------------- Konsole -----------------
  203. echo :   Sie befinden sich in der Konsole.   :
  204. echo :   Geben Sie /help ein, damit alle     :
  205. echo :   Befehle gelistet werden.            :
  206. echo -----------------------------------------
  207. echo.
  208. SET /p command=Befehl:
  209. IF %command%==/help GOTO help
  210. IF %command%==/messenger GOTO write-read
  211. IF %command%==/close GOTO close
  212. IF %command%==/exit GOTO close
  213. IF %command%==/new-nick GOTO nn
  214. IF %command%==/settings GOTO einstellungen
  215. IF %command%==/info GOTO informationen
  216. CLS
  217. color 04
  218. ECHO.
  219. ECHO.
  220. ECHO.
  221. ECHO            Ungltiger Befehl!
  222. ECHO.
  223. ECHO.
  224. TIMEOUT /T 1 /NOBREAK>NUL
  225. color %readcolor%
  226.  
  227. :help
  228. @mode CON cols=41 lines=11
  229. CLS
  230. echo ---------------- Hilfe ------------------
  231. echo /messenger : startet Messenger
  232. echo /close     : schlieát das Programm
  233. echo /new-nick  : neuen Chat-Namen eingeben
  234. echo /settings  : Einstellungen (Netzwerkpfad,
  235. echo              Farbe)
  236. echo /info      : Infos ber das Programm
  237. echo -----------------------------------------
  238. echo Beliebige Taste um fortzufahren
  239. echo.
  240.  pause >NUL
  241. GOTO console
  242.  
  243. :close
  244. TASKKILL /FI "WINDOWTITLE eq Chat-LanMsgr">NUL
  245. exit
  246.  
  247. :informationen
  248. @mode CON cols=41 lines=12
  249. CLS
  250. ECHO ------------ Informationen --------------
  251. ECHO :  Dieses Tool wurde von Yannik Hbl    :
  252. ECHO :  erstellt.                            :
  253. ECHO :  Es dient zur Kommunikation ber ein  :
  254. ECHO :  Netzlaufwerk.                        :
  255. ECHO :---------------------------------------:
  256. ECHO : ver. %ver% (Beta)            (09/2020):
  257. ECHO -----------------------------------------
  258. ECHO.
  259. ECHO Drcken sie eine beliebige Taste, um zur
  260. ECHO Konsole zu gelangen . . .
  261. pause>NUL
  262. GOTO console
  263.  
  264. :write-read
  265. CLS
  266. GOTO messengerinfo
  267.  
  268. :nn
  269. @mode CON cols=41 lines=5
  270. CLS
  271. echo ----------- Neuer - ChatName ------------
  272. echo : Geben Sie ihren neuen Chat-Namen ein! : class="re0">
  273. echo -----------------------------------------
  274. echo.
  275. SET /p chatn=Chat-Name:
  276. CLS
  277. echo Ihr Name ist nun %chatn%!
  278. timeout /t 2 /NOBREAK>NUL
  279. ECHO %chatn%>.\data_lanmsgr\nick.data
  280. GOTO console
  281.  
  282. :einstellungen
  283. @mode CON cols=41 lines=11
  284. CLS
  285. ECHO ------------ Einstellungen --------------
  286. ECHO :                                       :
  287. ECHO :       W„hlen Sie aus zwischen:        :
  288. ECHO :---------------------------------------:
  289. ECHO :        1 - Netzwerkpfad angeben       :
  290. ECHO :        2 - Farbe „ndern               :
  291. ECHO :        3 - Reset info.data            :
  292. ECHO :        4 - zur Konsole                :
  293. ECHO -----------------------------------------
  294. ECHO.
  295. set /p setdecision=Auswahl:
  296.  
  297. IF /I %setdecision%==1 GOTO setpath
  298. IF /I %setdecision%==2 GOTO setcolor
  299. IF /I %setdecision%==4 GOTO console
  300. IF /I %setdecision%==3 GOTO resetinfodata
  301. GOTO console
  302.  
  303. :resetinfodata
  304. @mode CON cols=41 lines=6
  305. CLS
  306. ECHO ----------- RESET-DATA-FILE? ------------
  307. ECHO : Wollen sie die info.data Datei im     :
  308. ECHO : LAN-Ordner zurcksetzen?(auf Wert 200):
  309. ECHO -----------------------------------------
  310. ECHO.
  311. SET /P agreeresetdata=j/n:  
  312. IF /I %agreeresetdata%==j GOTO resetinfodatanow
  313. GOTO einstellungen
  314.  
  315. :resetinfodatanow
  316. CLS
  317. @mode CON cols=41 lines=4
  318. ECHO 200 > %path1%\data\info.data
  319. CLS
  320. ECHO.
  321. ECHO Die Datei wird auf ihre Standardwerte
  322. ECHO zurckgesetzt . . .
  323. TIMEOUT 2 /NOBREAK>NUL
  324. GOTO einstellungen
  325.  
  326. :setcolor
  327. @mode CON cols=48 lines=20
  328. CLS
  329. ECHO -------------- Farbeinstellungen ---------------
  330. ECHO :      Geben Sie eine Farbkombination an!      : class="re0">
  331. ECHO :----------------------------------------------:
  332. ECHO :  z.B. 4A (roter Hintergr.;hellgrne Schrift) :
  333. ECHO :----------------------------------------------:
  334. ECHO :Farben:                                       :
  335. ECHO :                                              :
  336. ECHO :0 = Schwarz, 1 = Blau, 2 = Grn, 3 = Trkis,  :
  337. ECHO :4 = Rot,     5 = Lila, 6 = Gelb, 7 = Hellgrau,:
  338. ECHO :8 = Grau,    9 = Hellblau,   A = Hellgrn,    :
  339. ECHO :B = Helltrkis, C = Hellrot, D = Helllila,    :
  340. ECHO :E = Hellgelb,   F = Weiá                      :
  341. ECHO :                                              :
  342. ECHO :-----------------------------------------------
  343. ECHO : Syntax: [Ziffer1=Hintergr.][Ziffer2=Schrift] :
  344. ECHO :----------------------------------------------:
  345. ECHO :  Beispiele: 4a, 07 oder CD      Standard: 07 :
  346. ECHO ------------------------------------------------
  347. ECHO.
  348. Set /p colorauswahl=Eingabe:
  349. ECHO %colorauswahl%>.\data_lanmsgr\color.data
  350. GOTO console
  351.  
  352. :setpath
  353. @mode CON cols=29 lines=10
  354. CLS
  355. echo -----------------------------
  356. echo :Geben Sie nun den absoluten:
  357. echo :  Pfad zum Netzwerkordner  :
  358. echo :   fr den Messenger an!   : class="re0">
  359. echo :- - - - - - - - - - - - - -:
  360. echo :Bsp.: "T:" :Tipp: Tab-Taste:
  361. echo -----------------------------
  362. echo.
  363.  rem Gänsefüßchen sind  exterm wichtig! ein Pfad  kann auch  leerzeichen enthalten!
  364. SET /p "path1=Pfad: "
  365.  rem ist  die  eingabe  Leer? ...dann erneut abfragen
  366. if "%path1%"=="NOCH_KEINEN_PFAD_GESETZT" goto :setpath
  367. mkdir .\data_lanmsgr 2>nul
  368. ECHO %path1%> .\data_lanmsgr\path.data
  369.  
  370.   rem Warum zurück zur Console, wenn der Path noch garnicht erstellt ist????
  371.  rem  das  ist der Zeitpunkt für die   ungenutzte Sprungmarke :makelanmess
  372. if not exist "%path1%\" goto :makelanmess
  373.  
  374. GOTO console
  375.  
  376. :messengerinfo
  377. @mode CON cols=44 lines=24
  378. CLS
  379. ECHO -------------- Informationen ---------------
  380. echo :   Sie befinden sich nun im Messenger!    : class="re0">
  381. echo :   Geben Sie dann ihre Nachrichten        :
  382. echo :   ein und schicken diese mit ENTER ab,   :
  383. echo :   damit jeder aus ihrem Netzwerk diese   :
  384. echo :   Nachricht      lesen      kann.        :
  385. echo :   Wenn Sie jetzt mit ENTER best„tigen    :
  386. echo :   startet sich der Nachrichteneingang,   :
  387. echo :   und in diesem Fenster erscheint das    :
  388. echo :   Eingabefenster   fr   Nachrichten.    :
  389. echo :------------------------------------------:
  390. echo :   Geben sie ggf. /console als Nachricht  :
  391. echo :   ein, damit sie zur Konsole gelangen.   :
  392. echo --------------------------------------------
  393. echo     Ihr ChatName ist %chatn%!
  394. echo --------------------------------------------
  395.  
  396.  
  397. echo Der Netzwerk-Ordner-Pfad ist wie folgt:  
  398. echo %path1%
  399. echo --------------------------------------------
  400. IF exist "%path1%" (
  401.     ECHO Pfad existiert!
  402. ) else (
  403.     ECHO Pfad existiert nicht!
  404.     ECHO.
  405.     pause
  406.     GOTO infopath
  407. )
  408. IF exist "%path1%\madedir.data" ( ECHO LanMess-Ordner erkannt! ) else ( ECHO Kein LanMess-Ordner im Pfad gefunden gefunden! && ECHO. && PAUSE && ECHO debug:makelanmess && GOTO makelanmess )
  409. pause
  410. start .\data_lanmsgr\Chat-LanMsgr.bat
  411. GOTO inputline
  412.  
  413. :infopath
  414. @mode CON cols=44 lines=12
  415. CLS
  416. color 04
  417. ECHO ----------------- FEHLER! ------------------
  418. ECHO :       Der Pfad zu LanMess-Ordner:        :
  419. ECHO  "%path1%"
  420. ECHO :       existiert nicht!                   : class="re0">
  421. ECHO --------------------------------------------
  422.  
  423. ECHO :   Bitte geben Sie in der Konsole einen   :
  424. ECHO :     richtigen Pfad mit /settings an!     : class="re0">
  425. ECHO --------------------------------------------
  426. ECHO.
  427. pause
  428. GOTO console
  429.  
  430.   rem die Sprungmarke :makelanmess wurde nirgends angesprungen
  431.  rem somit  wurde  auch nie  die entsprechender Ordnerstruktur  erstellt
  432. :makelanmess
  433. @mode CON cols=44 lines=11
  434. CLS
  435. ECHO -------Erstelle-neuen-LanMess-Ordner--------
  436. ECHO : Ein LanMess-Ordner wurde nicht gefunden! : class="re0">
  437. ECHO :------------------------------------------:
  438. ECHO :     Wollen sie unter folgendem Pfad:     :
  439. ECHO  "%path1%"
  440. ECHO :    einen LanMess-Ordner integrieren?     :
  441. ECHO --------------------------------------------
  442. choice
  443. IF %errorlevel% equ 1 GOTO makelanmessnew
  444. GOTO console
  445.  
  446. :makelanmessnew
  447. CLS
  448. ECHO LanMess Ordner wird erstellt [-]
  449. mkdir "%path1%\data" 2>nul
  450. timeout /t 1 /NOBREAK>NUL
  451. CLS
  452. ECHO LanMess Ordner wird erstellt [\]
  453. mkdir "%path1%\mails" 2>nul
  454. ECHO bsp > "%path1%\mails\data.mssgdata"
  455. ECHO 200 > "%path1%\data\info.data"
  456. timeout /t 1 /NOBREAK>NUL
  457. CLS
  458. ECHO LanMess Ordner wird erstellt [/]
  459. ECHO 1 > "%path1%\madedir.data"
  460. timeout /t 1 /NOBREAK>NUL
  461. CLS
  462. ECHO LanMess Ordner wird erstellt [-]
  463. timeout /t 1 /NOBREAK>NUL
  464.  rem den neuen Pfad in die path.data schreiben (Klammer um den Befehl schütz  redirection von Pfaden mit einer einsamen Ziffer am Ende)
  465. (echo %path1%)>.\data_lanmsgr\path.data
  466. GOTO write-read
  467.  
  468.   rem weshalb das goto "allergisch" "messenger" als Label reagiert ist  mir bisher  ein Rätsel
  469.  rem andere  Namen funktionieren...
  470.  rem  da  muss  ich  mich  mal  wenn ich sehr  viel Zeit habe  drüberbeugen... (interessanter Bug)
  471. :inputline
  472. CLS
  473. title LAN-Messenger - %chatn%
  474. mode CON cols=122 lines=3
  475. ECHO.
  476. SET /p "nachricht=:} "
  477. IF "%nachricht%"=="/console" GOTO outtoconsole
  478. IF "%nachricht%"=="/close" GOTO outtoconsole
  479. IF "%nachricht%"=="/color-troll" GOTO colortype
  480. ECHO.%chatn%: "%nachricht%">"%path1%\mails\data.mssgdata"
  481. for /f "usebackq" %%o in ("%path1%\data\info.data") do set "number=%%o"
  482.  
  483. set /a number2=%number%+1
  484. ECHO %number2% >"%path1%\data\info.data"
  485. CLS
  486. ECHO.
  487. ECHO Bitte warten... Nachricht wird versendet!
  488. TIMEOUT 1 /NOBREAK>NUL
  489. GOTO :inputline
  490.  
  491. :outtoconsole
  492. @title LAN-Messenger
  493. ECHO.-{%chatn% hat den Chat verlassen!}-> %path1%\mails\data.mssgdata
  494. set /p number=<"%path1%\data\info.data"
  495. set /a "number2=%number%+1"
  496. ECHO %number2% > "%path1%\data\info.data"
  497. CLS
  498. GOTO console
  499.  
  500. :colortype
  501. ECHO colorfun> "%path1%\mails\data.mssgdata"
  502. CLS
  503. ECHO.
  504. ECHO Bitte warten... Befehl wird versendet!
  505. for /f "usebackq" %%o in ("%path1%\data\info.data") do set "numbert=%%o"
  506. set /a number5=%numbert%+1
  507. ECHO %number5%>"%path1%\data\info.data"
  508. TIMEOUT /T 1 /NOBREAK>NUL
  509. GOTO messenger
  510.  
  511.  
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!