Domino 9 und frühere Versionen > ND8: Entwicklung

Lotus Notes über Script beenden ?

<< < (2/3) > >>

eknori:
In der Theorie sollte s mit diesem Code funktionieren

Declare Function FindWindow Lib "User32" Alias "FindWindowA" (Byval lpClassName As String, Byval lpWindowName As Long) As Long
Declare Function SendMessage Lib "User32" Alias "SendMessageA" (Byval hwnd As Long, Byval wMsg As Long, Byval wParam As Long, lParam As Long) As Long

   Dim lpClassName As String
   Dim Handle As Long
   
   Const NILL = 0&
   Const WM_SYSCOMMAND = &H112
   Const SC_CLOSE = &HF060&
   
   lpClassName = "NOTES"

   Handle = FindWindow(lpClassName$, NILL)
   Handle = SendMessage(Handle, WM_SYSCOMMAND, SC_CLOSE, NILL)

eknori:
Das hier funktioniert auch mit Notes 8.5.3 Standard

Declare Sub keybd_event Lib "user32.dll" (Byval bVk As Integer, Byval bScan As Integer, Byval dwFlags As Integer,Byval dwExtraInfo As Integer)


Sub Click(Source As Button)
   keybd_event 18,0,0,0 ' Alt down
   keybd_event 115,0,0,0 ' F4 down
   keybd_event 115,0,2,0 ' F4 up
   keybd_event 18,0,2,0 ' Alt up
   keybd_event 13,0,0,0 ' enter up
   keybd_event 13,0,2,0 ' enter down
End Sub

 ;D ;D ;D

koehlerbv:
Letztere Lösung ist aber was für Weicheier - da wird ja ggf. der Prozess noch unterbrochen und gefragt, ob man vielleicht doch besser die angefangene Mail noch speichern möchte  ;D

Bernhard

m3:
Ich bin damit in einem Kundenprojekt unter Win7 nicht glücklich geworden. :(

koehlerbv:
Mit was, Martin? Der Thread ist ja nun schon differenzierter.

Bernhard

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete