Domino 9 und frühere Versionen => ND8: Entwicklung => Thema gestartet von: Scotty67 am 05.05.11 - 16:05:38
Titel: Lotus Notes über Script beenden ?
Beitrag von: Scotty67 am 05.05.11 - 16:05:38
...kann man über LN Script ein Close der Anwedung "Lotus Notes" durchführen...?
Titel: Re: Lotus Notes über Script beenden ?
Beitrag von: eknori am 05.05.11 - 16:09:31
Ja
Titel: Re: Lotus Notes über Script beenden ?
Beitrag von: m3 am 05.05.11 - 16:09:38
Code
Dim result As Integer
result = Shell("nsd -kill")
Titel: Re: Lotus Notes über Script beenden ?
Beitrag von: Tode am 05.05.11 - 16:39:47
hehe @m3, das ist aber ziemlich heftig...
Titel: Re: Lotus Notes über Script beenden ?
Beitrag von: koehlerbv am 05.05.11 - 16:41:47
... entspricht aber exakt der Fragestellung, Torsten: Schnörkellos und zuverlässig ;D
Bernhard
Titel: Re: Lotus Notes über Script beenden ?
Beitrag von: eknori am 05.05.11 - 17:14:28
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
Titel: Re: Lotus Notes über Script beenden ? (Solution)
Beitrag von: eknori am 05.05.11 - 17:21:39
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
Titel: Re: Lotus Notes über Script beenden ?
Beitrag von: koehlerbv am 05.05.11 - 17:39:15
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
Titel: Re: Lotus Notes über Script beenden ?
Beitrag von: m3 am 05.05.11 - 21:56:42
Ich bin damit in einem Kundenprojekt unter Win7 nicht glücklich geworden. :(
Titel: Re: Lotus Notes über Script beenden ?
Beitrag von: koehlerbv am 05.05.11 - 22:11:33
Mit was, Martin? Der Thread ist ja nun schon differenzierter.
Bernhard
Titel: Re: Lotus Notes über Script beenden ?
Beitrag von: eknori am 06.05.11 - 06:05:19
Zitat
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.
Titel: Re: Lotus Notes über Script beenden ?
Beitrag von: m3 am 06.05.11 - 15:11:54
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.
Titel: Re: Lotus Notes über Script beenden ?
Beitrag von: koehlerbv am 06.05.11 - 15:22:37
Stimmt, das war sprachlich geschlampert. ;)
Bernhard
Titel: Re: Lotus Notes über Script beenden ?
Beitrag von: Scotty67 am 09.05.11 - 15:58:20
....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 ?"