Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе
Dim ws as new NotesUIworkspace
Dim uidoc as NotesuiDocument
Set uidoc = ws.CurrentDocument
Dim doc as NotesDocument
Set doc = uidoc.Document
s = doc.GetItemValue( "MyField" )(0) Dim ws as new NotesUIworkspace
s = ws.CurrentDocument.Document.GetItemValue( "MyField" )(0)скорее всего где-то "закольцовано" использование библиотек... из-за такого клиент на самом деле может падать...
Тем более на производительность не влияет...нужно добавлять "имхо"
ScriptLib = 2 Gb вот такого я ещё не видел )))
Type param
value As String
End Type
Private data List As paramIf Not checkFile( filePath) Then Exit Sub
filenum = Freefile()
Open filePath For Input Lock Write As filenum Charset=DEFCHARSET
Do Until Eof(fileNum)
Line Input #fileNum, text
If text <> "" And Instr( text, PD) > 0 Then
data(Strtoken( text, PD, 1)).value = Strtoken( text, PD, 2)
End If
Loop
Close filenum Sub close
Dim filenum As Integer
try:
On Error Goto catch
If isDataChanged Then
filenum = Freefile()
Open filePath For Output Lock Write As filenum Len=1000 Charset=DEFCHARSET
Forall dat In data
Print #filenum, Listtag(dat) & PD & dat.value
End Forall
Close filenum
End If
Erase data
Set ses = Nothing
Exit Sub
catch:
Call errh (Getthreadinfo(1) & " (Class ACCOptions)", False)
Exit Sub
End SubFunction setEnvir( key As String, value As String) As Boolean
try:
On Error Goto catch
If data(key).value <> value Then
data(key).value = value
isDataChanged = True
End If
Exit Function
catch:
Call errh (Getthreadinfo(1) & " (Class ACCOptions)", False)
Exit Function
End Function
'--------------------------------------------------------------------------------------------------------------------------------------
Function getEnvir( key As String) As String
try:
On Error Goto catch
getEnvir = data(key).value
Exit Function
catch:
Call errh (Getthreadinfo(1) & " (Class ACCOptions)", False)
Exit Function
End Function
'--------------------------------------------------------------------------------------------------------------------------------------Ошибочка вышла.
Обучение наступательной кибербезопасности в игровой форме. Начать игру!