15 апреля стартует «Курс «SQL-injection Master» ©» от команды The Codeby
За 3 месяца вы пройдете путь от начальных навыков работы с SQL-запросами к базам данных до продвинутых техник. Научитесь находить уязвимости связанные с базами данных, и внедрять произвольный SQL-код в уязвимые приложения.
На последнюю неделю приходится экзамен, где нужно будет показать свои навыки, взломав ряд уязвимых учебных сайтов, и добыть флаги. Успешно сдавшие экзамен получат сертификат.
Запись на курс до 25 апреля. Получить промодоступ ...
K-Fire, на сколько я понимаю.... скопировать отдельно таблицу не получится.... только все поле целиком?
Public Sub Draw
Dim table As NotesRichTextRange
Dim rtNav As NotesRichTextNavigator
Dim rtTable As NotesRichTextTable
Dim numRows As Integer
Dim rowNum As Integer
Dim cols As Variant
Dim colNum As Integer
If Not Isarray(Me.rows) Then Exit Sub
Set rtNav = Me.body.createNavigator
' Set table = Me.body.createRange
If Not rtnav.FindFirstElement(RTELEM_TYPE_TABLE) Then
Messagebox "Body item does not contain a table,",, _
"Error"
Exit Sub
End If
Set rtTable = rtNav.GetElement
' Call table.setBegin( rtTable)
' Call rtNav.setPosition(table)
Call rtNav.FindNthElement( RTELEM_TYPE_TABLECELL, rtTable.ColumnCount )
For rowNum = 0 To Ubound(Me.rows)
cols = Me.rows(rowNum)
For colNum = 0 To (Me.colCount-1)
Call rtNav.FindNextElement( RTELEM_TYPE_TABLECELL )
Call Me.body.BeginInsert( rtNav )
Call Me.body.AppendText( cols( colNum ) )
Call Me.body.endInsert
Next
Call rtTable.AddRow( 1, 2 )
Next
If Isarray(Me.rows) Then Erase Me.rows
Me.rows = ""
Me.colCount = 0
End Sub
Обучение наступательной кибербезопасности в игровой форме. Начать игру!