@echo off
call :getProprty 屏幕宽 kuan
call :getProprty 屏幕高 gao
call :getProprty 剪贴板 jtb
call :getProprty 剪贴板 > Brother.txt
echo 你的分辨率是 %kuan%×%gao% 像素
echo.
echo 剪贴板的最后一行:
echo %jtb%
echo.
echo 剪贴板中所有文字（Brother.txt）：
more Brother.txt
pause>nul
exit
:: 第一个参数是要获取什么内容；
:: 第二个参数是把它放入的变量名，没有则直接显示
:getProprty
set "_~_=%temp%\Spring"
set "_$_=WScript.Echo .parentWindow."
> "%_~_%" echo v = WScript.Arguments(0)
>>"%_~_%" echo With CreateObject^("htmlfile"^)
>>"%_~_%" echo If v = "剪贴板" Then %_$_%clipboardData.GetData^("text"^)
>>"%_~_%" echo If v = "屏幕宽" Then %_$_%screen.Width
>>"%_~_%" echo If v = "屏幕高" Then %_$_%screen.Height
>>"%_~_%" echo End With
for /f "delims=" %%z in ('cscript -nologo -e:vbs "%_~_%" "%1"') do (
  if /i "%2"=="" (
    echo %%z
  ) else (
    set "%2=%%z"
  )
)
del "%_~_%" /q
复制代码