Dim ps As System.Diagnostics.Process() = System.Diagnostics.Process.GetProcesses()
For Each p As System.Diagnostics.Process In ps
output.show(p.processName)
If ("Adobe Reader(32位)" = p.ProcessName)
或
If ("AcroRd32" = p.ProcessName)
msgbox(p.MainWindowTitle)
If p.MainWindowTitle = "123.pdf"
p.kill
End If
End If
Next