让所有程序 都可以 自动化 以PdfReader 为例

需求：批量转化n多的pdf文件到txt文件,选择的工具是PdfReader,PdfReader不支持批量操作。

实现：通过自定义VB.NET程序向PdfReader程序发送键盘指令来实现批量转化,VB.NET测试代码粘贴如下：

Try

If String.IsNullOrEmpty(Me.txtPdfFilesFolder.Text) Or String.IsNullOrEmpty(Me.txtResultTxtFilesFolder.Text) Then

MessageBox.Show("请选择pdf或txt文件夹路径！", "提示", MessageBoxButtons.OK, MessageBoxIcon.Stop)

Exit Sub
End If

Dim sourcePdfFolder As String = Me.txtPdfFilesFolder.Text.Trim()
Dim targetTxtFolder As String = Me.txtResultTxtFilesFolder.Text.Trim()

Dim exePath As String = Application.StartupPath + "/pdfreader/PdfReader.exe"
Shell(exePath, AppWinStyle.NormalFocus)

Dim intFileCount As Integer = 0
Dim dir As New System.IO.DirectoryInfo(sourcePdfFolder)
For Each file As System.IO.FileInfo In dir.GetFiles()
If ".pdf".Equals(file.Extension.ToLower()) = True Then

Dim strPdfFileFullName As String = file.FullName
Dim strTxtFileFullName As String = targetTxtFolder + "/" + file.Name.Replace(file.Extension, "") + ".txt"

SendKeys.Send("%F^O")
SendKeys.Send(strPdfFileFullName)
SendKeys.Send("{ENTER}")


SendKeys.Send("^F4")

SendKeys.Send("%F{DOWN 5}")
SendKeys.Send("{ENTER}")
SendKeys.Send(strTxtFileFullName)
SendKeys.Send("{ENTER}")

intFileCount = intFileCount + 1

End If
Next

SendKeys.Send("%F^X")

Catch ex As Exception
MessageBox.Show("转化出现错误：" + ex.Message, "错误")
End Try

遗留的的小问题：因为是程序间直接发送键盘指令,可能受到中文输入法的影响，最好程序把输入法设置成英文。