PrintScreen并保存

#c::
GetClip:
ClipSave := ClipboardAll
Send, {PrintScreen}
Sleep, 200
Clip := ClipboardAll
Clipboard := ClipSave
a := fileopen("clip.tmp","w")
a.RawWrite(Clip,StrLen(Clip))
a.Close()
Return

#v::
ReadClip:
ClipSave := ClipboardAll
;读取文件到剪切板
FileRead, Clipboard, *c clip.tmp
Send, ^v
Sleep, 200
Clipboard := ClipSave
Return