批处理菜单功能
<!-- : 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 :Windows10if "%id%"=="2" goto :Office2019if "%id%"=="3" goto :OfficeErrorif "%id%"=="4" goto :LANif "%id%"=="5" goto :WANif "%id%"=="6" goto :testCNif "%id%"=="7" goto :testWANif "%id%"=="8" goto :flushdnsif "%id%"=="9" goto :tracertIF "%id%"=="0" exit ELSE (
echo 輸入的序號 %id% 不能識別,請重新輸入!pause
GOTO MENU
總結
- 上一篇: 推荐几个不错的igoogle小工具
- 下一篇: 大学“电路分析基础”试题合集第一章