for /f "delims=: tokens=2" %%l in ('curl -s ipinfo.io^|findstr ""region""') do set ad=%%l&echo 所在地区:%%l
复制代码

@Echo off & Color 72 & MODE con: COLS=30 LINES=4 & Title 获取 外网IP ，归属，运营商！
Chcp 65001>Nul
For /f "delims=" %%i in ('curl -s cip.cc') do (call,Set cip=%%cip%%@%%i)
Reg ADD HKLM\Software\jia\dizhi /v dizhi /t REG_SZ /d "%cip%" /f 
Chcp 936>Nul
For /f "tokens=2,3,4 delims=@" %%i in ('"REG QUERY HKEY_LOCAL_MACHINE\SOFTWARE\jia\dizhi"') do (Set ip=%%i&Set 地址=%%j&Set 运营商=%%k )
Rer DELETE HKLM\Software\jia /f
Set ip=%ip: =%
Set 地址=%地址: =%
Set 运营商=%运营商: =%
cls
Echo.%ip%
Echo.%地址%
Echo.%运营商%
Pause>Nul&Exit
复制代码

@echo off & setlocal enabledelayedexpansion
echo 代码开始

echo 中文字符乱码问题
chcp 65001 > nul
echo 批处理就支持utf-8了，type命令啥的都没问题


REM 获取网卡名称
for /f "delims=" %%a in ('netsh interface show interface^|more +3') do (
    set "str=%%a"
    for /f "tokens=*" %%b in ("!str:~46!") do set interfaceName=%%b
)
 
echo 网卡名称: "%interfaceName%"

echo 当前使用的网络"%interfaceName%"------已禁用
netsh interface set interface "%interfaceName%" admin=disable
echo.
echo.
echo.
echo.
ping 0 -n 10 >nul 2>nul

echo 当前使用的网络"%interfaceName%"------已启用
netsh interface set interface "%interfaceName%" admin=enable

pause >nul
exit
复制代码

@echo off &setlocal
chcp 65001>nul
for /f "delims=" %%a in (u8.txt) do set/a "n+=1" &call set "_#%%n%%=%%a"
chcp 936>nul
(for /f "tokens=* delims=_#0123456789=" %%v in ('set _#') do echo,%%v)>"gb.txt"
pause &exit/b
复制代码

@echo off &setlocal
chcp 936>nul
for /f "delims=" %%a in (gb.txt) do set/a "n+=1" &call set "_#%%n%%=%%a"
chcp 65001>nul
(for /f "tokens=* delims=_#0123456789=" %%v in ('set _#') do echo,%%v)>"u8.txt"
pause &exit/b
复制代码