NOTESSIDAN

Allt om Lotus Notes & Domino




Internet Explorer statusfönster från Lotus Notes
Windowsadministratörer använder sig ibland av popup:er för att visa vad som händer när ett VB script körs. Detta kan så klart även köras från Notes. Här är ett exempel som skapar ett webbfönster och fyller på det med information till användaren allt eftersom scriptet körs. stat

Med hjälp av Internet Explorers objekt i Windows kan man alltså på detta sätt skapa websidor dynamiskt utan att behöva ha en webserver igång.
Här nedan är Lotusscriptet jag använde för att få till detta:

Dim otheEnd As Variant Dim ie Sub Initialize Set ie = CreateObject("InternetExplorer.Application") Call InitStatusWindow() Dim x As Long,i As Integer x = 300 For i = 1 To x WriteMessage("Processing : " + Cstr(i)) Next ie.Quit Set ie = Nothing End Sub Sub InitStatusWindow() Dim sTitle, SWidth, SHeight, SWidthW, SHeightW Dim screenwidth As Variant,screenheight As Variant,boxwidth As Variant,boxheight As Variant sTitle = "Status" ie.Resizable = False ie.Visible = False ie.AddressBar = False ie.ToolBar = False ie.StatusBar = False ie.Navigate ("about:blank") screenwidth = ie.document.parentwindow.Screen.AvailWidth screenheight = ie.document.parentwindow.Screen.AvailHeight boxwidth = 400 boxheight = 500 ie.document.parentwindow.resizeto boxwidth, boxheight ie.document.parentwindow.moveto (screenwidth - boxwidth) / 2, (screenheight - boxheight) / 2 ie.Visible = True ie.document.Open ie.document.Write "<span id='theEnd'></span>" ie.document.Close Set oTheEnd = ie.document.All.theEnd ie.document.title = sTitle End Sub Sub WriteMessage(sMsg) On Error Resume Next oTheEnd.insertAdjacentHtml "beforeBegin", sMsg & "<BR>" oTheEnd.scrollIntoView End Sub



Relevanta Poster på Notessidan:



Publicerad 2007-09-06 | Kommentarer: 0 | Läsningar: 931
Kommentarer

No documents found



Sök på Notessidan
Thomas Adrian
ThomasCertifierad utvecklare och administratör inom Notes & Domino

Kontakta mig







Senaste Sökningarna på Notessidan
Sön - sharepoint (R:1)
Sön - räkna and antal and besökare (R:0)
Sön - browser (R:17)
Sön - stoppar and mail (R:1)
Sön - korrupt (R:3)
Sön - böcker (R:0)
Sön - kalendern (R:12)
Sön - feature (R:15)
Sön - print and mime (R:2)
Sön - länka (R:0)
Sön - databasen (R:94)
Sön - access (R:47)
Sön - outlook (R:15)
Sön - webanvändare (R:0)
Sön - google and maps (R:6)
Sön - juffe (R:2)
Sön - uidoc.print (R:1)
Sön - java and lotusscript (R:26)
Sön - besök (R:0)




Databasstatistik Blogg
Uppdateras var 15:e Minut

Antal Poster:562
Antal Kommentarer: 1405
Alla sidvisningar idag:
Unika Besökare idag:
Databasstorlek: 153,5Mb
Fixup: 2019-09-21 00:31:16
FT:2019-09-22 19:19:00
DB Procent använd: 98,7
Antal Agenter: 42
Antal Formulär: 65
Antal Vyer: 60
Antal Dokument: 7984
Antal Image Resources: 108
Antal Subformulär: 18
Antal Scriptbibliotek: 11
Totalt Antal Designelement: 576
Antal Attachments: 159
Antal Konflikter: 0
Server version 1: 405
Server version 2: Release 9.0.1FP9|August 14, 2017
Server Plattform: Windows/64
Ändrad: 2019-09-22 21:06:44
Server Tidszon: Z=-1$DO=1$DL=3 -1 1 10 -1 1$ZX=131$ZN=W. Europe
Region:
Kommentarsspam Idag: 13
Kommentarsspam Totalt: 18895


BlogRankers.com

Top Sites at iWEBTOOL.com

Fight Spam! Click Here!

Bloggtoppen.se

Listed on BlogShares

Increase website traffic

Top Internet Blogs

Site Checker