Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе
кроме всего прочего получить с такого ярлыка вот это Посмотреть вложение 19665 далеко не равна нулю(это при "правильном" линке типа notes:///...)
ещё, если док в нотусе открывается во фрейме и, при своём открытии, что то делает в УИ (напр. обновляет другой фрейм) будет ващще бардак)
очень даже из представления
очень даже из представления
... и при "ручном" заполнении линка
... а так же иногда буфер "залипает" (вин 10х64) - открывается предыдущий(!) док
а записать это в поле, штоб "умный" копипастом, оттуда взял в буфер, не в кайф?
и что мешает? Это текстовой файл! назовите файл ...url и запишите правильное содержимое (его можно взять из обекта документа url$ = notesDocument .NotesURL из хэлпа)
не сталкивался и фреймов не делаю, и чем это будет отличаться от lnk слабо представляю...кроме всего прочего получить с такого ярлыка вот это Посмотреть вложение 19665 далеко не равна нулю
ещё, если док в нотусе открывается во фрейме и, при своём открытии, что то делает в УИ (напр. обновляет другой фрейм) будет ващще бардак)
у меня часто, после открытия дока, инициируется инфа в соседнем фрейме, зависимая от содержания дока
Option Public
Option Declare
Declare Private Sub MoveMemory Lib "kernel32" Alias "RtlMoveMemory" ( ByVal strDest As Any, ByVal lpSource As Any, ByVal Length As Any)
Declare Private Function GlobalAlloc Lib "kernel32" (ByVal uFlags As Long, ByVal dwBytes As Long) As Long
Declare Private Function GlobalFree Lib "kernel32" (ByVal hMem As Long) As Long
Declare Private Function GlobalLock Lib "kernel32" (ByVal hMem As Long) As Long
Declare Private Function GlobalUnlock Lib "kernel32" (ByVal hMem As Long) As Long
Declare Private Function OpenClipboard Lib "user32" (ByVal hWnd As Long) As Long
Declare Private Function GetClipboardData Lib "user32" (ByVal uFormat As Long) As Long
Declare Private Function CloseClipboard Lib "user32" () As Long
Declare Private Function EmptyClipboard Lib "user32" () As Long
Declare Private Function SetClipboardData Lib "user32" (ByVal uFormat As Long, ByVal hData As Long) As Long
'Clipboard Constants...
Private Const GMEM_MOVABLE = &H2&
Private Const GMEM_DDESHARE = &H2000&
Private Const CF_TEXT = 1
Private Const CANNOTOPENCLIPBOARD = 2
Private Const CANNOTGLOBALLOCK = 4
Private Const CANNOTCLOSECLIPBOARD = 5
Private Const CANNOTGLOBALALLOC = 6
Private Const CANNOTEMPTYCLIPBOARD = 7
Private Const CANNOTSETCLIPBOARDDATA = 8
Private Const CANNOTGLOBALFREE = 9
Function fSendToClipboard(strText As String) As Variant
Dim varRet As Variant
Dim fStClpData As Long
Dim hMem As Long
Dim lpMemory As Long
Dim lngSize As Long
Dim varTemp As Variant
varRet = False
fStClpData = False
lngSize = Len(strText) + 1
hMem = GlobalAlloc(GMEM_MOVABLE Or _
GMEM_DDESHARE, lngSize)
If (hMem) =0 Or IsNull(hMem)Then
varRet = Error(CANNOTGLOBALALLOC)
GoTo sTxtDone
End If
lpMemory = GlobalLock(hMem)
If (lpMemory) =0 Or IsNull(lpMemory) Then
varRet = Error(CANNOTGLOBALLOCK)
GoTo sTxtGlblFree
End If
Call MoveMemory(lpMemory, strText, lngSize)
Call GlobalUnlock(hMem)
varTemp = (OpenClipboard(0&))
If varTemp=0 Or IsNull(varTemp) Then
varRet = Error(CANNOTOPENCLIPBOARD)
GoTo sTxtGlblFree
End If
varTemp = (emptyClipboard())
If varTemp=0 Or IsNull(varTemp) Then
varRet = Error(CANNOTEMPTYCLIPBOARD)
GoTo fSendToClipboardCloseClipboard
End If
varTemp = SetClipboardData(CF_TEXT, hMem)
If varTemp=0 Or IsNull(varTemp) Then
varRet = Error(CANNOTSETCLIPBOARDDATA)
GoTo fSendToClipboardCloseClipboard
Else
fStClpData = True
End If
fSendToClipboardCloseClipboard:
varTemp = closeclipboard()
If varTemp=0 Or IsNull(varTemp) Then
varRet = Error(CANNOTCLOSECLIPBOARD)
End If
sTxtGlblFree:
If Not fStClpData Then
varTemp = globalfree(hmem)
If varTemp=0 Or IsNull(varTemp) Then
varRet = Error(CANNOTGLOBALFREE)
End If
End If
sTxtDone:
fSendToClipboard = varRet
End FunctionUse "libWindowsClipboard"
Sub Click(Source As Button)
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim url As String
Dim varRet As Variant
Set uidoc = workspace.CurrentDocument
uidoc.Document.u2 = id
url = uidoc.Document.NotesURL
Messagebox "Ссылка на документ скопирована в буфер обмена"
varRet = fSendToClipboard( url )
End SubичЁ??? ))))
Если будет кнопка, то буфер уже не нужен. Кнопку или действие нужно разместить на форме того дока, на который будет создаваться линк, либо создать универсальный агент (независящий от форм документов), запускаемый из меню действий. И там из текущего/выделенного документа получаем все параметры, открываем поток и пишем содержимое полученной переменной в файл на диск - это и есть создание линка.
Обучение наступательной кибербезопасности в игровой форме. Начать игру!
