[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
12
返回列表 发帖
cmd1152

帖子
984 
积分
467 
技术
33  
捐助
0  
注册时间
2021-7-14 
1楼 跳转到 »
发表于 2021-10-10 12:11 | 显示全部帖子
合作
梦依旧在，只是，心有余而力渐有不足
年年岁岁花相似，岁岁年年人不同

TOP

cmd1152

帖子
984 
积分
467 
技术
33  
捐助
0  
注册时间
2021-7-14 
2楼
发表于 2021-10-10 12:19 | 显示全部帖子
好家伙，自动创建快捷方式
梦依旧在，只是，心有余而力渐有不足
年年岁岁花相似，岁岁年年人不同

TOP

cmd1152

帖子
984 
积分
467 
技术
33  
捐助
0  
注册时间
2021-7-14 
3楼
发表于 2021-10-10 12:55 | 显示全部帖子
回复 10# HOPE2021


    调试器功能安装中，请不要进行更新......
梦依旧在，只是，心有余而力渐有不足
年年岁岁花相似，岁岁年年人不同

TOP

cmd1152

帖子
984 
积分
467 
技术
33  
捐助
0  
注册时间
2021-7-14 
4楼
发表于 2021-10-10 13:09 | 显示全部帖子

Debug安装完成

本帖最后由 cmd1152 于 2021-10-10 13:26 编辑

Version 1.0.0002
打开Debug时for显示的Backspce字符被禁用，是因为不禁用会吃掉]

   本代码存在已经被解决的BUG，请去此楼获得代码
梦依旧在，只是，心有余而力渐有不足
年年岁岁花相似，岁岁年年人不同

TOP

cmd1152

帖子
984 
积分
467 
技术
33  
捐助
0  
注册时间
2021-7-14 
5楼
发表于 2021-10-10 13:11 | 显示全部帖子
抱歉，刚刚的DeBug出现了一个小问题，请稍后...
梦依旧在，只是，心有余而力渐有不足
年年岁岁花相似，岁岁年年人不同

TOP

cmd1152

帖子
984 
积分
467 
技术
33  
捐助
0  
注册时间
2021-7-14 
6楼
发表于 2021-10-10 13:15 | 显示全部帖子
正在优化代码并增加详细的Debug
梦依旧在，只是，心有余而力渐有不足
年年岁岁花相似，岁岁年年人不同

TOP

cmd1152

帖子
984 
积分
467 
技术
33  
捐助
0  
注册时间
2021-7-14 
7楼
发表于 2021-10-10 13:22 | 显示全部帖子
本帖最后由 cmd1152 于 2021-10-10 13:28 编辑

Version 1.0.0002
代码优化完成
Debug安装完成
  1. @set DeBug=1 %   0代表关闭DeBug，1代表打开DeBug   %

  2. @%Cmd1152提供代码优化和Debug%

  3. @Echo Off

  4. 	Cls

  5. 	call :msg "设置窗口大小"

  6. 	Mode Con: Cols=120 Lines=6550

  7. 	call :msg "设置颜色"

  8. 	Color 0F

  9. 	call :msg "设置标题"

  10. 	Title Hope(R) Office EasyCommand EasyEnCode

  11. 	call :msg "设置编码"

  12. 	Chcp 936 > Nul

  13. 	Rem Hope(R) Office EasyCommand EasyEnCode

  14. 	Echo.

  15. 	call :msg "绘图"

  16. 	Call :Type "  "

  17. 	Call :Type "#" 116

  18. 	Echo.

  19. 	Call :Type " " 55

  20. 	Call :Type "EasyEnCode"

  21. 	Echo.

  22. 	Call :Type "  "

  23. 	Call :Type "#" 116

  24. 	Echo.

  25. 	call :msg "版权声明"

  26. 	Echo.

  27. 	Echo.  ^>^> Hope(R) Office EasyCommand EasyEnCode [Version 1.0.0002]

  28. 	Echo.  ^>^> (C) Copyright 2016-2021 Hope ^& Cms1152 Corp.

  29. 	

  30. 	If "%~1"=="" (

  31. 		Set FileNum=1

  32. 		call :msg "没有调用参数"

  33. 	) Else (

  34. 		Set FileNum=2

  35. 		call :msg "有参数"

  36. 	)

  37. 	call :msg "创建文件夹"

  38. 	Md "%UserProFile%\Desktop" >Nul 2>Nul

  39. 	Md "%UserProFile%\桌面" >Nul 2>Nul

  40.     call :msg "set"

  41. 	Set "Pro=%0"

  42. 	Set "lnk=Hope(R) Office EasyCommand EasyEnCode [Version 1.0.0001]"

  43. 	Set "Pro=%Pro:"=%"

  44. 	call :msg "创建快捷方式"

  45. 	Mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""Desktop"") & ""\Hope Office EasyCommand EasyEnCode [Version 1.0.0001].lnk""):b.TargetPath=""%Pro%"":b.WorkingDirectory=""%~dp0"":b.Save:close") >Nul 2>Nul

  46. 

  47. @Goto :Main

  48. 

  49. :Main

  50. 	Echo.

  51. 	Set "FileName=///*无此文件*///"

  52. 

  53. 	If "%FileNum%"=="1" (

  54. 		call :msg "输入"

  55. 		Set /P FileName=#  ^>^> 请将需要加密的文件拖动至此窗体:

  56. 	) Else (

  57. 	    call :msg "参数显示"

  58. 		Set /P FileName=#  ^>^> 请将需要加密的文件拖动至此窗体:%~1<Nul

  59. 		Echo.

  60. 		Set FileName=%~1

  61. 		Set FileNum=1

  62. 	)

  63.     call :msg "set"

  64. 	Set "FileName=%FileName:"=%"

  65. 

  66. 	For /F %%I in ('Dir /b') Do (

  67. 		If "%%I"=="%FileName%" (

  68. 			Set "FileName=%Cd%\%FileName%"

  69. 		)

  70. 	)

  71. 

  72. 	Set FileName="%FileName%"

  73. 

  74. 	If Not Exist %FileName% (

  75. 		call :msg "返回：加密错误：找不到文件"

  76. 		Echo.

  77. 		Echo.  ^>^> 无此文件!无法加密...

  78. 		@Goto :Main

  79. 	)

  80. 

  81. 	Set FilenameExtension=%FileName:~-5%

  82. 	Set FilenameExtension=%FilenameExtension:~0,4%

  83. 

  84. 	For /L %%i in (1,1,2048) Do (

  85. 		If Not Exist "File-%%i\" (

  86. 			Md "File-%%i\" >Nul 2>Nul

  87. 			Set EnCodeDir=File-%%i\

  88. 			Set Num=%%i

  89. 			@Goto :EnCode

  90. 		)

  91. 	)

  92.     call :msg "加密失败：内存错误：文件夹超过2048"

  93. 	Echo.

  94. 	Echo.  ^>^> 可分配的内存已经占满,无法加密...

  95. 

  96. @Goto :Main

  97. 

  98. :EnCode

  99. 

  100. 	Set "Choice="

  101. call :msg "文件判断"

  102. 	If /I Not "%FilenameExtension%"==".Bat" (

  103. 		call :msg "不是bat文件"

  104. 		If /I Not "%FilenameExtension%"==".Cmd" (

  105. 			call :msg "不是批处理文件"

  106. 			@Goto :Choice

  107. 		)

  108. 	)

  109.     call :msg "for 17"

  110. 	For /L %%i in (1,1,47) Do Call :RepeatBS

  111. 

  112. 	Echo.

  113. 	call :msg "绘图"

  114. 	Call :Type "  "

  115. 	Call :Type "+"

  116. 	Call :Type "=" 4

  117. 	Call :Type "正在加密"

  118. 	Call :Type "=" 4

  119. 	Call :Type "+"

  120. 	Call :Type "=" 98

  121. 	Echo.

  122. 

  123. 	Echo.

  124. 	Echo.  文件名: %FileName%

  125. 	Echo.

  126.     call :msg "正在加密..."

  127. 	Cd %EnCodeDir%

  128. 

  129. 	Copy %FileName% "%cd%\File.Bat" > Nul

  130. 

  131. 	For /F %%i in ('dir /b File.Bat') do (

  132. 		For /L %%j in (1,1,%%~zi) do (

  133. 		    call :msg for返回%%j，最后会返回%%~zi<nul

  134. 			Set /P Bytes[FileName]=%Bs%  文件大小: %%j Byte[s] <Nul

  135. 		)

  136. 	)

  137. 	Echo.

  138. 

  139. 	Call :VBScript_EnCode

  140.     call :msg "打开EnCode.vbs，等待他结束"

  141. 	Start /W "" "EnCode.VBS"

  142.     Del /f "EnCode.VBS" 2>nul

  143. 

  144. 	>> "EnCode.Bat" Echo.

  145. 	>> "EnCode.Bat" Echo.Cls

  146. 	Type "File.Bat" >> "EnCode.Bat"

  147. 

  148. 	Del /f "File.Bat" 2>nul

  149.     call :msg "完成"

  150. 	Echo.

  151. 	Echo.  加密后的文件: "%Cd%\EnCode.Bat"

  152. 	Echo.

  153. 

  154. 	For /F %%i in ('dir /b EnCode.Bat') do (

  155. 		For /L %%j in (1,1,%%~zi) do (

  156. 		    call :msg for返回%%j，最后会返回%%~zi<nul

  157. 			Set /P Bytes[FileName]=%Bs%  加密后的大小: %%j Byte[s] <Nul

  158. 		)

  159. 	)

  160. 	Echo.

  161.     call :msg "Msg"

  162. 	Mshta VBScript:msgbox("加密%FileName:~1,-1%文件成功",64,"Hope(R) Office EasyCommand EasyEnCode [Version 1.0.0001]")(window.close)

  163.     call :msg "用资源管理器打开文件夹"

  164. 	Start Explorer "%Cd%"

  165.     call :msg "用记事本打开程序"

  166. 	Start "" "Notepad" "EnCode.Bat"

  167. 

  168. 	Cd..

  169.     call :msg "绘图"

  170. 	Echo.

  171. 	Call :Type "  "

  172. 	Call :Type "+"

  173. 	Call :Type "=" 4

  174. 	Call :Type "=" 8

  175. 	Call :Type "=" 4

  176. 	Call :Type "+"

  177. 	Call :Type "=" 98

  178. 	Echo.

  179. 

  180. @Goto :Main

  181. 

  182. :RepeatBS

  183.     call :msg "Set Bs"

  184. 	Set "Bs=%Bs%"

  185. @Goto :Eof

  186. 

  187. :Type <Text> [Num]

  188. call :msg "循环字体"

  189. 	%=Company {Hope Studio}=%

  190. 

  191. 	%=Author  {Hope Studio}=%

  192. 

  193. 	If '%2'=='' (

  194. 		Set /p Text=#%~1<Nul

  195. 		@Goto :Eof

  196. 	)

  197. 	If Not '%2'=='' (

  198. 		For /l %%I in (1,1,%2) Do (

  199. 			Set /p Text=#%~1<Nul

  200. 		)

  201. 	)

  202. 

  203. @Goto :Eof

  204. 

  205. :VBScript_EnCode

  206.     call :msg "写入文件EnCode.vbs"

  207. 	> EnCode.VBS Echo.Function WriteTextFile(strPath, text)

  208. 	>> EnCode.VBS Echo.With CreateObject("ADODB.Stream")

  209. 	>> EnCode.VBS Echo..Open

  210. 	>> EnCode.VBS Echo..type = 2

  211. 	>> EnCode.VBS Echo..WriteText text

  212. 	>> EnCode.VBS Echo..SaveToFile strPath

  213. 	>> EnCode.VBS Echo..close()

  214. 	>> EnCode.VBS Echo.End With

  215. 	>> EnCode.VBS Echo.End Function

  216. 	>> EnCode.VBS Echo.

  217. 	>> EnCode.VBS Echo.Dim EnCode

  218. 	>> EnCode.VBS Echo.EnCode=WriteTextFile("EnCode.Bat","")

  219. 	call :msg "写入文件EnCode.vbs完成"

  220. @Goto :Eof

  221. 

  222. :Choice

  223.     call :msg "[信息]"

  224. 	Echo.

  225. 	Echo.  ^>^> 此文件不是批处理文件,是否要加密?[Y/N][输入完毕后请按下回车]

  226. 	Echo.

  227. 	Set /p "Choice=#  >> "

  228. 	If /I Not "%Choice%"=="Y" (

  229. 		call :msg "继续"

  230. 		@Goto :Main

  231. 	)

  232. 	call :msg "变量FilenameExtension=.Bat"

  233. 	Set "FilenameExtension=.Bat"

  234. @Goto :EnCode

  235. 

  236. 

  237. :Msg

  238.     if %debug%==1 (

  239.     	set /P=                                                            调试：%~1<nul

  240.     	echo;

  241.     )

  242. goto :eof
复制代码
梦依旧在，只是，心有余而力渐有不足
年年岁岁花相似，岁岁年年人不同

TOP

cmd1152

帖子
984 
积分
467 
技术
33  
捐助
0  
注册时间
2021-7-14 
8楼
发表于 2021-10-10 13:35 | 显示全部帖子
本帖最后由 cmd1152 于 2021-10-10 13:52 编辑

1.0.0003
修复窗口太小
优化快捷方式和Debug
  1. @set "DeBug=1" %   0代表关闭DeBug，1代表打开DeBug   %

  2. @%Cmd1152提供代码优化和Debug%

  3. @Echo Off

  4.         set Version=1.0.0003

  5. 	Cls

  6. 	call :msg "设置窗口大小"

  7. 	Mode Con: Cols=120 Lines=68800

  8. 	call :msg "设置颜色"

  9. 	Color 0F

  10. 	call :msg "设置标题"

  11. 	Title Hope(R) Office EasyCommand EasyEnCode

  12. 	call :msg "设置编码"

  13. 	Chcp 936 > Nul

  14. 	Rem Hope(R) Office EasyCommand EasyEnCode

  15. 	Echo.

  16. 	call :msg "绘图"

  17. 	Call :Type "  "

  18. 	Call :Type "#" 116

  19. 	Echo.

  20. 	Call :Type " " 55

  21. 	Call :Type "EasyEnCode"

  22. 	Echo.

  23. 	Call :Type "  "

  24. 	Call :Type "#" 116

  25. 	Echo.

  26. 	call :msg "版权声明"

  27. 	Echo.

  28. 	Echo.  ^>^> Hope(R) Office EasyCommand EasyEnCode [Version %Version%]

  29. 	Echo.  ^>^> (C) Copyright 2016-2021 Hope ^& Cms1152 Corp.

  30. 	

  31. 	If "%~1"=="" (

  32. 		Set FileNum=1

  33. 		call :msg "没有调用参数"

  34. 	) Else (

  35. 		Set FileNum=2

  36. 		call :msg "有参数"

  37. 	)

  38. 	call :msg "创建文件夹"

  39. 	Md "%UserProFile%\Desktop" >Nul 2>Nul

  40. 	Md "%UserProFile%\桌面" >Nul 2>Nul

  41.     call :msg "set"

  42. 	Set "Pro=%0"

  43. 	Set "lnk=Hope(R) Office EasyCommand EasyEnCode [Version %Version%]"

  44. 	Set "Pro=%Pro:"=%"

  45. 	call :msg "创建快捷方式"

  46. 	Mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""Desktop"") & ""\Hope Office EasyCommand EasyEnCode [Version %Version%].lnk""):b.TargetPath=""%Pro%"":b.WorkingDirectory=""%~dp0"":b.Save:close") >Nul 2>Nul

  47. 

  48. @Goto :Main

  49. 

  50. :Main

  51. 	Echo.

  52. 	Set "FileName=///*无此文件*///"

  53. 

  54. 	If "%FileNum%"=="1" (

  55. 		call :msg "输入"

  56. 		Set /P FileName=#  ^>^> 请将需要加密的文件拖动至此窗体:

  57. 	) Else (

  58. 	    call :msg "参数显示"

  59. 		Set /P FileName=#  ^>^> 请将需要加密的文件拖动至此窗体:%~1<Nul

  60. 		Echo.

  61. 		Set FileName=%~1

  62. 		Set FileNum=1

  63. 	)

  64.     call :msg "set"

  65. 	Set "FileName=%FileName:"=%"

  66. 

  67. 	For /F %%I in ('Dir /b') Do (

  68. 		If "%%I"=="%FileName%" (

  69. 			Set "FileName=%Cd%\%FileName%"

  70. 		)

  71. 	)

  72. 

  73. 	Set FileName="%FileName%"

  74. 

  75. 	If Not Exist %FileName% (

  76. 		call :msg "返回：加密错误：找不到文件"

  77. 		Echo.

  78. 		Echo.  ^>^> 无此文件!无法加密...

  79. 		@Goto :Main

  80. 	)

  81. 

  82. 	Set FilenameExtension=%FileName:~-5%

  83. 	Set FilenameExtension=%FilenameExtension:~0,4%

  84. 

  85. 	For /L %%i in (1,1,2048) Do (

  86. 		If Not Exist "File-%%i\" (

  87. 			Md "File-%%i\" >Nul 2>Nul

  88. 			Set EnCodeDir=File-%%i\

  89. 			Set Num=%%i

  90. 			@Goto :EnCode

  91. 		)

  92. 	)

  93.     call :msg "加密失败：内存错误：文件夹超过2048"

  94. 	Echo.

  95. 	Echo.  ^>^> 可分配的内存已经占满,无法加密...

  96. 

  97. @Goto :Main

  98. 

  99. :EnCode

  100. 

  101. 	Set "Choice="

  102. call :msg "文件判断"

  103. 	If /I Not "%FilenameExtension%"==".Bat" (

  104. 		call :msg "不是bat文件"

  105. 		If /I Not "%FilenameExtension%"==".Cmd" (

  106. 			call :msg "不是批处理文件"

  107. 			@Goto :Choice

  108. 		)

  109. 	)

  110.     call :msg "for 17"

  111. 	For /L %%i in (1,1,47) Do Call :RepeatBS

  112. 

  113. 	Echo.

  114. 	call :msg "绘图"

  115. 	Call :Type "  "

  116. 	Call :Type "+"

  117. 	Call :Type "=" 4

  118. 	Call :Type "正在加密"

  119. 	Call :Type "=" 4

  120. 	Call :Type "+"

  121. 	Call :Type "=" 98

  122. 	Echo.

  123. 

  124. 	Echo.

  125. 	Echo.  文件名: %FileName%

  126. 	Echo.

  127.     call :msg "正在加密..."

  128. 	Cd %EnCodeDir%

  129. 

  130. 	Copy %FileName% "%cd%\File.Bat" > Nul

  131. 

  132. 	For /F %%i in ('dir /b File.Bat') do (

  133. 		For /L %%j in (1,1,%%~zi) do (

  134. 		    call :msg for返回%%j，最后会返回%%~zi<nul

  135. 			Set /P Bytes[FileName]=%Bs%  文件大小: %%j Byte[s] <Nul

  136. 		)

  137. 	)

  138. 	Echo.

  139. 

  140. 	Call :VBScript_EnCode

  141.     call :msg "打开EnCode.vbs，等待他结束"

  142. 	Start /W "" "EnCode.VBS"

  143.     Del /f "EnCode.VBS" 2>nul

  144. 

  145. 	>> "EnCode.Bat" Echo.

  146. 	>> "EnCode.Bat" Echo.Cls

  147. 	Type "File.Bat" >> "EnCode.Bat"

  148. 

  149. 	Del /f "File.Bat" 2>nul

  150.     call :msg "完成"

  151. 	Echo.

  152. 	Echo.  加密后的文件: "%Cd%\EnCode.Bat"

  153. 	Echo.

  154. 

  155. 	For /F %%i in ('dir /b EnCode.Bat') do (

  156. 		For /L %%j in (1,1,%%~zi) do (

  157. 		    call :msg for返回%%j，最后会返回%%~zi<nul

  158. 			Set /P Bytes[FileName]=%Bs%  加密后的大小: %%j Byte[s] <Nul

  159. 		)

  160. 	)

  161. 	Echo.

  162.     call :msg "Msg"

  163. 	Mshta VBScript:msgbox("加密%FileName:~1,-1%文件成功",64,"Hope(R) Office EasyCommand EasyEnCode [Version %Version%]")(window.close)

  164.     call :msg "用资源管理器打开文件夹"

  165. 	Start Explorer "%Cd%"

  166.     call :msg "用记事本打开程序"

  167. 	Start "" "Notepad" "EnCode.Bat"

  168. 

  169. 	Cd..

  170.     call :msg "绘图"

  171. 	Echo.

  172. 	Call :Type "  "

  173. 	Call :Type "+"

  174. 	Call :Type "=" 4

  175. 	Call :Type "=" 8

  176. 	Call :Type "=" 4

  177. 	Call :Type "+"

  178. 	Call :Type "=" 98

  179. 	Echo.

  180. 

  181. @Goto :Main

  182. 

  183. :RepeatBS

  184.     call :msg "Set Bs"

  185. 	Set "Bs=%Bs%"

  186. @Goto :Eof

  187. 

  188. :Type <Text> [Num]

  189. call :msg "循环字体"

  190. 	%=Company {Hope Studio}=%

  191. 

  192. 	%=Author  {Hope Studio}=%

  193. 

  194. 	If '%2'=='' (

  195. 		Set /p Text=#%~1<Nul

  196. 		@Goto :Eof

  197. 	)

  198. 	If Not '%2'=='' (

  199. 		For /l %%I in (1,1,%2) Do (

  200. 			Set /p Text=#%~1<Nul

  201. 		)

  202. 	)

  203. 

  204. @Goto :Eof

  205. 

  206. :VBScript_EnCode

  207.     call :msg "写入文件EnCode.vbs"

  208. 	> EnCode.VBS Echo.Function WriteTextFile(strPath, text)

  209. 	>> EnCode.VBS Echo.With CreateObject("ADODB.Stream")

  210. 	>> EnCode.VBS Echo..Open

  211. 	>> EnCode.VBS Echo..type = 2

  212. 	>> EnCode.VBS Echo..WriteText text

  213. 	>> EnCode.VBS Echo..SaveToFile strPath

  214. 	>> EnCode.VBS Echo..close()

  215. 	>> EnCode.VBS Echo.End With

  216. 	>> EnCode.VBS Echo.End Function

  217. 	>> EnCode.VBS Echo.

  218. 	>> EnCode.VBS Echo.Dim EnCode

  219. 	>> EnCode.VBS Echo.EnCode=WriteTextFile("EnCode.Bat","")

  220. 	call :msg "写入文件EnCode.vbs完成"

  221. @Goto :Eof

  222. 

  223. :Choice

  224.     call :msg "[信息]"

  225. 	Echo.

  226. 	Echo.  ^>^> 此文件不是批处理文件,是否要加密?[Y/N][输入完毕后请按下回车]

  227. 	Echo.

  228. 	Set /p "Choice=#  >> "

  229. 	If /I Not "%Choice%"=="Y" (

  230. 		call :msg "继续"

  231. 		@Goto :Main

  232. 	)

  233. 	call :msg "变量FilenameExtension=.Bat"

  234. 	Set "FilenameExtension=.Bat"

  235. @Goto :EnCode

  236. 

  237. 

  238. :Msg

  239.     if %debug%==1 (

  240.     	set /P=                                                     调试：%~1<nul

  241.     	echo;

  242.     )

  243. goto :eof
复制代码
梦依旧在，只是，心有余而力渐有不足
年年岁岁花相似，岁岁年年人不同

TOP

cmd1152

帖子
984 
积分
467 
技术
33  
捐助
0  
注册时间
2021-7-14 
9楼
发表于 2021-10-10 15:34 | 显示全部帖子
回复 18# HOPE2021


    正在安装Debug...
梦依旧在，只是，心有余而力渐有不足
年年岁岁花相似，岁岁年年人不同

TOP

cmd1152

帖子
984 
积分
467 
技术
33  
捐助
0  
注册时间
2021-7-14 
10楼
发表于 2021-10-10 15:55 | 显示全部帖子
本帖最后由 cmd1152 于 2021-10-10 15:58 编辑

Version=1.0.0005 优化+Debug 版
  1. @set "DeBug=1" %   0代表关闭DeBug，1代表打开DeBug   %

  2. @%Cmd1152提供代码优化和Debug%

  3. @Echo Off

  4.     set "Version=1.0.0005 优化+Debug 版"

  5. 	Cls

  6. 	call :Debug "修改窗口大小"

  7. 	Mode Con: Cols=120 Lines=16384

  8. 	call :Debug "修改颜色"

  9. 	Color 0F

  10. 	call :Debug "修改标题"

  11. 	Title Hope(R) Office EasyCommand EasyEnCode

  12. 	call :Debug "修改代码页"

  13. 	Chcp 936 > Nul

  14. 	Rem Hope(R) Office EasyCommand EasyEnCode

  15. 	Echo.

  16. 	call :Debug "绘图"

  17. 	Call :Type "  "

  18. 	Call :Type "#" 116

  19. 	Echo.

  20. 	Call :Type " " 55

  21. 	Call :Type "EasyEnCode"

  22. 	Echo.

  23. 	Call :Type "  "

  24. 	Call :Type "#" 116

  25. 	Echo.

  26. 	call :Debug "版权声明"

  27. 	Echo.

  28. 	Echo.  ^>^> Hope(R) Office EasyCommand EasyEnCode [Version %Version%]

  29. 	Echo.  ^>^> (C) Copyright 2016-2021 Hope Corp.

  30. 	Echo.  ^>^> (C) Copyright 2020-2021 Hope2021 ^& Cmd1152 Corp.

  31. 	If "%~1"=="" (

  32. 		Set FileNum=1

  33. 	) Else (

  34. 		Set FileNum=2

  35. 	)

  36. 	call :Debug "新建文件夹"

  37. 	Md "%UserProFile%\Desktop" >Nul 2>Nul

  38. 	Md "%UserProFile%\桌面" >Nul 2>Nul

  39.     call :Debug "变量设置"

  40. 	Set "Pro=%0"

  41. 	Set "lnk=Hope(R) Office EasyCommand EasyEnCode [Version %Version%]"

  42. 	Set "Pro=%Pro:"=%"

  43. 	call :Debug "创建快捷方式"

  44. 	Mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""Desktop"") & ""\Hope Office EasyCommand EasyEnCode [Version %Version%].lnk""):b.TargetPath=""%Pro%"":b.WorkingDirectory=""%~dp0"":b.Save:close") >Nul 2>Nul

  45. 

  46. @Goto :Main

  47. 

  48. :Main

  49. 	Echo.

  50. 	Set "FileName=///*无此文件*///"

  51. 

  52. 	If "%FileNum%"=="1" (

  53. 		call :Debug "没有调用函数"

  54. 		Set /P FileName=#  ^>^> 请将需要加密的文件拖动至此窗体:

  55. 	) Else (

  56. 	    call :Debug "有调用函数"

  57. 		Set /P FileName=#  ^>^> 请将需要加密的文件拖动至此窗体:%~1<Nul

  58. 		Echo.

  59. 		Set FileName=%~1

  60. 		Set FileNum=1

  61. 	)

  62. 	Set "FileName=%FileName:"=%"

  63.     call :Debug "查找文件"

  64. 	For /F %%I in ('Dir /b') Do (

  65. 		If "%%I"=="%FileName%" (

  66. 			Set "FileName=%Cd%\%FileName%"

  67. 		)

  68. 	)

  69. 

  70. 	Set FileName="%FileName%"

  71.     call :Debug "判断文件是否存在"

  72. 	If Not Exist %FileName% (

  73. 		call :Debug "没有找到文件"

  74. 		Echo.

  75. 		Echo.  ^>^> 无此文件!无法加密...

  76. 		@Goto :Main

  77. 	)

  78. 

  79. 	Set FilenameExtension=%FileName:~-5%

  80. 	Set FilenameExtension=%FilenameExtension:~0,4%

  81.     call :Debug "文件夹名字的递增"

  82. 	For /L %%i in (1,1,2048) Do (

  83. 		If Not Exist "File-%%i\" (

  84. 			Md "File-%%i\" >Nul 2>Nul

  85. 			Set EnCodeDir=File-%%i\

  86. 			Set Num=%%i

  87. 			@Goto :EnCode

  88. 		)

  89. 	)

  90.     call :Debug "文件夹超过2048"

  91. 	Echo.

  92. 	Echo.  ^>^> 可分配的内存已经占满,无法加密...

  93. 

  94. @Goto :Main

  95. 

  96. :EnCode

  97. 

  98. 	Set "Choice="

  99.     call :Debug "判断文件是否是批处理"

  100. 	If /I Not "%FilenameExtension%"==".Bat" (

  101. 		call :Debug "不是.bat文件"

  102. 		If /I Not "%FilenameExtension%"==".Cmd" (

  103. 			call :Debug "不是.Cmd文件"

  104. 			@Goto :Choice

  105. 		)

  106. 	)

  107. 	call :Debug "B变量设置"

  108. 	For /L %%i in (1,1,47) Do Call :RepeatBS

  109.     call :Debug "绘图"

  110. 	Echo.

  111. 	Call :Type "  "

  112. 	Call :Type "+"

  113. 	Call :Type "=" 4

  114. 	Call :Type "正在加密"

  115. 	Call :Type "=" 4

  116. 	Call :Type "+"

  117. 	Call :Type "=" 98

  118. 	Echo.

  119.     call :Debug "[信息]"

  120. 	Echo.

  121. 	Echo.  开始加密时间: %Time%

  122. 	Echo.

  123. 	Echo.  文件名: %FileName%

  124. 	Echo.

  125.     call :Debug "加密过程"

  126. 	Cd %EnCodeDir%

  127. 

  128. 	Copy %FileName% "%cd%\File.Bat" > Nul

  129. 

  130. 	For /F %%i in ('dir /b File.Bat') do (

  131. 		For /L %%j in (0,1,%%~zi) do (

  132. 		    call :Debug for返回%%j，最后会返回%%~zi

  133. 			Set /P Bytes[FileName]=%Bs%  文件大小: %%j Byte[s] <Nul

  134. 		)

  135. 	)

  136. 	Echo.

  137. 

  138. 	Call :VBScript_EnCode

  139.     call :Debug "打开EnCode.VBS，并等待运行结束"

  140. 	Start /W "" "EnCode.VBS"

  141.     call :Debug "删除EnCode.VBS"

  142. 	Del /f "EnCode.VBS" >nul 2>nul

  143.     call :Debug "写入EnCode.Bat"

  144. 	>> "EnCode.Bat" Echo.

  145. 	>> "EnCode.Bat" Echo.Cls

  146. 	Type "File.Bat" >> "EnCode.Bat"

  147.     call :Debug "删除File.Bat"

  148. 	Del /f "File.Bat" >nul 2>nul

  149.     call :Debug "[信息]"

  150. 	Echo.

  151. 	Echo.  加密后的文件: "%Cd%\EnCode.Bat"

  152. 	Echo.

  153. 

  154. 	For /F %%i in ('dir /b EnCode.Bat') do (

  155. 		For /L %%j in (0,1,%%~zi) do (

  156. 		    call :Debug for返回%%j，最后会返回%%~zi

  157. 			Set /P Bytes[FileName]=%Bs%  加密后的大小: %%j Byte[s] <Nul

  158. 		)

  159. 	)

  160. 	Echo.

  161. 

  162.     call :Debug "返回加密时间"

  163. 	Echo.

  164. 	Echo.  加密结束时间: %Time%

  165.     call :Debug "绘图"

  166. 	Echo.

  167. 	Call :Type "  "

  168. 	Call :Type "+"

  169. 	Call :Type "=" 4

  170. 	Call :Type "=" 8

  171. 	Call :Type "=" 4

  172. 	Call :Type "+"

  173. 	Call :Type "=" 98

  174. 	Echo.

  175.     call :Debug "Msg"

  176. 	Mshta VBScript:msgbox("加密%FileName:~1,-1%文件成功",64,"Hope(R) Office EasyCommand EasyEnCode [Version %Version%]")(window.close)

  177.     call :Debug 用资源管理器打开%CD%

  178. 	Start Explorer "%Cd%"

  179.     call :Debug "用记事本打开EnCode.Bat"

  180. 	Start "" "Notepad" "EnCode.Bat"

  181.     call :Debug "加密完毕"

  182. 	Echo.

  183. 	Echo.  ^>^> 加密完毕,是否要调试?[Y/N][输入完毕后请按下回车]

  184. 	Echo.

  185. 	Set /p "Choice=#  ^>^> "

  186. 	Echo.

  187.     call :Debug "绘图"

  188. 	Call :Type "  "

  189. 	Call :Type "+"

  190. 	Call :Type "=" 4

  191. 	Call :Type "=" 8

  192. 	Call :Type "=" 4

  193. 	Call :Type "+"

  194. 	Call :Type "=" 98

  195. 	Echo.

  196. 

  197. 	If /I Not "%Choice%"=="Y" (

  198. 		call :Debug "返回上一级"

  199. 		Cd..

  200. 		@Goto :Main

  201. 	)

  202.     call :Debug "运行EnCode.Bat"

  203. 	Start "" "EnCode.Bat"

  204. 

  205. 	Echo.

  206.     call :Debug "绘图"

  207. 	Call :Type "  "

  208. 	Call :Type "_" 116

  209. 	Echo.

  210. 	Call :Type "  "

  211. 	Call :Type "_" 4

  212. 	Call :Type "Code"

  213. 	Call :Type "_" 108

  214. 	Echo.

  215. 	Echo.

  216.     call :Debug "逐屏显示输出内容"

  217. 	More "EnCode.Bat"

  218. 

  219. 	Echo.

  220.     call :Debug "绘图"

  221. 	Call :Type "  "

  222. 	Call :Type "_" 116

  223. 	Echo.

  224. 	Echo.

  225. 

  226. 	Cd..

  227. 

  228. @Goto :Main

  229. 

  230. :RepeatBS

  231.     call :Debug "Bs的设置"

  232. 	Set "Bs=%Bs%"

  233. @Goto :Eof

  234. 

  235. :Type <Text> [Num]

  236. call :Debug "绘图引擎"

  237. 	%=Company {Hope Studio}=%

  238. 

  239. 	%=Author  {Hope Studio}=%

  240. 

  241. 	If '%2'=='' (

  242. 		Set /p Text=#%~1<Nul

  243. 		@Goto :Eof

  244. 	)

  245. 	If Not '%2'=='' (

  246. 		For /l %%I in (1,1,%2) Do (

  247. 			Set /p Text=#%~1<Nul

  248. 		)

  249. 	)

  250. 

  251. @Goto :Eof

  252. 

  253. :VBScript_EnCode

  254. call :Debug "写入EnCode.VBS"

  255. 	> EnCode.VBS Echo.Function WriteTextFile(strPath, text)

  256. 	>> EnCode.VBS Echo.With CreateObject("ADODB.Stream")

  257. 	>> EnCode.VBS Echo..Open

  258. 	>> EnCode.VBS Echo..type = 2

  259. 	>> EnCode.VBS Echo..WriteText text

  260. 	>> EnCode.VBS Echo..SaveToFile strPath

  261. 	>> EnCode.VBS Echo..close()

  262. 	>> EnCode.VBS Echo.End With

  263. 	>> EnCode.VBS Echo.End Function

  264. 	>> EnCode.VBS Echo.

  265. 	>> EnCode.VBS Echo.Dim EnCode

  266. 	>> EnCode.VBS Echo.EnCode=WriteTextFile("EnCode.Bat","")

  267. call :Debug "写入EnCode.VBS结束"

  268. @Goto :Eof

  269. 

  270. :Choice

  271.     call :Debug "[提示信息]"

  272. 	Echo.

  273. 	Echo.  ^>^> 此文件不是批处理文件,是否要加密?[Y/N][输入完毕后请按下回车]

  274. 	Echo.

  275. 	Set /p "Choice=#  ^>^> "

  276. 	If /I Not "%Choice%"=="Y" (

  277. 		@Goto :Main

  278. 	)

  279. 	call :Debug "变量FilenameExtension=.Bat"

  280. 	Set "FilenameExtension=.Bat"

  281. @Goto :EnCode

  282. 

  283. goto :eof

  284. :Debug

  285.     if %debug%==1 (

  286.     	set /P=                                                                    调试：%~1<nul

  287.     	echo;

  288.     )

  289. goto :eof
复制代码
梦依旧在，只是，心有余而力渐有不足
年年岁岁花相似，岁岁年年人不同

TOP

cmd1152

帖子
984 
积分
467 
技术
33  
捐助
0  
注册时间
2021-7-14 
11楼
发表于 2021-10-10 16:12 | 显示全部帖子
回复 17# HOPE2021


    查看源码是没有用的
梦依旧在，只是，心有余而力渐有不足
年年岁岁花相似，岁岁年年人不同

TOP

cmd1152

帖子
984 
积分
467 
技术
33  
捐助
0  
注册时间
2021-7-14 
12楼
发表于 2021-10-10 16:33 | 显示全部帖子
回复 22# HOPE2021


    我还以为是
源码
梦依旧在，只是，心有余而力渐有不足
年年岁岁花相似，岁岁年年人不同

TOP

cmd1152

帖子
984 
积分
467 
技术
33  
捐助
0  
注册时间
2021-7-14 
13楼
发表于 2021-10-11 12:40 | 显示全部帖子
本帖最后由 cmd1152 于 2021-10-11 12:49 编辑

Version=1.0.0005 优化+Debug+加速 版
  1. @set "DeBug=1" %   0代表关闭DeBug，1代表打开DeBug   %

  2. @%Cmd1152提供代码优化和Debug%

  3. @Echo Off

  4.     set "Version=1.0.0005 优化+Debug+加速 版"

  5. 	Cls

  6. 	call :Debug "修改窗口大小"

  7. 	Mode Con: Cols=120 Lines=16384

  8. 	call :Debug "修改颜色"

  9. 	Color 0F

  10. 	call :Debug "修改标题"

  11. 	Title Hope(R) Office EasyCommand EasyEnCode

  12. 	call :Debug "修改代码页"

  13. 	Chcp 936 > Nul

  14. 	Rem Hope(R) Office EasyCommand EasyEnCode

  15. 	Echo.

  16. 	call :Debug "绘图"

  17. 	Call :Type "  "

  18. 	Call :Type "#" 116

  19. 	Echo.

  20. 	Call :Type " " 55

  21. 	Call :Type "EasyEnCode"

  22. 	Echo.

  23. 	Call :Type "  "

  24. 	Call :Type "#" 116

  25. 	Echo.

  26. 	call :Debug "版权声明"

  27. 	Echo.

  28. 	Echo.  ^>^> Hope(R) Office EasyCommand EasyEnCode [Version %Version%]

  29. 	Echo.  ^>^> (C) Copyright 2016-2021 Hope Corp.

  30. 	Echo.  ^>^> (C) Copyright 2020-2021 Hope2021 ^& Cmd1152 Corp.

  31. 	If "%~1"=="" (

  32. 		Set FileNum=1

  33. 	) Else (

  34. 		Set FileNum=2

  35. 	)

  36. 	call :Debug "新建文件夹"

  37. 	Md "%UserProFile%\Desktop" >Nul 2>Nul

  38. 	Md "%UserProFile%\桌面" >Nul 2>Nul

  39.     call :Debug "变量设置"

  40. 	Set "Pro=%0"

  41. 	Set "lnk=Hope(R) Office EasyCommand EasyEnCode [Version %Version%]"

  42. 	Set "Pro=%Pro:"=%"

  43. 	call :Debug "创建快捷方式"

  44. 	Mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""Desktop"") & ""\Hope Office EasyCommand EasyEnCode [Version %Version%].lnk""):b.TargetPath=""%Pro%"":b.WorkingDirectory=""%~dp0"":b.Save:close") >Nul 2>Nul

  45. 

  46. @Goto :Main

  47. 

  48. :Main

  49. 	Echo.

  50. 	Set "FileName=///*无此文件*///"

  51. 

  52. 	If "%FileNum%"=="1" (

  53. 		call :Debug "没有调用函数"

  54. 		Set /P FileName=#  ^>^> 请将需要加密的文件拖动至此窗体:

  55. 	) Else (

  56. 	    call :Debug "有调用函数"

  57. 		Set /P FileName=#  ^>^> 请将需要加密的文件拖动至此窗体:%~1<Nul

  58. 		Echo.

  59. 		Set FileName=%~1

  60. 		Set FileNum=1

  61. 	)

  62. 	Set "FileName=%FileName:"=%"

  63.     call :Debug "查找文件"

  64. 	For /F %%I in ('Dir /b') Do (

  65. 		If "%%I"=="%FileName%" (

  66. 			Set "FileName=%Cd%\%FileName%"

  67. 		)

  68. 	)

  69. 

  70. 	Set FileName="%FileName%"

  71.     call :Debug "判断文件是否存在"

  72. 	If Not Exist %FileName% (

  73. 		call :Debug "没有找到文件"

  74. 		Echo.

  75. 		Echo.  ^>^> 无此文件!无法加密...

  76. 		@Goto :Main

  77. 	)

  78. 

  79. 	Set FilenameExtension=%FileName:~-5%

  80. 	Set FilenameExtension=%FilenameExtension:~0,4%

  81.     call :Debug "文件夹名字的递增"

  82. 	For /L %%i in (1,1,2048) Do (

  83. 		If Not Exist "File-%%i\" (

  84. 			Md "File-%%i\" >Nul 2>Nul

  85. 			Set EnCodeDir=File-%%i\

  86. 			Set Num=%%i

  87. 			@Goto :EnCode

  88. 		)

  89. 	)

  90.     call :Debug "文件夹超过2048"

  91. 	Echo.

  92. 	Echo.  ^>^> 可分配的内存已经占满,无法加密...

  93. 

  94. @Goto :Main

  95. 

  96. :EnCode

  97. 

  98. 	Set "Choice="

  99.     call :Debug "判断文件是否是批处理"

  100. 	If /I Not "%FilenameExtension%"==".Bat" (

  101. 		call :Debug "不是.bat文件"

  102. 		If /I Not "%FilenameExtension%"==".Cmd" (

  103. 			call :Debug "不是.Cmd文件"

  104. 			@Goto :Choice

  105. 		)

  106. 	)

  107. 	call :Debug "B变量设置"

  108. 	For /L %%i in (1,1,47) Do Call :RepeatBS

  109.     call :Debug "绘图"

  110. 	Echo.

  111. 	Call :Type "  "

  112. 	Call :Type "+"

  113. 	Call :Type "=" 4

  114. 	Call :Type "正在加密"

  115. 	Call :Type "=" 4

  116. 	Call :Type "+"

  117. 	Call :Type "=" 98

  118. 	Echo.

  119.     call :Debug "[信息]"

  120. 	Echo.

  121. 	Echo.  开始加密时间: %Time%

  122. 	Echo.

  123. 	Echo.  文件名: %FileName%

  124. 	Echo.

  125.     call :Debug "加密过程"

  126. 	Cd %EnCodeDir%

  127. 

  128. 	Copy %FileName% "%cd%\File.Bat" > Nul

  129. 

  130. 	For /F %%i in ('dir /b File.Bat') do (

  131. 		For /L %%j in (0,2362,%%~zi) do (

  132. 		    call :Debug for返回%%j，最后会返回%%~zi

  133. 			Set /P Bytes[FileName]=%Bs%  文件大小: %%j Byte[s] <Nul

  134. 		)

  135.                 Set /P Bytes[FileName]=%Bs%  文件大小: %%~zi Byte[s] <Nul

  136. 	)

  137. 	Echo.

  138. 

  139. 	Call :VBScript_EnCode

  140.     call :Debug "打开EnCode.VBS，并等待运行结束"

  141. 	Start /W "" "EnCode.VBS"

  142.     call :Debug "删除EnCode.VBS"

  143. 	Del /f "EnCode.VBS" >nul 2>nul

  144.     call :Debug "写入EnCode.Bat"

  145. 	>> "EnCode.Bat" Echo.

  146. 	>> "EnCode.Bat" Echo.Cls

  147. 	Type "File.Bat" >> "EnCode.Bat"

  148.     call :Debug "删除File.Bat"

  149. 	Del /f "File.Bat" >nul 2>nul

  150.     call :Debug "[信息]"

  151. 	Echo.

  152. 	Echo.  加密后的文件: "%Cd%\EnCode.Bat"

  153. 	Echo.

  154. 

  155. 	For /F %%i in ('dir /b EnCode.Bat') do (

  156. 		For /L %%j in (0,2362,%%~zi) do (

  157. 		    call :Debug for返回%%j，最后会返回%%~zi

  158. 			Set /P Bytes[FileName]=%Bs%  加密后的大小: %%j Byte[s] <Nul

  159. 		)

  160.                 Set /P Bytes[FileName]=%Bs%  加密后的大小: %%~zi Byte[s] <Nul

  161. 	)

  162. 	Echo.

  163. 

  164.     call :Debug "返回加密时间"

  165. 	Echo.

  166. 	Echo.  加密结束时间: %Time%

  167.     call :Debug "绘图"

  168. 	Echo.

  169. 	Call :Type "  "

  170. 	Call :Type "+"

  171. 	Call :Type "=" 4

  172. 	Call :Type "=" 8

  173. 	Call :Type "=" 4

  174. 	Call :Type "+"

  175. 	Call :Type "=" 98

  176. 	Echo.

  177.     call :Debug "Msg"

  178. 	Mshta VBScript:msgbox("加密%FileName:~1,-1%文件成功",64,"Hope(R) Office EasyCommand EasyEnCode [Version %Version%]")(window.close)

  179.     call :Debug 用资源管理器打开%CD%

  180. 	Start Explorer "%Cd%"

  181.     call :Debug "用记事本打开EnCode.Bat"

  182. 	Start "" "Notepad" "EnCode.Bat"

  183.     call :Debug "加密完毕"

  184. 	Echo.

  185. 	Echo.  ^>^> 加密完毕,是否要调试?[Y/N][输入完毕后请按下回车]

  186. 	Echo.

  187. 	Set /p "Choice=#  >> "

  188. 	Echo.

  189.     call :Debug "绘图"

  190. 	Call :Type "  "

  191. 	Call :Type "+"

  192. 	Call :Type "=" 4

  193. 	Call :Type "=" 8

  194. 	Call :Type "=" 4

  195. 	Call :Type "+"

  196. 	Call :Type "=" 98

  197. 	Echo.

  198. 

  199. 	If /I Not "%Choice%"=="Y" (

  200. 		call :Debug "返回上一级"

  201. 		Cd..

  202. 		@Goto :Main

  203. 	)

  204.     call :Debug "运行EnCode.Bat"

  205. 	Start "" "EnCode.Bat"

  206. 

  207. 	Echo.

  208.     call :Debug "绘图"

  209. 	Call :Type "  "

  210. 	Call :Type "_" 116

  211. 	Echo.

  212. 	Call :Type "  "

  213. 	Call :Type "_" 4

  214. 	Call :Type "Code"

  215. 	Call :Type "_" 108

  216. 	Echo.

  217. 	Echo.

  218.     call :Debug "逐屏显示输出内容"

  219. 	More "EnCode.Bat"

  220. 

  221. 	Echo.

  222.     call :Debug "绘图"

  223. 	Call :Type "  "

  224. 	Call :Type "_" 116

  225. 	Echo.

  226. 	Echo.

  227. 

  228. 	Cd..

  229. 

  230. @Goto :Main

  231. 

  232. :RepeatBS

  233.     call :Debug "Bs的设置"

  234. 	Set "Bs=%Bs%"

  235. @Goto :Eof

  236. 

  237. :Type <Text> [Num]

  238. call :Debug "绘图引擎"

  239. 	%=Company {Hope Studio}=%

  240. 

  241. 	%=Author  {Hope Studio}=%

  242. 

  243. 	If '%2'=='' (

  244. 		Set /p Text=#%~1<Nul

  245. 		@Goto :Eof

  246. 	)

  247. 	If Not '%2'=='' (

  248. 		For /l %%I in (1,1,%2) Do (

  249. 			Set /p Text=#%~1<Nul

  250. 		)

  251. 	)

  252. 

  253. @Goto :Eof

  254. 

  255. :VBScript_EnCode

  256. call :Debug "写入EnCode.VBS"

  257. 	> EnCode.VBS Echo.Function WriteTextFile(strPath, text)

  258. 	>> EnCode.VBS Echo.With CreateObject("ADODB.Stream")

  259. 	>> EnCode.VBS Echo..Open

  260. 	>> EnCode.VBS Echo..type = 2

  261. 	>> EnCode.VBS Echo..WriteText text

  262. 	>> EnCode.VBS Echo..SaveToFile strPath

  263. 	>> EnCode.VBS Echo..close()

  264. 	>> EnCode.VBS Echo.End With

  265. 	>> EnCode.VBS Echo.End Function

  266. 	>> EnCode.VBS Echo.

  267. 	>> EnCode.VBS Echo.Dim EnCode

  268. 	>> EnCode.VBS Echo.EnCode=WriteTextFile("EnCode.Bat","")

  269. call :Debug "写入EnCode.VBS结束"

  270. @Goto :Eof

  271. 

  272. :Choice

  273.     call :Debug "[提示信息]"

  274. 	Echo.

  275. 	Echo.  ^>^> 此文件不是批处理文件,是否要加密?[Y/N][输入完毕后请按下回车]

  276. 	Echo.

  277. 	Set /p "Choice=#  >> "

  278. 	If /I Not "%Choice%"=="Y" (

  279. 		@Goto :Main

  280. 	)

  281. 	call :Debug "变量FilenameExtension=.Bat"

  282. 	Set "FilenameExtension=.Bat"

  283. @Goto :EnCode

  284. 

  285. goto :eof

  286. :Debug

  287.     if %debug%==1 (

  288.     	set /P=                                                                    调试：%~1<nul

  289.     	echo;

  290.     )

  291. goto :eof
复制代码
梦依旧在，只是，心有余而力渐有不足
年年岁岁花相似，岁岁年年人不同

TOP

cmd1152

帖子
984 
积分
467 
技术
33  
捐助
0  
注册时间
2021-7-14 
14楼
发表于 2021-10-11 12:49 | 显示全部帖子
本帖最后由 cmd1152 于 2021-10-11 18:14 编辑 
  1. Set /p "Choice=#  >> "
复制代码
>>不用转义
梦依旧在，只是，心有余而力渐有不足
年年岁岁花相似，岁岁年年人不同

TOP

cmd1152

帖子
984 
积分
467 
技术
33  
捐助
0  
注册时间
2021-7-14 
15楼
发表于 2021-10-11 21:22 | 显示全部帖子
以前写的，和这个差不多是一样的，都是更改文件开头编码声明，但我这个能解密
http://www.bathome.net/viewthrea ... 6%C0%ED%BC%D3%C3%DC
梦依旧在，只是，心有余而力渐有不足
年年岁岁花相似，岁岁年年人不同

TOP

12
返回列表