Times 10Times 11Times 12Helvetica 10Helvetica 11Helvetica 12Courier 10Courier 11Courier 12
Adresy:
Times
AddressVyberte p
smo pro zna
ky typu adresa na str
ch WWW.
TimesHelveticaCourier
Pevn
text:
Courier
FixedVyberte p
smo pro zna
ky typu pevn
text na str
ch WWW.
TimesHelveticaCourier
#T&$)
Seznamy:
Courier
ListingVyberte p
smo pro zna
ky typu seznam na str
ch WWW.
TimesHelveticaCourier
Prezentace
edvolby s
Internet lze nastavit
pravou dokumentu aktu
ho pracovi
.
0S0E
Upravit pracovi
edvolby
$Script1
adit do kategorie
_Upravit dokument
Odeslat doku_mentD
Po_stoupit
esunout do slo
ky...
_Odebrat ze slo
it a zav
0S0E
adit do kategorie
_Upravit dokumentd
Odeslat doku_mentZ
Po_stoupit
esunout do slo
ky...
_Odebrat ze slo
it a zav
0S0E
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
kk|~[k
$StartUpOptions_O
$OpenURL_O
$PreferredSearchEngine_O
$ScanAheadold_O
$$StartUpOptions
$$OpenURL
$$PreferredSearchEngine
$$ScanAheadold
$Language
$LastBuildTime
$BabelInfo
$INFO
$WINDOWTITLE
$DesignerVersion
$Script
$$Script_O
$$ScriptName
$$FormScript
$$$FormScript_O
$$$Script1
$$Script1_O
$BODY
$V5ACTIONS
$ACTIONS
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
Declare Sub Beforenavigate2(Source As Webbrowser, Pdisp As Variant, Url As Variant, Flags As Variant, Targetframename As Variant, Postdata As Variant, Headers As Variant, Cancel As Integer)
Declare Sub Statustextchange(Source As Webbrowser, Text As String)
Declare Sub Progresschange(Source As Webbrowser, Progress As Long, Progressmax As Long)
Declare Sub Downloadbegin(Source As Webbrowser)
Declare Sub Downloadcomplete(Source As Webbrowser)
Declare Sub Titlechange(Source As Webbrowser, Text As String)
Declare Sub Navigatecomplete2(Source As Webbrowser, Pdisp As Variant, Url As Variant)
Declare Sub Newwindow2(Source As Webbrowser, Ppdisp As Variant, Cancel As Integer)
Declare Sub Commandstatechange(Source As Webbrowser, Comman_ As Long, Enable As Integer)
Declare Sub Documentcomplete(Source As Webbrowser, Pdisp As Variant, Url As Variant)
'++LotusScript Development Environment:2:5:(Declarations):0:10
Dim WebDatabase As notesdatabase
Dim datadoc As notesdocument
Dim Session As notessession
Dim DocNoteID As notesdocument
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As WEBBROWSER
Set Source = Bind(Objectname_)
On Event Beforenavigate2 From Source Call Beforenavigate2
On Event Statustextchange From Source Call Statustextchange
On Event Progresschange From Source Call Progresschange
On Event Downloadbegin From Source Call Downloadbegin
On Event Downloadcomplete From Source Call Downloadcomplete
On Event Titlechange From Source Call Titlechange
On Event Navigatecomplete2 From Source Call Navigatecomplete2
On Event Newwindow2 From Source Call Newwindow2
On Event Commandstatechange From Source Call Commandstatechange
On Event Documentcomplete From Source Call Documentcomplete
End Sub
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
'*
'* Initialize Variables and declare local variables
'*
Dim InterNetProfile As Notesdocument
Dim ProfileView As notesview
Dim URL As Variant
Set Session = New NotesSession
Set WebDatabase = Session.CurrentDatabase
End Sub
'++LotusScript Development Environment:2:2:Beforenavigate2:1:12
Sub Beforenavigate2(Source As Webbrowser, Pdisp As Variant, Url As Variant, Flags As Variant, Targetframename As Variant, Postdata As Variant, Headers As Variant, Cancel As Integer)
' A navigation has requested a new window be opened
' we'll take care of everything and tell the caller we opened a new window
' otherwise the IE application starts up in a new window
$ACLDigest$Signature$UpdatedBy$Name$TITLE$Flags$PublicAccess$ScriptLib_O$ScriptLib$Language$LastBuildTime$BabelInfo$INFO$$Script_O$$ScriptNameTitleURLContentCommentsSharedOptionstmpWebServertmpWebDbRating$FIELDS$Babel_Tags$BODY$StartUpOptions_O$OpenURL_O$PreferredSearchEngine_O$ScanAheadold_O$Fonts$$$FormScript_O$$Script1_OScanAheadSearchFrequencyUpdatesFoundOptionsSendMailToReduceDaysReduceNumDaysReduceSizeReduceNumMBKeepPageWebServerWebDatabaseSaveHTMLAnchor_stylePlainBodyAddressFixedListing$Script1$WINDOWTITLE$ACTIONS$V5ACTIONS$Script$$FormScript$$StartUpOptions$$OpenURL$$PreferredSearchEngine$$ScanAheadold$$$Script1$DesignVersion$Version$Formula$FormulaClass$Collation$Collection$ViewContainerbookmarkfileForwardOptionsCounter$Hotspot0_OCreatedExpirationPrivacy_flagsOriginal_DateLast_Modified$$XMB_2$$XMB_3$SCRIPTOBJ_21$SCRIPTOBJ_20$SCRIPTOBJ_16$SCRIPTOBJ_17$SCRIPTOBJ_12HTTPStatusTypeHostFileNameSaveOptionsSubject$SCRIPTOBJ_1$HTMLDocumentStylesUsernameDomainPathCookieNameExpirationDateCookieValueCookieSecure$SCRIPTOBJ_26$SCRIPTOBJ_18$SCRIPTOBJ_22$SCRIPTOBJ_23$SCRIPTOBJ_24$SCRIPTOBJ_25$SCRIPTOBJ_15$SCRIPTOBJ_11$SCRIPTOBJ_14$OLEOBJINFO$OLEPreviewActivate$SCRIPTOBJ_0$SCRIPTOBJ_3$SCRIPTOBJ_8$SCRIPTOBJ_10$$XMB$Licensee$FILE$FormUsers$AUTOLAUNCH$$FormAction1$$FormAction6$SCRIPTOBJ_2$SCRIPTOBJ_4$Index$VIEWFORMAT$SCRIPTOBJ_9$Collation1$Collation2$Collation3$Collation4$Totals$SCRIPTOBJ_6$SCRIPTOBJ_7$ViewGlobalScript_O$ViewScript_O$ViewScript$ViewGlobalScript$ReplFlags(Globals) Jin
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Use "InternetFunctions"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
Declare Sub InstantiateFormObjects
'++LotusScript Development Environment:2:5:(Declarations):0:10
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
End Sub
'++LotusScript Development Environment:2:2:InstantiateFormObjects:1:8
Sub InstantiateFormObjects
'call the global instantiate objects
InstantiateObjects
Set uidoc = w.CurrentDocument
Set doc = uidoc.Document
End Sub
Lotus Product
W32I4
HTMLForm'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Postopen(Source As Notesuidocument)
Declare Sub Terminate
Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As NOTESUIDOCUMENT
Set Source = Bind(Objectname_)
On Event Postopen From Source Call Postopen
On Event Queryopen From Source Call Queryopen
End Sub
'++LotusScript Development Environment:2:2:Postopen:1:12
Sub Postopen(Source As Notesuidocument)
'Dim doc As notesdocument
'Dim w As New notesuiworkspace
'Dim locationdoc As notesdocument
'Dim BrowserObjectCollection As notesdocumentcollection
'Dim dt As New notesdatetime ("1/1/90")
'Dim BrowserDoc As notesdocument
'source.refreshhideformulas
'If we are in the process of forwarding the document, don't open it with the web browser form.
'If source.document.forward(0) = "1" Then
' Exit Sub
'End If
'If Not (source.inpreviewpane) Then
' InstantiateObjects
' Set doc = source.document
' Dim url As String
' url = doc.url(0)
' If GetcurrentLocation = "3" Then
' source.close
' w.urlopen(url)
' End If
'End If
End Sub
'++LotusScript Development Environment:2:2:Terminate:1:10
Sub Terminate
End Sub
'++LotusScript Development Environment:2:2:Queryopen:1:12
Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
End Sub
Lotus Product
W32I4
zev:
Title
0S0E
Title
Je nutn
zadat p
t dokumentu.
3S4S6S11STitle
Adresa URL:
Stav:
HTTPStatus
Typ:
Hostitel:
6S9S
zev souboru:
0S0E
FileName
SaveOptions
Subject
Subject
1S2S3S
Subject
Title
Subject
Postoupit
Postoupit...'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
InstantiateFormObjects
Call NotesForwardNote(doc)
End Sub
esunout do slo
ky...
adit do kategorie
_Upravit dokument
Odeslat doku_ment
_Odebrat ze slo
ky...
Postoupit
Postoupit...'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
InstantiateFormObjects
Call NotesForwardNote(doc)
End Sub
esunout do slo
ky...
adit do kategorie
_Upravit dokument
Odeslat doku_mentZ
_Odebrat ze slo
ky...
Lotus Product
W32I4
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Counter
$Hotspot0_O
Created
Expiration
Privacy_flags
Original_Date
Last_Modified
$SCRIPTOBJ_21
$SCRIPTOBJ_20
$SCRIPTOBJ_16
$SCRIPTOBJ_17
$SCRIPTOBJ_12
$Language
$LastBuildTime
$BabelInfo
$INFO
$WINDOWTITLE
$DesignerVersion
$Script
$$Script_O
$$ScriptName
$$FormScript
$$$FormScript_O
$BODY
$V5ACTIONS
$ACTIONS
$SCRIPTOBJ_1
nosti s
Internet
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
CZ'iY
&oB0d
$Formula
$Language
$LastBuildTime
$BabelInfo
Started running agent 'Internet Options...' on 10/15/99 09:42:12 AM
0 document(s) were modified by formula
Done running agent 'Internet Options...' on 10/15/99 09:42:15 AM
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Beforenavigate(Source As Webbrowser, Url As String, Flags As Long, Targetframename As String, Postdata As Variant, Headers As String, Cancel As Integer)
Declare Sub Navigatecomplete(Source As Webbrowser, Url As String)
Declare Sub Framebeforenavigate(Source As Webbrowser, Url As String, Flags As Long, Targetframename As String, Postdata As Variant, Headers As String, Cancel As Integer)
Declare Sub Framenavigatecomplete(Source As Webbrowser, Url As String)
Declare Sub Framenewwindow(Source As Webbrowser, Url As String, Flags As Long, Targetframename As String, Postdata As Variant, Headers As String, Processed As Integer)
Declare Sub Downloadbegin(Source As Webbrowser)
Declare Sub Downloadcomplete(Source As Webbrowser)
Declare Sub Progresschange(Source As Webbrowser, Progress As Long, Progressmax As Long)
Declare Sub Titlechange(Source As Webbrowser, Text As String)
Declare Sub Statustextchange(Source As Webbrowser, Text As String)
Declare Sub Initialize
Declare Sub Newwindow(Source As Webbrowser, Url As String, Flags As Long, Targetframename As String, Postdata As Variant, Headers As String, Processed As Integer)
Declare Sub Commandstatechange(Source As Webbrowser, Comman_ As Long, Enable As Integer)
'++LotusScript Development Environment:2:5:(Declarations):0:10
Dim WebDatabase As notesdatabase
Dim datadoc As notesdocument
Dim Session As notessession
Dim DocNoteID As notesdocument
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As WEBBROWSER
Set Source = Bind(Objectname_)
On Event Beforenavigate From Source Call Beforenavigate
On Event Navigatecomplete From Source Call Navigatecomplete
On Event Framebeforenavigate From Source Call Framebeforenavigate
On Event Framenavigatecomplete From Source Call Framenavigatecomplete
On Event Framenewwindow From Source Call Framenewwindow
On Event Downloadbegin From Source Call Downloadbegin
On Event Downloadcomplete From Source Call Downloadcomplete
On Event Progresschange From Source Call Progresschange
On Event Titlechange From Source Call Titlechange
On Event Statustextchange From Source Call Statustextchange
On Event Newwindow From Source Call Newwindow
On Event Commandstatechange From Source Call Commandstatechange
End Sub
'++LotusScript Development Environment:2:2:Beforenavigate:1:12
Sub Beforenavigate(Source As Webbrowser, Url As String, Flags As Long, Targetframename As String, Postdata As Variant, Headers As String, Cancel As Integer)
' A navigation has requested a new window be opened
' we'll take care of everything and tell the caller we opened a new window
' otherwise the IE application starts up in a new window
Print "Error: Accessing web browser control ErrOLEException("& Err & ")"
Resume Next
End Sub
'++LotusScript Development Environment:2:2:Framebeforenavigate:1:12
Sub Framebeforenavigate(Source As Webbrowser, Url As String, Flags As Long, Targetframename As String, Postdata As Variant, Headers As String, Cancel As Integer)
End Sub
'++LotusScript Development Environment:2:2:Framenavigatecomplete:1:12
Sub Framenavigatecomplete(Source As Webbrowser, Url As String)
End Sub
'++LotusScript Development Environment:2:2:Framenewwindow:1:12
Sub Framenewwindow(Source As Webbrowser, Url As String, Flags As Long, Targetframename As String, Postdata As Variant, Headers As String, Processed As Integer)
' A navigation has requested a new window be opened
' we'll take care of everything and tell the caller we opened a new window
' otherwise the IE application starts up in a new window
'++LotusScript Development Environment:2:2:Downloadbegin:1:12
Sub Downloadbegin(Source As Webbrowser)
' Start Animation...
uidoc.Navbarspinnerstart
End Sub
'++LotusScript Development Environment:2:2:Downloadcomplete:1:12
Sub Downloadcomplete(Source As Webbrowser)
' Stop Animation...
uidoc.Navbarspinnerstop
End Sub
'++LotusScript Development Environment:2:2:Progresschange:1:12
Sub Progresschange(Source As Webbrowser, Progress As Long, Progressmax As Long)
Dim percent As Long
If progress = -1 Then
Print " Done"
Else
If ProgressMax > 0 Then
percent = (Progress * 100) / Progressmax
If percent > 0 Then
Print " " & percent & " % complete"
End If
Else
If progress >0 Then
Print " " & progress & " bytes read"
End If
End If
End If
End Sub
'++LotusScript Development Environment:2:2:Titlechange:1:12
Sub Titlechange(Source As Webbrowser, Text As String)
Dim NavBarURL As String
' Ask the browser object for the current URL
NavBarURL = browserobject.LocationURL
' Set the Text in the Nav bar and the window title
uidoc.NavBarSetText NavBarURL, Text
End Sub
'++LotusScript Development Environment:2:2:Statustextchange:1:12
Sub Statustextchange(Source As Webbrowser, Text As String)
Print " " & Text
End Sub
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
'*
'* Initialize Variables and declare local variables
'*
Dim InterNetProfile As Notesdocument
Dim ProfileView As notesview
Dim URL As Variant
Set Session = New NotesSession
Set WebDatabase = Session.CurrentDatabase
End Sub
'++LotusScript Development Environment:2:2:Newwindow:1:12
Sub Newwindow(Source As Webbrowser, Url As String, Flags As Long, Targetframename As String, Postdata As Variant, Headers As String, Processed As Integer)
'
' A navigation has requested a new window be opened
' we'll take care of everything and tell the caller we opened a new window
' otherwise the IE application starts up in a new window
'remove any remaining fields that don't need to be carried around
docLocal.RemoveItem "ForwardOptions"
docLocal.save True, False
End If
Exit Sub
Next
End If
Exit Sub
End Sub
Lotus Product
W32I4
Lotus Product
W32I4
Lotus Product
W32I4
Lotus Product
W32I4
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Use "InternetFunctions"
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Postopen(Source As Notesuiview)
Declare Sub Queryaddtofolder(Source As Notesuiview, Target As Variant, Continue As Variant)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As NOTESUIVIEW
Set Source = Bind(Objectname_)
On Event Postopen From Source Call Postopen
On Event Queryaddtofolder From Source Call Queryaddtofolder
End Sub
'++LotusScript Development Environment:2:2:Postopen:1:12
Sub Postopen(Source As Notesuiview)
InstantiateObjects
End Sub
'++LotusScript Development Environment:2:2:Queryaddtofolder:1:12
Sub Queryaddtofolder(Source As Notesuiview, Target As Variant, Continue As Variant)
Call MoveToFolder(source,target,continue)
End Sub
Lotus Product
W32I4
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$SCRIPTOBJ_20
$SCRIPTOBJ_19
$SCRIPTOBJ_17
$SCRIPTOBJ_18
$SCRIPTOBJ_16
$SCRIPTOBJ_14
$SCRIPTOBJ_15
$SCRIPTOBJ_13
(Globals) Obl
polo
ky a z
$Language
$LastBuildTime
$BabelInfo
$TITLE
$Name
$Index
$Formula
$FormulaClass
$VIEWFORMAT
$FormFormula
$Comment
$DesignerVersion
$V5ACTIONS
$ACTIONS
$SCRIPTOBJ_0
$SCRIPTOBJ_1
$SCRIPTOBJ_3
$SCRIPTOBJ_11
$ViewGlobalScript
$ViewGlobalScript_O
$ViewScript
$ViewScript_O
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub RefreshPage
Declare Sub InstantiateObjects
Declare Sub OpenHomeURL
Declare Sub OpenSearchSite (docLocal As NotesDocument)
Declare Sub CreateNotesLink (docLocal As NotesDocument)
Declare Sub CopyDocumentToSharedDatabase (docLocal As NotesDocument, url As String)
Declare Sub CreateRatingDocument (docLocal As NotesDocument, url As String, title As String)
Declare Sub ReduceToLink (docLocal As NotesDocument)
Declare Sub GetProfileDocument
Declare Function LocationOK As Integer
Declare Sub ImportFavorites
Declare Sub FavoriteExtractAddress(posBegin As Integer)
Declare Sub CreateFavoriteDocument
Declare Sub FavoriteProcessOneLine
Declare Sub ImportBookmarks
Declare Sub NavigatorExtractAddress(posBegin As Integer)
Declare Sub ShrinkFolderName
Declare Sub NavigatorProcessOneLine
Declare Sub GetFolderName(posStart As Integer)
Declare Sub CreateNavigatorDocument
Declare Sub PrintWebDocument
Declare Sub WebNavHelp
Declare Sub IENextdoc(browserobject As Variant)
Declare Sub IEPreviousDoc(browserobject As Variant)
Declare Sub IEStop(browserobject As Variant)
Declare Function GetCurrentLocation As String
Declare Sub IEForwardNote (doc As notesdocument, browserobject As Variant)
Declare Sub IERefreshPage(browserobject As Variant)
Declare Sub IEOpenHome(browserobject As Variant)
Declare Sub IESearch(browserobject As Variant)
Declare Sub CreateIELink(url As String, title As String)
Declare Sub MoveToFolder(Source As NotesUIView,Target As Variant, Continue As Variant)
Declare Function GetLocalNAB() As NotesDatabase
Declare Function GetRegValue (szKey$, szValueName$) As String
Declare Sub SetRegValue(szKey$, szValueName$, szKeyValue)
Declare Function GetLocationItem (itemname As String) As Variant
Declare Sub SetLocationItem(itemname As String, itemvalue As String)
Declare Sub CreateIEBookmark(browserobject As Variant, folder As String)
Declare Sub RemoveObjects(doc As notesdocument)
Declare Sub GetCurrentFolders
Declare Sub ViewDelete
Declare Sub Browse
Declare Sub ViewForward(docLocal As notesdocument)
Declare Function DuplicateBookmark(szURL) As Integer
Declare Sub CheckRegistrySettings
Declare Function CompareValues(IEValue As String, NotesValue As Variant) As String
Declare Function ParseFilename(szPath As String) As String
Declare Sub NotesForwardNote(doc As notesdocument)
Declare Function ParseURL(url As String) As String
'++LotusScript Development Environment:2:5:(Declarations):0:10
'this script library is used by the views and forms for sharing various scripts -> Home, Search, Share, Import Bookmarks, and Reduce
Dim w As NotesUIWorkspace
Dim session As NotesSession
Dim db As NotesDatabase
Dim dbShared As NotesDatabase
Dim docProfile As NotesDocument
Dim note As NotesDocument
Dim bookmark As NotesDocument
Dim bookmarkfolder As NotesView
Dim firstnavigatedone As Integer
Dim view As NotesView
Dim hFile As Integer
Dim numDirectories As Integer
Dim szPath As String
Dim szEntry As String
Dim szURL As String
Dim szTitle As String
Dim szFolder As String
Dim filenamepath As String
Dim filename As String
Dim fileflag As Integer
Dim Directories() As String
%INCLUDE "lsconst.lss"
' This declares the routines used for retrieving key values
' from the registry on a Windows 32 client.
' NOTE: if you are running this app on a platform other than
' Windows 32 Intel, then it will not work.
Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (Byval hKey&, Byval szSubKey$, Byval dwOptions&, Byval SAM&, hKey&) As Long
Declare Function RegCloseKey Lib "advapi32.dll" Alias "RegCloseKey" (Byval hKey&) As Long
Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (Byval hKey&, Byval szValue$, Byval dwReserved&, dwType&, Byval szValue$, lpdwBuf&) As Long
Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (Byval hKey&, Byval szValue$, Byval dwReserved&, Byval dwType&, Byval lpData$, Byval cbData&) As Long
Const HKEY_CURRENT_USER = &H80000001
Const KEY_READ = &H00020019
Const KEY_SET_VALUE = &H0002
Dim RetCode As Long
Dim dwType As Long
Dim hKey As Long
Dim dwSize As Long
Dim lpData As String
Dim cbData As Long
'++LotusScript Development Environment:2:2:RefreshPage:1:8
Sub RefreshPage
Dim currenturl As String
Dim currentdoc As notesuidocument
Dim urldoc As notesdocument
Dim docCollection As NotesDocumentCollection
Set docCollection = db.UnprocessedDocuments
If (docCollection.Count = 0) Then
Msgbox "Je nutn
vybrat dokument.",16,"Chyba"
Exit Sub
End If
Set currentdoc = w.currentdocument
currenturl=currentdoc.fieldgettext("URL")
Set urldoc = db.GetDocumentByURL(currenturl, 1)
w.EditDocument False, urldoc
w.viewrefresh
End Sub
'++LotusScript Development Environment:2:2:InstantiateObjects:1:8
Sub InstantiateObjects
Set w = New NotesUIWorkspace
Set session = New NotesSession
Set db = session.CurrentDatabase
Set view = db.GetView("(Internet Profile)")
Set docProfile = view.GetFirstDocument
End Sub
'++LotusScript Development Environment:2:2:OpenHomeURL:1:8
Sub OpenHomeURL
On Error 4005 Goto LoadHomeURL
Dim urldoc As NotesDocument
If (docProfile Is Nothing) Then GetProfileDocument
(.txt)
