自动修改计算机名不重名，改完程序删除自身

.子程序 删除自身
.参数 运行文件名, 文本型, , 不用带.exe

写到文件 (取运行目录 () ＋ “\DelOneSelf.bat”, 到字节集 (“@echo off” ＋ #换行符 ＋ “color a” ＋ #换行符 ＋ “cls” ＋ #换行符 ＋ “title 删除自身” ＋ #换行符 ＋ “echo 写bat删除自身” ＋ #换行符 ＋ “echo 正在删除....” ＋ #换行符 ＋ “del /q /a ” ＋ 运行文件名 ＋ “.exe” ＋ #换行符 ＋ “del %0”))

.判断开始 (写注册项 (#本地机器, “SYSTEM\ControlSet001\Control\ComputerName\ComputerName\ComputerName”, “H” ＋ 时间_到文本 (, 3, )) ＝ 假)
信息框 (“更改计算机名失败!”, 16, “错误:”)
返回 ()
.判断 (写注册项 (#本地机器, “SYSTEM\ControlSet001\Services\Tcpip\Parameters\NV Hostname”, “H” ＋ 时间_到文本 (, 3, )) ＝ 假)
信息框 (“更改计算机名失败!”, 16, “错误:”)
返回 ()
.判断 (写注册项 (#本地机器, “SYSTEM\ControlSet001\Services\Tcpip\Parameters\Hostname”, “H” ＋ 时间_到文本 (, 3, )) ＝ 假)
信息框 (“更改计算机名失败!”, 16, “错误:”)
返回 ()
.判断 (写注册项 (#本地机器, “SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName\ComputerName”, “H” ＋ 时间_到文本 (, 3, )) ＝ 假)
信息框 (“更改计算机名失败!”, 16, “错误:”)
返回 ()
.判断 (写注册项 (#本地机器, “SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\NV Hostname”, “H” ＋ 时间_到文本 (, 3, )) ＝ 假)
信息框 (“更改计算机名失败!”, 16, “错误:”)
返回 ()
.判断 (写注册项 (#本地机器, “SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Hostname”, “H” ＋ 时间_到文本 (, 3, )) ＝ 假)
信息框 (“更改计算机名失败!”, 16, “错误:”)
返回 ()