@echo off
title spring-clover
color 0a
mode con: cols=80 lines=22
setlocal enabledelayedexpansion
set t=歡迎使用WIN7無線AP設(shè)置程序
set a=程序制作:聆歌憶往
for /l %%a in (1 1 8) do echo.
for %%a in (!t! !a! ) do call :string %%a 10 24
for /l %%a in (1 1 6) do echo.
echo 啟動中,請稍候......
set/p==============================================================================<nul
for /l %%d in (1 1 78) do set /p=<nul
for /l %%d in (1 1 78) do (set /p=^><nul&call :sleep 50)
echo.
:menu
cls
for /l %%a in (1 1 9) do echo.
echo1.設(shè)置WIN7 AP2.啟動WIN7 AP3.禁用WIN7 AP
echo.
echo.
set c=
set/p c=請選擇(1-2-3):
if {c}=={1} goto config1
if {c}=={2} goto config2
if {c}=={3} goto config3
goto error
:string
set string=%1
set t=%2
set p=%3
if defined p (for /l %%b in (1 1 %3) do set/p= <nul)
:str
set word=!string:~0,1!
set string=!string:~1!
set/a n+=1
set /p=!word!<nul&call :sleep !t!
if defined string goto str
echo.
echo.
echo.
goto :eof
:sleep
set Time1=%time%
set/a minute1=1%Time1:~3,2%-100
set/a second1=1%Time1:~6,2%%Time1:~-2%0-100000
:Loop
set Time2=%time%
set/a minute2=1%Time2:~3,2%-100
set/a second2=1%Time2:~6,2%%Time2:~-2%0-100000
set/a difMs=((%minute2%-%minute1%+60)%%60)*60000+%second2%-%second1%
if %difMs% lss %1 goto Loop
goto :eof
:config1
set/p x=請輸入AP名稱:
set/p y=請輸入AP密碼:
echo 你輸入AP名稱是!x!,密碼是!y!.按任意鍵程序?qū)⑦M(jìn)行配置WIN7 AP
pause>nul
netsh wlan set hostednetwork ssid=!x!
netsh wlan set hostednetwork key=!y!
goto menu
:config2
netsh wlan set hostednetwork mode=allow
netsh wlan start hostednetwork
goto menu
:config3
netsh wlan set hostednetwork mode=disallow
netsh wlan stop hostednetwork
goto menu
:error
for /l %%a in (1 1 9) do echo.
echo 你的輸入不正確,請重試......
call :sleep 2000
goto menu
nclick="copycode($('code0'));">復(fù)制代碼