Pageflipper.vbs

set WshShell = WScript.CreateObject("WScript.Shell")
num = 0
pages = 1094
WScript.Sleep 2000 'This is a delay to give time to switch to adobe
BtnCode = 0
do while not BtnCode = 7
  do while (num < pages and not BtnCode = 7)
    if (status = "Fail") then exit do
    num = num + 1
    WScript.Sleep 20  '20 ms = 50 pages per second
    WshShell.SendKeys("{RIGHT}") 'This flips to the next page. Put document in presentation mode and flip it on its side for best results.
  loop
WshShell.SendKeys("{HOME}")
BtnCode = WshShell.Popup("Keep Going?",3,"Keep Going?",4) 'No to exit, otherwise loop again
num = 0
loop