Хук для буфера обмена

[PowerUSB]

Добрый день)
Нуждаюсь в помощи от участников этого форума.
Сам я php программист, но тут появилась задача написать програмку на VBA. Один из моментов, который я никак не могу сообразить, это сделать следующее: Следить за буфером, если в него скопировано новое значение, то получить это значение и выполнить действие(тип данных только string в буфере интересует). В инете перечитал кучу форумов (и этот кстати тоже, тут есть подобная тема но всеравно ничего не понятно). Помогите реализовать данную задачу=)))
MS Access 2013.

[Андрэич]

А как бы вы делали в пхп? Напишите алгоритмически. Поищем аналогии

[raxp]

...написал под vbs:

Set clp = CreateObject("htmlfile")  
txt = clp.ParentWindow.ClipboardData.GetData("text")  

Do
 txt2 = clp.ParentWindow.ClipboardData.GetData("text")  
 If txt <> txt2 Then MsgBox txt2
 txt = txt2
Loop

а вы уж адаптируйте под VBA.

[Андрэич]

'В общий модуль:
Option Compare Database
Option Explicit

Public Const CF_TEXT = 1
Public Declare Function GetClipboardData Lib "user32" (ByVal wFormat As Long) As Long
Public Declare Function CloseClipboard Lib "user32" () As Long
Public Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" (ByVal lpString As Long) As Long
Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Long, ByVal ByteLen As Long)
-----------------------------------------------------------------------
Sub test()
    Dim hStrPtr As Long, lLength As Long, sBuffer As String
    OpenClipboard Application.hWndAccessApp
    hStrPtr = GetClipboardData(CF_TEXT)
    If hStrPtr <> 0 Then
        lLength = lstrlen(hStrPtr)
        If lLength > 0 Then
            sBuffer = Space$(lLength)
            CopyMemory ByVal sBuffer, ByVal hStrPtr, lLength
                MsgBox sBuffer, vbInformation
        End If
    End If
    CloseClipboard
End Sub

???

[PowerUSB]

Сообщение от Андрэич

'В общий модуль:
Option Compare Database
Option Explicit

Public Const CF_TEXT = 1
Public Declare Function GetClipboardData Lib "user32" (ByVal wFormat As Long) As Long
Public Declare Function CloseClipboard Lib "user32" () As Long
Public Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" (ByVal lpString As Long) As Long
Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Long, ByVal ByteLen As Long)
-----------------------------------------------------------------------
Sub test()
    Dim hStrPtr As Long, lLength As Long, sBuffer As String
    OpenClipboard Application.hWndAccessApp
    hStrPtr = GetClipboardData(CF_TEXT)
    If hStrPtr <> 0 Then
        lLength = lstrlen(hStrPtr)
        If lLength > 0 Then
            sBuffer = Space$(lLength)
            CopyMemory ByVal sBuffer, ByVal hStrPtr, lLength
                MsgBox sBuffer, vbInformation
        End If
    End If
    CloseClipboard
End Sub

???

А можно еще пояснить как это работает? Я так понял что мне функцию test нужно каждую секунду вызывать что бы следить за буфером*?
Просто это я делаю для решения следующей задачи, будет таблица, где будут записывать номера карт (Em-marine) это такие карты для управления доступом. Не хочу заморачиваться с SDK поэтому решил сделать через буфер. Человек прикладывает карту к считывателю, одна утилитка которая сидит в трее копирует номер карты в буфер. Этот момент мне надо поймать и из буфера записать номер карты в базу. как то так=))

[Андрэич]

Да, наверное. По таймеру (событие формы Таймер + свойство Интервал таймера) вызывать эту процедуру, изменив её на (процедуру-)функцию: Function

[PowerUSB]

Сообщение от Андрэич

Да, наверное. По таймеру (событие формы Таймер + свойство Интервал таймера) вызывать эту процедуру, изменив её на (процедуру-)функцию: Function

Да, это то что надо. Спасибо. Отлично работает)

[Андрэич]

Сообщение от PowerUSB

Человек прикладывает карту к считывателю, одна утилитка которая сидит в трее копирует номер карты в буфер. Этот момент мне надо поймать и из буфера записать номер карты в базу. как то так=))

Умная мысля приходит опосля. Вдруг, кому сгодится, не рецепт, но хотя бы красота в простоте... Расхожий полезный Punto Switcher поможет: опция Следить за буфером (+ др настройки). А оттуда уже можно выудить что хочешь и когда хочешь...