批处理之家 - Powered by Discuz! Board

@echo off
set "sidd=newifi"
set "pass=abcd1234"
(for /f "delims=" %%a in (%~fs0) do (
if "%%a"=="<?xml version="1.0"?>" set f=1
if defined f echo;%%a
))>"%~fs0.xml"
netsh wlan add profile filename="%~fs0.xml"
netsh wlan connect name=%sidd%
del "%~fs0.xml"
pause
REM 等待几秒钟以确保连接成功
timeout /t 10 /nobreak > nul
REM 检查连接状态
netsh wlan show interfaces | findstr /I /C:%sidd%
if %errorlevel% equ 0 (
echo 成功连接到WiFi网络 %ssid%
) else (
echo 无法连接到WiFi网络 %ssid%
)
pause
goto :eof
<?xml version="1.0"?>
<WLANProfile xmlns="http://www.microsoft.com/networking/WLAN/profile/v1">
<name>newifi</name>
<SSIDConfig>
<SSID>
<name>newifi</name>
</SSID>
</SSIDConfig>
<connectionType>ESS</connectionType>
<connectionMode>auto</connectionMode>
<MSM>
<security>
<authEncryption>
<authentication>WPA2PSK</authentication>
<encryption>AES</encryption>
<useOneX>false</useOneX>
</authEncryption>
<sharedKey>
<keyType>passPhrase</keyType>
<protected>false</protected>
<keyMaterial>abcd1234</keyMaterial>
</sharedKey>
</security>
</MSM>
<MacRandomization xmlns="http://www.microsoft.com/networking/WLAN/profile/v3">
<enableRandomization>false</enableRandomization>
</MacRandomization>
</WLANProfile>

复制代码

@echo off
set "sidd=newifi"
(for /f "delims=" %%a in (%~fs0) do (
if "%%a"=="<?xml version="1.0"?>" set f=1
if defined f echo;%%a
))>"%~fs0.xml"
pause
<?xml version="1.0"?>
<WLANProfile xmlns="http://www.microsoft.com/networking/WLAN/profile/v1">
<name>%sidd%</name>
<SSIDConfig>
<SSID>
<name>%sidd%</name>

复制代码

@echo off
set "sidd=newifi"
set "pass=abcd1234"
for /f "useback skip=12 delims=" %%a in ("%~f0") do (
for /f "delims=" %%i in ('echo "%%a"') do (
echo %%~i
)
)
pause
...
...
<name>%sidd%</name>
...
<keyMaterial>%pass%</keyMaterial>
...

复制代码

@echo off
set "sidd=new11-2.4G"
set "pass=kkkk8899"
for /f "delims=:" %%i in ('findstr /n "^:del-dir$" "%~f0"') do (
more +%%i "%~f0" >"%~fs0.xml"
)
pause
———————————————————————
:del-dir
<?xml version="1.0"?>
<WLANProfile xmlns="http://www.microsoft.com/networking/WLAN/profile/v1">
<name>%sidd%</name>
<SSIDConfig>
<SSID>
<name>%sidd%</name>
</SSID>
</SSIDConfig>
<connectionType>ESS</connectionType>
<connectionMode>auto</connectionMode>
<MSM>
<security>
<authEncryption>
<authentication>WPA2PSK</authentication>
<encryption>AES</encryption>
<useOneX>false</useOneX>
</authEncryption>
<sharedKey>
<keyType>passPhrase</keyType>
<protected>false</protected>
<keyMaterial>%pass%</keyMaterial>
</sharedKey>
</security>
</MSM>
<MacRandomization xmlns="http://www.microsoft.com/networking/WLAN/profile/v3">
<enableRandomization>false</enableRandomization>
</MacRandomization>
</WLANProfile>

复制代码

@echo off
set "sidd=new11-2.4G"
set "pass=kkkk8899"
(for /f "delims=:" %%i in ('findstr /n "^:del-dir$" "%~f0"') do (
for /f "delims=" %%a in ('more +%%i "%~f0"') do (
for /f "delims=" %%b in ('echo "%%a"') do (
echo %%~b
)
)
)) > "%~dpn0.xml"
pause
———————————————————————
:del-dir
<?xml version="1.0"?>
<WLANProfile xmlns="http://www.microsoft.com/networking/WLAN/profile/v1">
<name>%sidd%</name>
<SSIDConfig>
<SSID>
<name>%sidd%</name>

复制代码

@echo off & setlocal enabledelayedexpansion
echo 代码开始
@echo off
REM 定义WiFi的SSID和密码
set "wiid=new11-2.4G"
set "pass=kkkk8899"
set "profile_name=%wiid%"
(for /f "delims=:" %%i in ('findstr /n "^:del-dir$" "%~f0"') do (
for /f "delims=" %%a in ('more +%%i "%~f0"') do (
for /f "delims=" %%b in ('echo "%%a"') do (
echo %%~b
)
)
)) > %profile_name%.xml
1pause
cls
REM 添加WiFi配置文件
netsh wlan add profile filename="%profile_name%.xml"
if %errorlevel% neq 0 (
echo 无法创建配置文件 %profile_name%
exit /b 1
)
) else (
echo 配置文件 %profile_name% 已存在。
)
REM 连接到指定WiFi网络
echo 正在连接到WiFi网络 %ssid%...
netsh wlan connect name="%profile_name%" ssid="%wiid%"
REM 等待几秒钟以确保连接成功
timeout /t 10 /nobreak > nul
REM 检查连接状态
netsh wlan show interfaces | findstr /I /C:"%wiid%"
if %errorlevel% equ 0 (
echo 成功连接到WiFi网络 %ssid%
) else (
echo 无法连接到WiFi网络 %ssid%
)
pause >nul
exit
———————————————————————
:del-dir
<?xml version="1.0"?>
<WLANProfile xmlns="http://www.microsoft.com/networking/WLAN/profile/v1">
<name>%wiid%</name>
<SSIDConfig>
<SSID>
<name>%wiid%</name>
</SSID>
</SSIDConfig>
<connectionType>ESS</connectionType>
<connectionMode>auto</connectionMode>
<MSM>
<security>
<authEncryption>
<authentication>WPA2PSK</authentication>
<encryption>AES</encryption>
<useOneX>false</useOneX>
</authEncryption>
<sharedKey>
<keyType>passPhrase</keyType>
<protected>false</protected>
<keyMaterial>%pass%</keyMaterial>
</sharedKey>
</security>
</MSM>
<MacRandomization xmlns="http://www.microsoft.com/networking/WLAN/profile/v3">
<enableRandomization>false</enableRandomization>
</MacRandomization>
</WLANProfile>

复制代码

@echo off &setlocal
set "wiid=new11-2.4G"
set "pass=kkkk8899"
set "profile_name=%wiid%"
::生成联网配置文件包括传入%wiid%变量实值
sed.exe -n "/^<?xml/,$p" "%~f0"|sed.exe "s/%%wiid%%/%wiid%/i">"%profile_name%.xml"
::连接指定的WiFi网络
netsh wlan add profile filename="%profile_name%.xml"
netsh wlan connect name="%profile_name%" ssid="%wiid%"
REM 等待几秒钟以确保连接成功
timeout /t 10 /nobreak > nul
REM 检查连接状态
netsh wlan show interfaces | findstr /I /C:"%wiid%"
if %errorlevel% equ 0 (
echo 成功连接到WiFi网络 %wiid%
) else (
echo 无法连接到WiFi网络 %wiid%
)
pause&exit/b
::以下配置文件内容被简化
<?xml version="1.0"?>
...
<SSID>
<name>%wiid%</name>
</SSID>
...
</WLANProfile>

复制代码