突然想做一个自动全屏播放PDF的东西,然后想到vbs脚本是一个解决方案,于是在网上找了半天,找到了如下的代码。
Set wshobj=WScript.CreateObject("WScript.Shell") app=wshobj.Run("FoxitReader.exe Ping.pdf") wshobj.AppActivate app WScript.Sleep 1000 wshobj.SendKeys "%vf" Wscript.Quit
这段代码是我根据FoxitReader的执行办法改写的,可以看到第二行是用阅读器打开pdf文档,你可以对应改成任意你要用的程序打开对应任意的文件(注意相对路径和绝对路径)。然后第四行让你的当前窗口sleep…… 意思是说你下面的操作将对新打开的窗口有效,即你启动的程序界面。于是倒数第二行是快捷键的输入,就像是vbs脚本自动替你从键盘输入命令。%代表Alt 键,vf代表V和F的字母键。然后退出脚本。因为foxitreader里面的全屏播放按钮时Alt+v+f,于是当我双击vbs脚本之后,我就可以直接全屏显示pdf文件了,就和ppt一样……