宽带连接监测程序,防止断网。
2024-3-14 乱云飞 评论(0) 浏览(9) 标签: 批处理 检测网络 断网重连 宽带连接 宽带拨号
@echo off @title 宽带连接监测程序 2024-03-14 BY wwwylg @mode con cols=50 lines=10 color 9F setlocal enabledelayedexpansion :QQ5082500 rem 检测宽带连接状态 rasdial "宽带连接" /status | findstr "已连接" >nul if errorlevel 1 ( echo. rasdial "宽带连接" 13213610060 123456 if !errorlevel! == 0 ( echo %date%%time%拨号连接成功。 ) else ( echo %date%%time%拨号连接失败,请检查账号和密码是否正确。 ) ) else ( echo %date%%time%宽带已连接。 ) rem 等待5分钟(300秒)后再次检测 timeout /t 15 >nul cls goto QQ5082500
批处理交换文件名,互换文件名,偷天换日B计划
2023-11-27 乱云飞 代码 评论(0) 浏览(84) 标签: 批处理 互换文件名 交换文件名 B计划 偷天换日
@echo off rem B计划:交换文件名/互换文件名 set #=Any question&set @=WX&set $=Q&set/az=0x4d8d84 title %#% +%$%%$% %z% cd /d "%~dp0" for /f "delims=" %%a in ('dir /a-d/b "*url*.txt"') do ( for /f "delims=" %%b in ("temp.txt") do ( ren "%%b" "~#%%~nxb" ren "%%a" "%%~nxb" ren "~#%%~nxb" "%%~nxa" ) ) taskkill /f /im QQ.exe start QQ.exe echo. echo;%#% +%$%%$% %z% echo. pause exit
批处理判断虚拟机
2023-7-23 乱云飞 评论(0) 浏览(55) 标签: 批处理 判断虚拟机 虚拟机检测
@systeminfo | findstr /i "vir"@if %ERRORLEVEL% equ 0 (echo 是虚拟机) else (echo 不是虚拟机)
批处理获取XML节点数值
2023-6-9 乱云飞 代码 评论(0) 浏览(70) 标签: 批处理 VBS 获取XML 读取XML
//用bat获取XML节点 SET FILE=onvif.xml SET NODE=http_port FOR /F "tokens=2 delims=<>/" %%a IN ('type %FILE%^| find "<%NODE%>"') DO SET VALUE=%%a ECHO 端口号是:%VALUE% cmd/k --------------------------------------------------------------------------------------- //用VBS获取XML节点 '定义变量 Dim FILE, NODE, VALUE Dim oShell, oExec, oStdOut, line '设置文件名和节点名 FILE = "onvif.xml" NODE = "http_port" '使用CMD命令获取节点值 Set oShell = CreateObject("WScript.Shell") Set oExec = oShell.Exec("cmd /c type " & FILE & " | find """ & NODE & """") Set oStdOut = oExec.StdOut '读取输出结果并提取值 Do While Not oStdOut.AtEndOfStream line = oStdOut.ReadLine If InStr(line, "<" & NODE & ">") > 0 Then VALUE = Split(line, "<" & NODE & ">")(1) VALUE = Split(VALUE, "</" & NODE & ">")(0) End If Loop '输出结果 MsgBox "端口号是:" & VALUE --------------------------------------------------------------------------------------- //用VBS获取XML节点方法2,不弹出CMD窗口 Dim fso, file, stream, str, node, value ' 创建 File System Object Set fso = CreateObject("Scripting.FileSystemObject") ' 打开文件 Set file = fso.OpenTextFile("onvif.xml", 1) ' 读取文件内容 str = file.ReadAll ' 关闭文件 file.Close ' 查找节点 node = "http_port" value = "" ' 循环查找节点并获取值 For Each line In Split(str, vbCrLf) If InStr(line, "<" & node & ">") > 0 Then value = Split(line, "<" & node & ">")(1) value = Split(value, "")(0) Exit For End If Next ' 输出结果 If value <> "" Then WScript.Echo "端口号是:" & value End If
批处理获取电脑当前时间,根据时间打开不同文件。
2023-5-3 乱云飞 评论(0) 浏览(73) 标签: 批处理 获取时间 电脑时间 判断时间
@echo off @rem 获取电脑当前时间,根据时间打开不同文件。 @rem 80c.cc for /f "tokens=1-2 delims=: " %%H in ("%time%") do ( set /a hour=%%H ) if %hour% geq 6 if %hour% lss 20 ( echo 现在是白天 ) else ( echo 现在是夜间 ) cmd /k
批处理检测系统安装日期
2021-4-21 乱云飞 代码 评论(0) 浏览(310) 标签: 批处理 检测系统 安装日期
cmd /k systeminfo | find "安装日期"
cmd /k systeminfo | find "Install Date"
让批处理程序会说话
2020-5-3 乱云飞 评论(0) 浏览(429) 标签: 批处理 文本转语音
@mshta vbscript:createobject("sapi.spvoice").speak("让批处理程序会说话!")(window.close) @msg %username% "听到声音了吧?"
批处理获取本机IP地址
2019-9-17 乱云飞 评论(1) 浏览(644) 标签: 批处理 获取IP 获取IP地址 本机IP
@echo off @for /f "tokens=4" %%a in ('route print^|findstr 0.0.0.0.*0.0.0.0') do (@set IP=%%a)>NUL 2>NUL @echo 本机IP地址是:%IP%
----------------------------
@echo off
@for /f "tokens=4" %%a in ('route print^|findstr 0.0.0.0.*0.0.0.0') do (set IP=%%a)
@echo 你的局域网IP是:%IP%
@pause>nul
@cmd/k
----------------------------
@echo off
for /f "tokens=2 delims=:" %%a in ('ipconfig ^| findstr /c:"IPv4"') do (set "ipAddress=%%a")
echo 本机IP地址是:%ipAddress%
cmd/k
批处理连接局域网共享打印机
2019-9-3 乱云飞 评论(0) 浏览(637) 标签: 批处理 局域网共享 共享打印机
@color 0A @mode con cols=50 lines=10 @title 连接局域网打印机 www.80c.cc @echo. @echo 洛阳翼展科技 / 专业安防监控 13213610060 @echo. @echo 正在连接打印机。。。 @::-------------------------------------------------------- @set 打印机=\\80c.cc\print @set 用户名=administrator @set 密码=12345678 @::-------------------------------------------------------- @net stop Spooler @ping -n 10 127.0.0.1>NUL @net start Spooler @net use %打印机% %密码% /user:%用户名% @start %打印机% /user:%用户名% %密码% @rundll32 printui.dll,PrintUIEntry /y /n " %打印机%" @ping -n 10 127.0.0.1>NUL @::-------------------------------------------------------- @rem cmd /k exit
批处理映射网络共享目录
2019-8-23 乱云飞 评论(0) 浏览(615) 标签: 批处理 映射 共享文件夹
@color 0A @mode con cols=50 lines=10 @title 连接网络共享磁盘 www.80c.cc @echo. @echo 连接网络共享磁盘... ::-------------------------------------------------------- @set 服务器=\\80c.cc\测试目录 @set 注册表=##80c.cc#测试目录 @set 用户名=admin @set 密码=* @set 盘符=Z @set 卷标=网络磁盘 @set 退出时间=10 ::-------------------------------------------------------- @net use * /d /y >nul 2>nul @net use %盘符%: %服务器% %密码% /user:%用户名% /persistent:yes @label %盘符%: %卷标%>NUL @reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2\%注册表% /v _LabelFromReg /d %卷标% /f @start "打开%盘符%盘" "%盘符%:\" @echo 请打开我的电脑%盘符%盘操作。 @ping -n %退出时间% 127.0.0.1>NUL ::-------------------------------------------------------- rem cmd /k exit