截屏的vbs脚本

strComputer = "."

With CreateObject("Word.Basic")

.Sendkeys "{prtsc}"

.FileQuit '.AppClose

End With

Msgbox "已截屏复制至剪贴板。", vbSystemModal+vbInformation, WScript.ScriptName

 

举例脚本（可直接复制至你的vbs文件）

strComputer = "."

With CreateObject("Word.Basic")

.Sendkeys "{prtsc}"

.FileQuit '.AppClose

End With

Msgbox "已截屏复制至剪贴板上。", vbSystemModal+vbInformation, WScript.ScriptName