@echo off %1 mshta vbscript:CreateObject("Shell.Application").ShellExecute("cmd.exe","/c %~s0 ::","","runas",1)(window.close)&&exit cd /d "%~dp0" netsh wlan show drivers :menu cls netsh wlan show drivers title 热点开启 @echo -------------------------------------------1)创建热点-------------------- @echo -------------------------------------------2)关闭热点-------------------- @echo -------------------------------------------3)退出------------------------ echo. set /p c= 输入你的选择: echo. if '%c%'=='1' goto :go if '%c%'=='2' goto :close if '%c%'=='3' goto :exit :go set /p name=-------------输入热点名称： set /p pwd=-------------输入热点密码： netsh wlan set hostednetwork mode=allow ssid=%name% key=%pwd% netsh wlan start hostednetwork pause goto:menu :close netsh wlan stop hostednetwork pause goto:menu :exit exit ::如果出现无法启动承载网络的情况，可以用驱动人生重新打一遍网卡的驱动，换驱动，一般情况下这样就可以解决