keybd_event in Lotus Notes 8

[hupfi]

Hallo Notes Gemeinde,

wir sind kurz vor der Umstellung auf Notes 8. Jetzt bin ich auf eine Funktion in unserem System gestoßen, die mit Notes 8 anscheinend nicht mehr richtig funktioniert.

Um eine Vorlage mit Briefkopf richtig Auszudrucken manipulieren wir die Seitenränder, indem wir einfach die Tastenkombinationen über das keydb_event absenden. Dies funktioniert in Notes 7 einwandfrei. Da sich die Tastenkombination in Notes 8 geändert hat, habe ich dies zuerst angepasst. Wenn ich jetzt das Script ausführe, sieht es so aus wie wenn das Script die Tastenkombinationen zu schnell ans System senden. Und nur die Alt und "D" Taste (Öffnen des Menue "Datei") funktioniert. Alle weiteren gesendeten Buchstaben z. B. zum Öffnen des Druckdialoges haben keine Auswirkungen.

Hat jemand von Euch damit schon Erfahrungen unter Lotus Notes 8 gemacht und könnten mir eventuell weiterhelfen?


Schönes Wochenende wünscht
hupfi

[koehlerbv]

Bist Du sicher, dass Du auch die korrekten Tastencodes an den Keyboard-Buffer von Windows schreibst? Der 8er Client müsste ja andernfalls beim Öffnen der Dialogbox selbständig den Buffer leeren ...

Was passiert, wenn Du eine Verzögerung einbaust?

Bernhard

[hupfi]

Hallo Bernhard,

ja ich bin mir sicher, dass ich den richtigen Tastencode sende. Wenn ich es in der Datenbank von Hand auf der Tastatur eingeben funktioniert es auch.

Habe eine Verzögerung eingebaut. Leider keine Veränderung. Funktioniert trotzdem nicht.

[koehlerbv]

Stell mal den relevanten Codeteil ein, damit wir das nachstellen können (wenn Du willst).

Bernhard

[hupfi]

Hier ist mal der Codeschnipsel den ich verwende. Es handelt sich hierbei um den Code für einen englischen Notes Client. Dieser sollte das Fenster für die Seiteneinstellungen öffnen und dort in das Feld "Above body" springen. Es wird jedoch nur das "File"-Menue geöffnet.

------------------------------------------------------------------------------------------------------------------------

If Not Instr( 1, Strtoken( session.NotesVersion, "|", 1), "8" ) = 0 Then
      
      keybd_event 18,0,0,0 'Alt key down
      char = Asc("F")
      keybd_event char,0,0,0 'F key down
      keybd_event char,0,2,0 'F key up
      char = Asc("G")
      keybd_event char,0,0,0 'G key down
      keybd_event char,0,2,0 'G key up
      char = Asc("B")
      keybd_event char,0,0,0 'B key down
      keybd_event char,0,2,0 'B key up
      keybd_event 18,0,2,0 'Alt key up
      
   End If

------------------------------------------------------------------------------------------------------------------------------

[thomson666]

Hi!

Ich kann deine Vermutung nur bestätigen, es ist tatsächlich so das du es zu schnell sendest...
Wir machen bei uns auf die selbe weise einen Querformatausdruck. Dieser funktioniert auf ca. 50% der Clients, bei manchen aber nicht. Die Lösung war ein einfaches Sleep von 500ms... Jetzt klappts auf jedem Platz.

Versuchs doch mal mit Sleep und gib bitte kurz Bescheid ob dir das oder eine andere Lösung geholfen hat.
MfG
Tom

[hupfi]

Hallo thomson666,

danke für deinen Tip. Das mit dem Sleep funktioniert auch bei mir. Finde dies Lösung aber nicht gerade toll. Haben uns jetzt entschieden die Vorlagen umzubauen.


Gruß hupfi

[thomson666]

total find ichs auch nicht, aber beim Querformatdruck die einzigste Möglichkeit...