15 апреля стартует «Курс «SQL-injection Master» ©» от команды The Codeby
За 3 месяца вы пройдете путь от начальных навыков работы с SQL-запросами к базам данных до продвинутых техник. Научитесь находить уязвимости связанные с базами данных, и внедрять произвольный SQL-код в уязвимые приложения.
На последнюю неделю приходится экзамен, где нужно будет показать свои навыки, взломав ряд уязвимых учебных сайтов, и добыть флаги. Успешно сдавшие экзамен получат сертификат.
Запись на курс до 25 апреля. Получить промодоступ ...
Dim session As New NotesSession
Dim doc As NotesDocument
Dim db As NotesDatabase
Set db = New NotesDatabase( "Barcelona", "plan.nsf" )
Set doc = db.CreateDocument
doc.Form = "FORM1"
doc.TITLE = "New building"
doc.STATUS = "1"
...
Call doc.Save( True, True )Set newDoc = New NotesDocument( db )
Set rtitem = New NotesRichTextItem( newDoc, "Body" )
Call rtitem.AppendDocLink( db, db.Title )Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim Gdoc As NotesDocument
Set uidoc = workspace.CurrentDocument
Set Gdoc = uidoc.Document
Dim session As New NotesSession
Dim doc As NotesDocument
Dim db As NotesDatabase
Set db = New NotesDatabase( "Barcelona", "plan.nsf" )
Set doc = db.CreateDocument
doc.Form = "FORM1"
doc.TITLE = "New building"
doc.STATUS = "1"
Call doc.Save( True, True )
Set rtitem = New NotesRichTextItem( doc, "Body" )
Call rtitem.AppendDocLink( GDoc, "Ссылка на гл.докумень" )
Call doc.Save( True, True )
Sub Click(Source As Button)
'получим настройки
Dim ns As notessession
Dim ws As notesuiworkspace
Dim sdb As notesdatabase
Dim sv As notesview ' вид для поиска настроек
Dim sdoc As notesdocument ' документ настроек
Dim note As notesuidocument ' новый документ настроек, если оный не найден
Set ns = New notessession
Set ws = New notesuiworkspace
Set sdb = ns.currentdatabase
Set sv = sdb.getview("Settings")
Set sdoc = sv.getfirstdocument
Dim Serv As Variant
Dim Files As Variant
Serv = sdoc.Serv(0)
Files = sdoc.Files(0)
If(Serv = "" Or Files ="") Then
Messagebox ("Обратитесь к администратору, не правильные настройки базы данных")
Exit Sub
End If
Dim worckspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim Gdoc As NotesDocument
Set uidoc = worckspace.CurrentDocument
Set Gdoc = uidoc.Document
Dim session As New NotesSession
Dim doc As NotesDocument
Dim db As NotesDatabase
Set db = New NotesDatabase(Serv , Files )
Set doc = db.CreateDocument
'Отправка контролеру если есть
' Ошибка тут
If GDoc.ControlLN(0) <> "" Then
'Проверим есть ли ИО у контролера
If GDoc.ControlLN(1) <>"" Then
AddTitle = "ИО - "
doc.SendToActаasing = GDoc.ControlLN(1)'
Print "Отправление " + GDoc.ControlLN(1)
End If
doc.Form = "Memo"
doc.Body = " "
doc.EnterSendFrom = "NoBody" 'от кого
doc.From = "Обращения" ' из какой БД
doc.IsInformationNotice = "1"
doc.SendTo = GDoc.ControlLN(0) ' Кому LN имя
doc.SendToRus = GDoc.ControlRealExecName(0) ' Кому имя
doc.SourceUNIDDoc = "" ' ID документа
doc.Subject = AddTitle + "Об № " + GDoc.RegNum(0) + " " + Gdoc.AuthorObr(0) +" " + GDoc.Type(0) + ": " +GDoc.Title(0)
Call doc.Save( True, True )
Set rtitem = New NotesRichTextItem(doc,"Body")
Call rtitem.AppendDocLink (GDoc, "Документ")
Call rtitem.AddTab( 1 )
Call rtitem.AppendText( "Вам направлен на контроль документ из Базы данных 'Обращение'" )
Print "Отправление " + GDoc.ControlLN(0)
Call doc.Save( True, True )
Print "Отправление документа контролеру завершено"
Else
Print "Контролеры не указаны"
End If
End SubЧитайте код правильно!
Там 2 сравнения
1. If GDoc.ControlLN(0) <> "" Then
2. If GDoc.ControlLN(1) <>"" Then
Затыкается на первом
Я это и отметил по ходу кода.
Если не сложно подскажите как еще можно проверить существует ли элемент???
Обучение наступательной кибербезопасности в игровой форме. Начать игру!