Block Ctrl+v

bom faz tempo que não posto nada, não é um sistema grande coisa, mas talvez seja útil para alguém.

o que o sistema faz ?

Bloqueia ctrl + v e colar pelo mouse.

Client~Side

na frm em baixo de Option Explicit add:

Código:

Dim Hooked As Boolean

na Sub Form_load() da frm add:

Código:

Hooked = False

na Sub Form_MouseMove da frm add:

Código:

If Hooked = True Then
        UnhookMouse
        Hooked = False
End If

na frm add:

Código:

Private Sub text1_KeyPress(KeyAscii As Integer) ' mudar para o nome da txt
If KeyAscii = 22 Then
    KeyAscii = 0
End If
End Sub

Private Sub text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ' mudar para o nome da txt
If Hooked = False Then
    HookMouse
    Hooked = True
End If
End Sub

Private Sub text1_KeyDown(KeyCode As Integer, Shift As Integer)' mudar para o nome da txt
If KeyCode = 45 And Shift = 1 Then KeyCode = 0
End Sub


Crie um Modulo chamado modBlockCopy e add:

Código:

Public Const WH_MOUSE As Long = 7

'API Declarations
Public Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" _
(ByVal idHook As Long, _
ByVal lpfn As Long, _
ByVal hmod As Long, _
ByVal dwThreadId As Long) As Long

Public Declare Function UnhookWindowsHookEx Lib "user32" _
(ByVal hHook As Long) As Long

Public Declare Function CallNextHookEx Lib "user32" _
(ByVal hHook As Long, _
ByVal ncode As Long, _
ByVal wParam As Long, _
ByVal lParam As Long) As Long
'Global mouse/keyboard function callback handles
Public g_hMouseHook As Long

Public Sub HookMouse()
g_hMouseHook = SetWindowsHookEx(WH_MOUSE, AddressOf MouseProc, App.hInstance, App.ThreadID)
End Sub

Public Sub UnhookMouse()
    If g_hMouseHook Then
        Call UnhookWindowsHookEx(g_hMouseHook)
        g_hMouseHook = 0
    End If
End Sub

Public Function MouseProc(ByVal idHook As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

    'Mouse Function Hook...
    If idHook < 0 Then
        MouseProc = CallNextHookEx(g_hMouseHook, idHook, wParam, ByVal lParam)
    Else
       ' Debug.Print wParam
        If wParam = 516 Or wParam = 518 Or wParam = 164 Then 'single or double-click of mouse
            'Debug.Print "Left mouse click disabled..."
            'Setting the return value to -1 cancels Mouse input...
            MouseProc = -1
        Else
            MouseProc = CallNextHookEx(g_hMouseHook, idHook, wParam, ByVal lParam)
        End If
    End If

End Function


Observações:

Código:

If KeyAscii = 22 Then 'paste(ctrl+ v)
    KeyAscii = 0
End If

If KeyAscii = 3 Then 'copy(ctrl + c)
    KeyAscii = 0
End If

If KeyAscii = 24 Then 'cut(ctrl + x)
    KeyAscii = 0
End If

pode ser melhorado e aprimorado.

Créditos:

Thales12 Tutorial
akhileshbc Sistema

Bom