A Better Way To Code This

See more:

VB

PDF

There is a third-part application that houses a list of PDFs. The only way to open them, is to double-click each item one at a time, or press Enter on a highlighted item. Once the PDF opens, a temporary file is saved in C:\Temp. I created a tool that halfway works. It basically uses sendkeys to press enter on an item, then it listens for the process "Acrobat", closes the PDF, then goes to the next item. However, this is all in a For loop and it seems that if there is any network lag, it will skip lines and or freeze... I am a new programmer and looking for a point in the right direction of how to accomplish this:

1.) Open each PDF
2.) Close each PDF
3.) Go to the next line down in the other app and repeat 1-2-3

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