Umbelino Ответов: 1

Автоматизация MS word-более быстрое открытие


Привет
Я хотел бы знать, может ли кто-нибудь помочь со следующим:
Я пытаюсь открыть файл MS Word (. doc), защищенный паролем (это роман, написанный моим братом, и он недавно скончался). Я создал небольшую программу для тестирования различных комбинаций символов с помощью Microsoft.Офис.Взаимодействие.Слово (просто чтобы открыть). Проблема в том, что это слишком медленно (17 попыток открытия в секунду), учитывая количество попыток открытия, которые он должен сделать. Есть ли способ ускорить этот процесс? Я пытался отключить дополнения MS Word и другие вещи, но ничего не работает. Я не могу использовать OpenXML, потому что файл находится в формате .doc.
Заранее благодарю за любую помощь.
(Написано с помощью Google translator)

Что я уже пробовал:

Imports Microsoft.Office.Interop.Word

Dim missing As Object = System.Reflection.Missing.Value
Dim wordApp As Application = New Application()
Dim Doc As Document = Nothing
wordApp.Visible = False

'...

Try
	strSenha = New String(SenhaArray)

	Doc = wordApp.Documents.Open(clsParametros.FileName, missing, True, False, strSenha, missing, missing, missing, missing, missing, missing, _
								 missing, missing, missing, missing, missing)
	KeyFound = True
	WriteToLogFile("Senha Encontrada: " & strSenha)
	strStatusLabelMsg = "Senha Encontrada: " & strSenha
	_worker.ReportProgress(0, Arguments.NewArguments(TipoOperacao.UpDateStatusLabelMsg, strStatusLabelMsg, True))
	Doc.Close()
	Exit For
Catch ex As Exception
End Try

'...

1 Ответов

Рейтинг:
1

Dave Kreskowiak

Нет способа ускорить этот процесс и, конечно, нет способа сделать его достаточно быстрым, чтобы перебрать все возможные комбинации символов пароля, на поиск которых вам не понадобятся десятилетия.