Sub ProcessPDF() Dim z As Integer = Next1 AppActivate("Hyperspace") For i = 1 To z SendKeys.SendWait("{ENTER}") ' Open PDF p = Process.GetProcessesByName("Acrobat") ' Check if PDF opened If p.Count > 0 Then p(0).CloseMainWindow() 'Close PDF SendKeys.SendWait("^Q") 'Quit current screen SendKeys.SendWait("{DOWN}") 'Go to next PDF End If Next1 = Next1 - 1 label2.Text = Next1 & " PDFs Left!" Next End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)