Autor Thema: Kacheln löschen  (Gelesen 2956 mal)

Jörg P

  • Gast
Kacheln löschen
« am: 02.09.10 - 17:19:44 »
Hallo zusammen,

ich suche eine Möglichkeit, Kacheln per Script von der Oberfläche der User zu entfernen.
Bei der Suche im Forum bin ich hierauf gestoßen: http://atnotes.de/index.php?topic=11627.0
wo dann u.a. dieses Script zu finden ist:

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

Create the following sub routine:

Sub removedb(servername As String,dbpath As String)
Dim workspace As New notesuiworkspace
Call workspace.AddDatabase(servername,dbpath)

keybd_event 46,0,0,0 ' Del key down
keybd_event 46,0,2,0 ' Del key up
keybd_event 89,0,0,0 ' Y key down
keybd_event 89,0,2,0 ' Y key up
End Sub


Der Eintrag ist von 2001 für Notes 4 / 5. Unter Notes 8.0 funktioniert es jedoch nicht.
Ich finde nirgends einen Hinweis darauf, was die Werte 46 und 89 in der user32.dll bewirken sollen. Kann es sein, dass die aktelle user32.dll (bei uns Vers. 5.2.3790.4033) mit anderen Werten angesprochen werden muss. Ich finde allerdings nirgends Hilfen zum Aufbau oder Inhalt der user32.dll.

Kann mir jemand mit ein paar Tipps weiterhelfen?
Vielen Dank im voraus.


Offline m3

  • Freund des Hauses!
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 8.102
  • Geschlecht: Männlich
  • Non ex transverso sed deorsum!
    • leyrers online pamphlet
Re: Kacheln löschen
« Antwort #1 am: 02.09.10 - 17:26:37 »
Das Script simuliert Tastatureingaben über die Funktion "keybd_event" der Windows Library "user23.dll". Da kann es schon sein, dass Microsoft seit damals etwas geändert hat. Das findet man auf MSDN heraus.

HTH
m³ aka. Martin -- leyrers online pamphlet | LEYON - All things Lotus (IBM Collaborations Solutions)

All programs evolve until they can send email.
Except Microsoft Exchange.
    - Memorable Quotes from Alt.Sysadmin.Recovery

"Lotus Notes ist wie ein Badezimmer, geht ohne Kacheln, aber nicht so gut." -- Peter Klett

"If there isn't at least a handful of solutions for any given problem, it isn't IBM"™ - @notessensai

Jörg P

  • Gast
Re: Kacheln löschen
« Antwort #2 am: 02.09.10 - 17:36:54 »
Danke für die schnelle Hilfe!

Ich werde mich da mal "durchwühlen".


Offline schroederk

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 1.924
  • Geschlecht: Männlich
  • Ich liebe dieses Forum!
Re: Kacheln löschen
« Antwort #3 am: 03.09.10 - 07:07:24 »
Es geht aber auch über die folgende Methode:

Zitat
@Command([WindowWorkspace]);
@Command( [AddDatabase] ; "Server/Organization" : "directory\\database.nsf";"0" );
@Command( [FileDatabaseRemove]);

Es kommt allerdings ein Hinweis für den Benutzer, ob er die Kachel wirklich löschen möchte.
Ob man dies unterbinden kann, weiß ich leider nicht.
Ich wäre ja gerne weniger egoistisch, aber was hab ich davon?

Offline eknori

  • @Notes Preisträger
  • Moderatoren
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 11.730
  • Geschlecht: Männlich
Re: Kacheln löschen
« Antwort #4 am: 03.09.10 - 07:15:49 »
@Martin: Nicht M$ hat da was geändert sondern Big Blue. Wir hatten das bei anderer Gelegenheit schon einmal
http://www.eknori.de/2008-03-25/some-api-calls-no-longer-working-in-eclipse-based-client/comment-page-1/
Nicht auszuschliessen, dass das keybd_event ebenfalls in die Liste gehört.
Egal wie tief man die Messlatte für den menschlichen Verstand auch ansetzt: jeden Tag kommt jemand und marschiert erhobenen Hauptes drunter her!

Jörg P

  • Gast
Re: Kacheln löschen
« Antwort #5 am: 06.09.10 - 15:08:43 »
@schroederk: Ja, die Version funktioniert auch gut, doch der User sollte nicht die Möglichkeit haben, die Löschung abzulehnen ... dann wird's nie besser auf den User-Desktops... :-)
Doch trotzdem danke für die Unterstützung!

@eknorie: Danke für die Info. Ich werde mir die Hinweise auch noch mal durchlesen.

 

Impressum Atnotes.de  -  Powered by Syslords Solutions  -  Datenschutz