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 SubDer 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.