Hallo Peter,
für das Kopieren der Passwörter habe ich bereits eine etwas elegantere Lösung. Es geht hiermit ganz gut:
Sub SetClipboardText(text As String)
Dim hwnd As Long
Dim hGlobalMemory As Long
Dim lpGlobalMemory As Long
Dim ret As Variant
Dim CF_TEXT As Variant
Dim GMEM_MOVEABLE As Variant
Dim GMEM_ZEROINIT As Variant
On Error Goto error_handler
CF_TEXT = 1
hwnd = NEMGetCurrentSubProgramWindow()
If hwnd Then
hGlobalMemory = GlobalAlloc(Clng(GMEM_MOVEABLE Or GMEM_ZEROINIT), Clng(Len(text)+1))
If hGlobalMemory Then
lpGlobalMemory = GlobalLock(hGlobalMemory)
If lpGlobalMemory Then
ret = lstrcpy(lpGlobalMemory, text)
Call GlobalUnlock(hGlobalMemory)
If OpenClipboard(hwnd) Then
ret = EmptyClipboard()
ret = SetClipboardData(CF_TEXT, hGlobalMemory)
ret = CloseClipboard()
End If
Else
Msgbox "Can't allocated global memory pointer.", 32, "Error"
End If
Else
Msgbox "Can't allocated global memory handle.", 32, "Error"
End If
Else
Msgbox "Can't get window handle.", 32, "Error"
End If
Exit Sub
error_handler:
Print "Error: " + Error$(Err)
Resume Next
End Sub
Damit das Funktioniert, müssen die folgenden Deklarationen vorgenommen werden:
Declare Function OpenClipboard Lib "user32" Alias "OpenClipboard" (Byval hwnd As Long) As Long
Declare Function CloseClipboard Lib "user32" Alias "CloseClipboard" () As Long
Declare Function EmptyClipboard Lib "user32" Alias "EmptyClipboard" () As Long
Declare Function GetClipboardData Lib "user32" Alias "GetClipboardData" (Byval wFormat As Long) As Long
Declare Function SetClipboardData Lib "user32" Alias "SetClipboardData" (Byval wFormat As Long, Byval hMem As Long) As Long
Declare Function IsClipboardFormatAvailable Lib "user32" Alias "IsClipboardFormatAvailable" (Byval wFormat As Long) As Long
Declare Function GlobalAlloc Lib "kernel32" Alias "GlobalAlloc" (Byval wFlags As Long, Byval dwBytes As Long) As Long
Declare Function GlobalLock Lib "kernel32" Alias "GlobalLock" (Byval hMem As Long) As Long
Declare Function GlobalUnlock Lib "kernel32" Alias "GlobalUnlock" (Byval hMem As Long) As Long
Declare Function GlobalSize Lib "kernel32" Alias "GlobalSize" (Byval hMem As Long) As Long
Declare Function lstrcpy Lib "kernel32" Alias "lstrcpyA" (Byval lpString1 As Long, Byval lpString2 As String) As Long
Declare Function lstrcpy1 Lib "kernel32" Alias "lstrcpyA"(Byval lpString1 As String, Byval lpString2 As Any) As Long
Declare Function NEMGetCurrentSubprogramWindow Lib "nnotesws.dll" () As Long
Declare Function NEMStopSubprogramWindow Lib "nnotesws.dll" (Byval wHandle As Long) As Integer
Der Code in einem Button oder Link-Hotspot kopiert den Text jedem beliebigen Feld dann mit diesem Aufruf:
Call SetClipboardText(Doc.Fieldname(0))
Für das bessere Verständnis von meinem Vorhaben, welches mittlerweile bereits realisiert wurde, habe ich unten mal ein paar Screenshots (jeweils im Bearbeiten- und Lese-Modus) angehangen.
Ich kann in einem Dokument einen Benutzernamen, drei Passwörter und fünf Seriennummer speichern. Die Passwörter sind im Lese-Modus versteckt, die Seriennummern immer sichtbar. Damit kann man dann z.B. recht komfortabel die Login-Daten von seinem Mobilfunk-Provider speichern, sowie die PIN und PUK von seiner SIM-Karte plus die IMSI. Alternativ natürlich den Router-Zugang plus WLAN-Kennwort. Mit der Maske kann ich eigentlich alle meine Use-Cases erschlagen. Die Benennung der Passwörter und Seriennummern lässt sich im Bearbeiten-Modus ändern.
Auslöser für diesen Thread war nun, dass ich das Passwort manchmal gern gewusst hätte, wenn ich es in die Zwischenablage kopiere. Dafür hatte ich von Anfang an die Statusleiste im Auge. Ich war mir nur nicht sicher, ob das irgendwo mitgeloggt werden würde, was für mich ein nicht akzeptables Risiko dargestellt hätte.
Als i-Tüpfelchen hat die DB auch noch einen Passwort-Generator. Den Code habe ich hier aus dem Forum und dafür bedanke ich mich an dieser Stelle ganz herzlich bei User Eknori, der hier seit Jahren wertvolle Tipps postet! Die Datenbank war übrigens ein OpenNTF-Projekt (
link), welches die Kopieren-Funktion bereits mitbrachte.
