Lotus Notes über Script beenden ?

[Scotty67]

...kann man über LN Script ein Close der Anwedung "Lotus Notes" durchführen...?

[eknori]

Ja

[m3]

Code

Dim result As Integer
result = Shell("nsd -kill")

[Tode]

hehe @m3, das ist aber ziemlich heftig...

[koehlerbv]

... entspricht aber exakt der Fragestellung, Torsten: Schnörkellos und zuverlässig 

Bernhard

[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

 

[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 

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

[eknori]

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

Die Sendkey Geschichte habe ich unter Win 7 / 64 mit Notes 8.5.3 gebaut.

Wie Bernhard schon richtig angemerkt hat, ist es ja letztlich das, was der User auch machen würde. Alle anderen Lösungen würden darauf hinaus laufen, Prozesse zu beenden. Da hieße aber auch, daß Notes damit nicht sauber beendet wird.
Eine wirklich elegante Lösung sehe ich (momentan) nicht.

[m3]

Meintest Du "womit", Bernhard

Also bei mir hat die SendKeys Geschichte unter Win 7 / 64 mit Notes 8.5.2FP2 nicht sauber/nachvollziehbar genug funktioniert, als dass ich das in Produktion gegeben hätte.

[koehlerbv]

Stimmt, das war sprachlich geschlampert. 

Bernhard

[Scotty67]

....leider ist diese Torte noch nicht fertig gebacken 

wir haben mal versucht einen anderen Agent aus diesem DatabaseScript (der LN beenden soll) anzusteuern - die Hoffnung war
das dieser simple Agent den Dienst erledigt.
Interkativ  funktioniert das auch !

Hier der simple Agent:
AGENT "ATABB_ExitNotes"
@Command([ExitNotes])



Hier die Passage aus dem Database-Script:

Set agent = setupR8db.GetAgent("ATABB_ExitNotes")
If agent.Run = 0 Then
   MessageBox "Agent ran",, "Success"
Else
   MessageBox "Agent did not run",, "Failure"
End If
MsgBox "Notes wurde nicht beendet! WARUM ?"