洛阳翼展电脑

批处理写入剪切板

2022-12-6 乱云飞 评论(0) 浏览(171) 标签: 代码 字符串 VB源码 自动输入脚本 复制粘贴

批处理检测是否安装过 Microsoft.NET Framework

2019-7-11 乱云飞 评论(0) 浏览(769) 标签: 代码 批处理 检测 .net

@echo off
set checked=0
if exist "%windir%\Microsoft.NET\Framework\v1.0*" set checked=1
if exist "%windir%\Microsoft.NET\Framework\v1.1*" set checked=1
if exist "%windir%\Microsoft.NET\Framework\v2.0*" set checked=1
if exist "%windir%\Microsoft.NET\Framework\v3.0*" set checked=1
if exist "%windir%\Microsoft.NET\Framework\v3.5*" set checked=1
if exist "%windir%\Microsoft.NET\Framework\v4.0*" set checked=1
if %checked% EQU 1 (echo 已安装.NET Framework) else (echo 未安装.NET Framework)
pause>nul

批处理批量下载文件

2019-6-29 乱云飞 评论(0) 浏览(741) 标签: 代码 批处理 批量下载 下载文件

@echo off  &REM 会被火绒识别为木马
for /l %%i in (1,1,88) do (  
echo "http://80c.cc/%%i.mp3" "%cd%/%%i.mp3"  
down.vbs "http://80c.cc/%%i.mp3" "%cd%/%%i.mp3"  
)  
******************************************************
Download Wscript.Arguments(0),Wscript.Arguments(1)  
Sub Download(url,target)  
    Set post=CreateObject("Msxml2.XMLHTTP")  
    post.Open "GET",url  
    '发送请求  
    post.Send()  
    Set aGet = CreateObject("ADODB.Stream")  
    aGet.Mode = 3  
    aGet.Type = 1  
    aGet.Open()  
    '等待3秒，等文件下载  
    wscript.sleep 3000   
    aGet.Write(post.responseBody)'写数据  
    aGet.SaveToFile target,2  
End Sub