洛阳翼展电脑

批处理交换文件名，互换文件名，偷天换日B计划

2024-12-9 乱云飞 代码 评论(0) 浏览(236) 标签: 批处理 互换文件名 交换文件名 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

调用ImageMagick把图片指定区域透明批处理代码

2024-10-30 乱云飞 评论(0) 浏览(109) 标签: 批处理 命令行 编辑图片 图片透明

rem 设置透明区域尺寸
set "size=500x60"
rem 设置透明区域开始坐标
set "imgxy1=30,30"
rem 设置透明区域结束坐标
set "imgxy2=530,90"
set "img0=C:\1.png"
set "img1=C:\1_temp.png"
set "img2=C:\mask.png"
set "img3=C:\mask_inverted.png"
set "img4=C:\mask_final.png"
set "img5=C:\output.png"
rem 下面是程序不要改动
rem magick %img0% -format png %img1%
magick -size %size% xc:black %img2% 
magick %img2% -fill white -draw "rectangle %imgxy1% %imgxy2%" %img3%
magick %img3% -negate %img4%  
magick %img0% %img4% -compose CopyOpacity -composite %img5%
rem 清理临时文件
del /f /q %img0%
del /f /q %img1%
del /f /q %img2%
del /f /q %img3%
del /f /q %img4%
ren %img5% "1.png"

宽带连接监测程序，防止断网。

2024-3-14 乱云飞 评论(0) 浏览(168) 标签: 批处理 检测网络 断网重连 宽带连接 宽带拨号

@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

批处理判断虚拟机

2023-7-23 乱云飞 评论(0) 浏览(203) 标签: 批处理 判断虚拟机 虚拟机检测

@systeminfo | findstr /i "vir"
@if %ERRORLEVEL% equ 0 (echo 是虚拟机) else (echo 不是虚拟机)

批处理获取XML节点数值

2023-6-9 乱云飞 代码 评论(0) 浏览(219) 标签: 批处理 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) 浏览(234) 标签: 批处理 获取时间 电脑时间 判断时间

@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) 浏览(476) 标签: 批处理 检测系统 安装日期

cmd /k systeminfo | find "安装日期"

cmd /k systeminfo | find "Install Date"

让批处理程序会说话

2020-5-3 乱云飞 评论(0) 浏览(675) 标签: 批处理 文本转语音

@mshta vbscript:createobject("sapi.spvoice").speak("让批处理程序会说话！")(window.close)
@msg %username% "听到声音了吧？"

批处理获取本机IP地址

2019-9-17 乱云飞 评论(1) 浏览(818) 标签: 批处理 获取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) 浏览(761) 标签: 批处理 局域网共享 共享打印机

@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