PGP encryption

[netcashin]

With a remote application(VB6) on laptops, users collect data and then data files are created from the app. Users then use PGP to encrypt the files and then send them to a central location.

What I would like to try to do is when the application creates the data files, also have the application encrypt them.

Any ideas on how a control or a way to make this happen.

Thanks

 

[jleger]

Here's one way to do it:

--- Start Code ---
'*** Create your data files here.
'.
'.
'.

'*** Shell to PGP.
RetVal = Shell(&quot;<shell to pgp here>&quot;, vbHide)

'*** Wait for PGP window to close.
Do Until RetVal = 0
RetVal = FindWindow(vbNullString, &quot;<pgp title bar text>&quot
Loop

'*** Continue execution.
--- End Code ---

This code requires the following declaration for the FindWindow() API function:

--- Start Code ---
Declare Function FindWindow& Lib &quot;user32&quot; Alias &quot;FindWindowA&quot; _
(ByVal lpClassName As String, ByVal lpWindowName As String)
--- End Code ---