DESABILITAR O CTRL C E CTRL V PELO VB

Citação:

:
OUTRA COISA VOCE PODE FAZER TAMBEM QUE ACABEI DE TESTAR, ISSO BLOQUEIA O BOTAO DIREITO DO MOUSE, AÍ O BLOQUEIO FICA EM 100%
SEGUE ABAIXO

OBSERVACAO COLOQUE NO FORM UM [Ô]TIMER[Ô] COM INTERVALO = 1 COMO SEGUE ABAIXO

COPIE TUDO QUE ESTA ABAIXO E COLE NO FORM EM [Ô][txt-color=#e80000]GENERAL[/txt-color][Ô]

==========================
[ô] << Bloquear botão direito do mouse >>
[ô] reconhece qual botão foi clicado e seu estado Down ou UP
Private Declare Function GetAsyncKeyState Lib [Ô]user32[Ô] (ByVal vKey As Long) As Integer

[ô] checa posição mouse e gera um clique/eventos no mouse
Private Declare Function GetCursorPos Lib _
[Ô]user32[Ô] (lpPoint As POINTAPI) As Long
Private Declare Function ClientToScreen Lib _
[Ô]user32[Ô] (ByVal hwnd As Long, lpPoint As POINTAPI) As Long
Private Declare Sub mouse_event Lib [Ô]user32[Ô] _
(ByVal dwFlags As Long, ByVal dx As Long, _
ByVal dy As Long, ByVal cButtons As Long, _
ByVal dwExtraInfo As Long)


Private Const MOUSEEVENTF_MOVE = &H1 [ô] mouse move
Private Const MOUSEEVENTF_LEFTDOWN = &H2 [ô] left button down
Private Const MOUSEEVENTF_LEFTUP = &H4 [ô] left button up
Private Const MOUSEEVENTF_RIGHTDOWN = &H8 [ô] right button down
Private Const MOUSEEVENTF_RIGHTUP = &H10 [ô] right button up
Private Const MOUSEEVENTF_MIDDLEDOWN = &H20 [ô] middle button down
Private Const MOUSEEVENTF_MIDDLEUP = &H40 [ô] middle button up
Private Const MOUSEEVENTF_WHEEL = &H800 [ô] wheel button rolled
Private Const MOUSEEVENTF_ABSOLUTE = &H8000 [ô] absolute move

Private Type POINTAPI
X As Long
Y As Long
End Type

Dim pt As POINTAPI
Dim pts As POINTAPI
Dim cur_x As Single
Dim cur_y As Single
Dim dest_x As Single
Dim dest_y As Single
[ô]FIM General form


[ô]INCLUA UM TIMER NO FORM COM INTERVALO = 1

Private Sub Timer1_Timer()

If GetAsyncKeyState(2) = 0 Then
[ô] clicou botão esquerdo e não faz nada
Else
[ô] clicou botão direito
[ô] Things are easier working in pixels.
Me.ScaleMode = vbPixels

[ô] mouse_event moves in a coordinate system where
[ô] (0, 0) is in the upper left corner and
[ô] (65535,65535) is in the lower right corner.

[ô] Get the current mouse coordinates and convert them into this new
[ô] system.GetCursorPos pt
cur_x = pt.X * 65535 / ScaleX(Screen.Width, vbTwips, vbPixels)
cur_y = pt.Y * 65535 / ScaleY(Screen.Height, vbTwips, vbPixels)

[ô] Salva as coordenadas do mouse (NOVO)
pts.X = cur_x
pts.Y = cur_y

[ô] Convert the coordinates of the center of the form into this new
[ô] system.
pt.X = Me.ScaleLeft
pt.Y = Me.ScaleTop
[ô]pt.X = Me.ScaleWidth / 2
[ô]pt.Y = Me.ScaleHeight / 2
ClientToScreen Me.hwnd, pt
dest_x = pt.X * 65535 / ScaleX(Screen.Width, vbTwips, vbPixels)
dest_y = pt.Y * 65535 / ScaleY(Screen.Height, vbTwips, vbPixels)

[ô] Move the mouse to its final destination and click it.
mouse_event _
MOUSEEVENTF_ABSOLUTE + _
MOUSEEVENTF_MOVE + _
MOUSEEVENTF_LEFTDOWN + _
MOUSEEVENTF_LEFTUP, _
dest_x, dest_y, 0, 0

[ô] move o mouse para a posição inicial (NOVO)
mouse_event _
MOUSEEVENTF_ABSOLUTE + _
MOUSEEVENTF_MOVE, _

pts.X, pts.Y, 0, 0
End If
End Sub


ESPERO TER AJUDADO + UM POUCO.