蝙蝠或小程序，自动采取屏幕截图，并保存每个小时的计算机图像。

cls

@echo？离开

雷姆？整点自动截屏

mode？骗局？cols=55？行数=10

设置？# =任何？问题与建议。设置？@ = WX & amp；设置？$ = Q & ampset/az=0x53b7e0b4

标题？%#%?+%$%%$%/%@%?%z%

如果？"%~1"?equ？""?（

开始？/min？""?“%~f0”？外键(foreign key)

出口

)

cd？/d？" %~dp0 "

powershell？sta？-没有档案？-执行政策？旁路？“调用-命令？-ScriptBlock？([ScriptBlock]::Create([IO。File]::ReadAllText('%~f0 '，[Text。编码]::默认)))"

中止

出口

# & gt

#存储屏幕截图的目录

$ folder = " C:\截屏"；

如果(-不是？(测试路径？升？$folder)){[void](md？$ folder)}；

$codes=@ '

使用？系统。绘图；

使用？系统。绘图。成像；

使用？系统。Windows . Forms

公？静电？班级？截图{

公？静电？作废？保存(字符串？f){

形象？img=new？位图(屏幕。AllScreens[0].Bounds.Width，？屏幕。all screens[0]. bounds . height)；

图形？g =图形。from image(img)；

g.CopyFromScreen(新？点(0，？0),?新的？点(0，？0),?屏幕。all screens[0]. bounds . size)；

img。保存(f，？图像格式。BMP)；

}

}

'@;

添加-类型？-类型定义？$codes？-参考汇编？系统。Windows.Forms '，' System。图纸'；

$ n = 0；while($true){

cls

$now=(get-date)。toString('yyyy-MM-dd？HH:mm:ss’)；

写主机？保持？这个？窗户？最小化'；

写主机？做什么？不是吗？接近？这个？窗口'；

写主机？$ n . tostring()；写主机？$现在；

$m=[regex]::match($now，'00:0[0-9]$');

if(m . Success){

$ new file = $ folder . trimend(' \ ')+' \ '+($ now？-替换？[-\s:]|\d\d$ '，' ')+' 00 . BMP '；

如果(-不是？(测试路径？升？$ new file)){ $ n++；[截图]::Save($ new file)；};

};

开始睡觉？秒钟？1;

}