Hope Any to Bat，将任何文件插入至Bat中

LJY4.0

win7好像没有Sort /Unique后面这个参数

command1152

批处理LOGO代码：

1. @echo off
   
2. echo;
   
3. echo; ■    ■
   
4. echo; ■    ■
   
5. echo; ■■■■
   
6. echo; ■    ■
   
7. echo; ■    ■
   
8. echo;
   
9. ping -n 1 127.1 >nul&&cls&&echo;
   
10. echo; ■    ■
    
11. echo; ■    ■  □□□
    
12. echo; ■■■■  □  □
    
13. echo; ■    ■  □  □
    
14. echo; ■    ■  □□□
    
15. echo;
    
16. ping -n 1 127.1 >nul&&cls&&echo;
    
17. echo; ■    ■          ■■■
    
18. echo; ■    ■  □□□  ■    ■
    
19. echo; ■■■■  □  □  ■■■
    
20. echo; ■    ■  □  □  ■
    
21. echo; ■    ■  □□□  ■
    
22. echo;
    
23. ping -n 1 127.1 >nul&&cls&&echo;
    
24. echo; ■    ■          ■■■      □□
    
25. echo; ■    ■  □□□  ■    ■  □    □
    
26. echo; ■■■■  □  □  ■■■    □□□□
    
27. echo; ■    ■  □  □  ■        □
    
28. echo; ■    ■  □□□  ■          □□□
    
29. echo;
    
30. ping -n 1 127.1 >nul&&cls&&echo;
    
31. echo;  ■■■
    
32. echo; ■    ■
    
33. echo; ■■■■
    
34. echo; ■    ■
    
35. echo; ■    ■
    
36. echo;
    
37. ping -n 1 127.1 >nul&&cls&&echo;
    
38. echo;  ■■■
    
39. echo; ■    ■
    
40. echo; ■■■■  □□□
    
41. echo; ■    ■  □  □
    
42. echo; ■    ■  □  □
    
43. echo;
    
44. ping -n 1 127.1 >nul&&cls&&echo;
    
45. echo;  ■■■           ■    ■
    
46. echo; ■    ■          ■    ■
    
47. echo; ■■■■  □□□    ■■■
    
48. echo; ■    ■  □  □        ■
    
49. echo; ■    ■  □  □    ■■
    
50. echo;
    
51. ping -n 1 127.1 >nul&&cls&&echo;
    
52. echo; ■■■■
    
53. echo;    ■
    
54. echo;    ■
    
55. echo;    ■
    
56. echo;    ■
    
57. echo;
    
58. ping -n 1 127.1 >nul&&cls&&echo;
    
59. echo; ■■■■
    
60. echo;    ■     □□□
    
61. echo;    ■     □  □
    
62. echo;    ■     □  □
    
63. echo;    ■     □□□
    
64. echo;
    
65. ping -n 1 127.1 >nul&&cls&&echo;
    
66. echo; ■■■
    
67. echo; ■    ■
    
68. echo; ■■■
    
69. echo; ■    ■
    
70. echo; ■■■
    
71. ping -n 1 127.1 >nul&&cls&&echo;
    
72. echo; ■■■    □□□
    
73. echo; ■    ■       □
    
74. echo; ■■■     □□□
    
75. echo; ■    ■  □   □
    
76. echo; ■■■    □□ □
    
77. ping -n 1 127.1 >nul&&cls&&echo;
    
78. echo; ■■■    □□□  ■■■■
    
79. echo; ■    ■       □    ■
    
80. echo; ■■■     □□□    ■
    
81. echo; ■    ■  □   □    ■
    
82. echo; ■■■    □□ □    ■
    
83. ping -n 1 127.1 >nul&&cls&&echo;
    
84. echo; 欢迎使用 Hope Any tp Bat 。
    
85. ping -n 2 127.1 >nul&&cls
    
86. exit /b

复制代码

qixiaobin0715

连这个也要给我个技术分，不妥不妥。

qixiaobin0715

何必呢？？？

command1152

回复 21# qixiaobin0715


    按回复按钮不要钱....

command1152

  >> 正在生成文件十六进制信息，此步骤将耗费较多时间，请耐心等待……
无效命令行开关。

出现问题了

command1152

回复 18# qixiaobin0715


    你知道吗：删除有评分的帖子评分会撤回...

command1152

我用您的按键检测做了一个东西：

1. @echo off
   
2. @Call :LoadFunctions
   
3. :i
   
4. cls
   
5. echo;
   
6. echo; 1.退出
   
7. echo; 2.输入密码
   
8. echo; F.控制台
   
9. echo;
   
10. Set/P=# 请选择:[ ]<Nul
    
11. @Call :Choice
    
12. If "%ascKey%"=="1" Set/P=#1]<Nul & exit
    
13. If "%ascKey%"=="2" Set/P=#2]<Nul & goto :sr
    
14. If "%ascKey%"=="f" Set/P=#F]<Nul & goto :y
    
15. If 0 Equ 0 @Goto :i %= 防止因特殊字符而出错 =%
    
16. 
    
17. :Choice
    
18.         %_Getch:#ascCode#=ascKey%
    
19. @Goto :Eof
    
20. :LoadFunctions
    
21.         Set _Getch=Set "#ascCode#=" ^& ( For /F "Usebackq Delims=" %%_ in (`XCopy /L /W "%~f0" "%~f0" 2^^^>Nul`) Do If Not Defined #ascCode# ( Set "#ascCode#=%%_") ) ^& Call Set "#ascCode#=%%#ascCode#:~-1%%"
    
22. @Goto :Eof
    
23. :sr
    
24. cls
    
25. echo;
    
26. echo; 输入密码（.清除 [空格]确定）F调出控制台:
    
27. Set/P=# %mm%[ ]    <Nul
    
28. @Call :Choice
    
29. If "%ascKey%"=="f" Set/P=#F]<Nul & set "xxa= " & set "xxb=*" & set "xxc= " & set "xxd= " & goto :y
    
30. if "%ascKey%"=="." set "mm=" & Set/P=#.]<Nul & goto :sr
    
31. if "%ascKey%"==" " Set/P=#*]<Nul & if "%mm%"=="HOPE2021" goto :y
    
32. Set/P=#%ascKey%]<Nul
    
33. set mm=%mm%%ascKey%
    
34. goto :sr
    
35. :y
    
36. set xxa=*
    
37. set xxb=
    
38. set xxc=
    
39. set xxd=
    
40. :yb
    
41. cls
    
42. echo;
    
43. echo; 控制台
    
44. echo; 按数字选择，[空格]确定
    
45. echo;
    
46. echo; [%xxa%] 1.开头
    
47. echo; [%xxb%] 2.输入密码
    
48. echo; [%xxc%] 3.退出
    
49. echo; [%xxd%] 4.打开cmd
    
50. @Call :Choice
    
51. if "%ascKey%"==" " (
    
52. if "%xxa%"=="*" goto :i
    
53. if "%xxb%"=="*" goto :sr
    
54. if "%xxc%"=="*" exit
    
55. if "%xxd%"=="*" start "" "cmd"
    
56. )
    
57. if "%ascKey%"=="1" set "xxa=*" & set "xxb= " & set "xxc= " & set "xxd= "
    
58. if "%ascKey%"=="2" set "xxa= " & set "xxb=*" & set "xxc= " & set "xxd= "
    
59. if "%ascKey%"=="3" set "xxa= " & set "xxb= " & set "xxc=*" & set "xxd= "
    
60. if "%ascKey%"=="4" set "xxa= " & set "xxb= " & set "xxc= " & set "xxd=*"
    
61. goto :yb

复制代码

qixiaobin0715

回复 22# command1152
积分并不会与水平是线性关系，有些大佬积分不多，出手就不同凡响。我觉得虽然自己水平有限，能在熟悉的地方帮到别人也是一种幸福，其他的倒是无所谓了。