嘟嘟社区

[疑问] 辛辛苦苦写了批处理，还是不能刷新到系统

moe

本意是为了快速设置java环境，wmic还是不能刷新系统，看样子只能使用
SendMessageTimeout(HWND_BROADCAST, WM_SETTINGCHANGE, 0, LPARAM(PChar(‘Environment’)), SMTO_NORMAL, 4000, ret)
非要编译喽

大神有啥办法，通过脚本刷新？

  2. [url=home.php?mod=space&uid=20206]@echo[/url] off
  3. REM dyydyyBatchFile
  4. REM 获得当前文件的目录
  5. setlocal enabledelayedexpansion
  6. cls
  7. echo =————————=
  8. set CDIR=%~dp0
  9. set CDIR="C:jdk1.8"
  10. goto :MAIN
  11. :: 函数定义
  14. :getWmicVar
  15.     :: %1=name,%2=username
  16.     set xname=%1
  17.     set xname=!xname:"=!
  18.     echo %2 | findstr "system" >nul && (
  19.         set uname=^<system^>
  20.         ) || (
  21.             set uname=%2
  22.             set uname=!uname:"=!
  23.         )
  25.     set cmd=wmic ENVIRONMENT where "name=’%xname%’ and username=’%uname%’" get VariableValue
  26.     set ret=
  27.     ::下面的执行结果有多行，就会执行多次 %%a会轮换
  28.     set/a i=0
  29.     for /f "delims=" %%a in (‘%cmd%’) do (
  30.         ::跳过第行标头 第1行
  31.         if !i! equ 1 (
  32.             set ret=%%a
  33.         )      
  34.         set /a i=i+1
  35.     )
  36.     :: 返回的变量有尾随空格，处理掉
  37.     :: 最后一个可能是回车，删除一个char，果然
  38.     set ret=!ret:~0,-1!
  39.     :innerLoop
  40.     if "!ret:~-1!"==" " (
  41.         set ret=!ret:~0,-1!
  42.         goto :innerLoop
  43.     )
  44. goto :EOF
  46. :setWmicVar
  47.     :: %1=name,%2=value,%3=username 第二个参数为空时仅删除这个环境变量
  48.     set xname=%1
  49.     set xname=!xname:"=!
  50.     set xvalue=%2
  51.     set xvalue=!xvalue:"=!
  52.     echo %3 | findstr "system" >nul && (
  53.         set uname=^<system^>
  54.         ) || (
  55.             set uname=%3
  56.             set uname=!uname:"=!
  57.         )
  58.     wmic ENVIRONMENT where "name=’%xname%’ and username=’%uname%’" delete
  59.     if not "%xvalue%"=="" (
  60.         wmic ENVIRONMENT create name="%xname%" , username="%uname%" , VariableValue="%xvalue%"
  61.     )   
  62.     set ret=%errorlevel%
  63. goto :EOF
  65. [url=home.php?mod=space&uid=55828]@rem[/url] ————————下面是主入口———————————
  67. :MAIN
  69. set tousr=
  70. set cusr=
  71. set /p tousr="绿化安装到当前用户还是整个系统（默认为安装到当用用户环境）："
  72. if "%tousr%"=="" (
  73.     for /f %%a in (‘whoami’) do set cusr=%%a
  74.     set cusr=!cusr:=\!
  75. ) else (
  76.     :: <system>作为参数传不过去，因为有特殊字符<>
  77.     set cusr="system"
  78. )
  80. :: 读取指定用户的path环境变量
  81. call :getWmicVar "path" "%cusr%"
  82. set pth=%ret%
  83. if "%pth%"=="" goto :EOF
  85. set newPath=
  86. :loop1
  87. for /f "tokens=1,* delims=;" %%a in ("%pth%") do (
  88.     set apth=%%a
  89.     set pth=%%b
  90. )
  91. @REM 卸载 ，并清除了无效路径
  92. if not "%apth:~0,11%"=="%%JAVA_HOME%%" if exist %apth%  (
  93.        set newPath=%newPath%%apth%;
  94.     )
  95. if defined pth goto :loop1
  97. call :getWmicVar "JAVA_HOME" "%cusr%"
  98. set javahomefind=%ret%
  100. if "%javahomefind%" == "" (
  101.     :: 安装
  102.     call :setWmicVar "JAVA_HOME" "%CDIR%" "%cusr%"
  103.     :: 下面的 %%JAVA_HOME%% 经过传递给子过程，被脱掉了一层%，所以还需要再加一层
  104.     call :setWmicVar "CLASSPATH" ".;%%%%JAVA_HOME%%%%libdt.jar;%%%%JAVA_HOME%%%%libtools.jar;" "%cusr%"
  105.     call :setWmicVar "path" "%newPath%;%%%%JAVA_HOME%%%%bin;%%%%JAVA_HOME%%%%jrebin" "%cusr%"
  106.     echo "JAVA环境 设置完毕"
  107. ) else (
  108.     :: 卸载
  109.     call :setWmicVar "JAVA_HOME" "" "%cusr%"
  110.     call :setWmicVar "CLASSPATH" "" "%cusr%"
  111.     call :setWmicVar "path" "%newPath%" "%cusr%"
  112.     echo "JAVA_HOME 卸载完毕"
  113. )
  114. pause

复制代码
本帖最后由 sRGB 于 2021-12-6 10:30 编辑

java 语法太啰嗦，看java代码就想睡觉

把 JRE 部署到Docker 容器中，使用 Docker 管理停止启动会简单点吧
现在要PowerShell