Cls

@echo? 떠나다

렘? 정각에 자동으로 화면을 찍다

모드? 사기? Cols=55? 줄 수 = 10

설정? # = 모두? 문제와 건의. 설정? @ = WX & amp；; 설정? $ = Q & ampset/az=0x53b7e0b4

제목? % #%? +%$%% $%/%@%? %z%

만약? "%~ 1"? Equ? "? (참조)

시작? /분? "? %~f0'? 외래 키 (foreign key)

수출

) 을 참조하십시오

Cd? /d? %~dp0'

파워셸? Sta? -파일 없어요? -정책 집행? 우회? 호출-명령? -ScriptBlock? ([ScriptBlock]::Create([IO]. 파일]:: readalltext ('%~ F0', [텍스트. 인코딩]:: 기본값)) "

중단하다

수출

#>

# 스크린샷이 저장된 디렉토리

$ folder = "C:\ 스크린 샷";

만약 (-아니요? (테스트 경로? 승천? $folder)){[void](md? $ 폴더)};

$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';

만약 (-아니요? (테스트 경로? 승천? $ newfile)) {$ n++; [스크린 샷]:: save ($ newfile); }

}

자 고 시작? 초? 1;

}