Batch-Menüfunktionen

<!-- : 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" goto :Office2019
 
if "%id%"=="3" goto :OfficeError

if "%id%"=="4" goto :LAN

if "%id%"=="5" goto  :WAN

if "%id%"=="6" goto  :testCN

if "%id%"=="7" goto  :testWAN

if "%id%"=="8" goto  :flushdns

if "%id%"=="9" goto  :tracert

IF "%id%"=="0" exit ELSE (
echo 输入的序号 %id% 不能识别,请重新输入！


pause
GOTO MENU