批处理菜单功能

原创

已于 2023-01-05 18:37:55 修改 · 934 阅读

3 ·

CC 4.0 BY-SA版权

文章标签：

#批处理 #cmd

于 2023-01-05 18:36:38 首次发布

<!-- : Begin batch script
@setlocal DisableDelayedExpansion
@echo off
title 网管工具

::设置窗口尺寸，cols设置宽度，lines设置高度
mode con cols=50 lines=50

::设置窗口背景色
color 2f

::获取管理员权限
%1 %2
ver|find "5.">nul&&goto :Admin
mshta vbscript:createobject("shell.application").shellexecute("%~s0","goto :Admin","","runas",1)(window.close)&goto :MENU
:Admin

::菜单文字说明
:MENU
CLS
ECHO. 
ECHO. --------------- 电脑问题 ---------------
ECHO. 
ECHO. 【1】激活 Windows 系统
ECHO. 
ECHO. 【2】激活 Office2019
ECHO. 
ECHO. 【3】Office 报错 AppVIsvSubsystems......
ECHO. 
ECHO. 
ECHO. --------------- 网络问题 ---------------
ECHO. 
ECHO. 【4】本机电脑 IP 查询（内网 IP）
ECHO. 
ECHO. 【5】外网 IP 查询（外网 IP）
ECHO. 
ECHO. 【6】中国线路测试（中国网）
ECHO. 
ECHO. 【7】公司网络测试（香港）
ECHO. 
ECHO. 【8】刷新电脑网络（一般网络故障）
ECHO. 
ECHO. 【9】路由检测
ECHO. 
ECHO. 【T】打开任务管理器（电脑卡顿查看）
ECHO. 
ECHO. 【0】关闭 

::菜单功能设置
set /p id=按照功能输入对应的数字后回车:
if "%id%"=="1" goto :Windows10
 
if "%id%"=="2" got