Block Ctrl+v Hitskin_logo Hitskin.com

Isto é uma pré-visualização de um tema em Hitskin.com
Instalar o temaVoltar para a ficha do tema

Aldeia RPG
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Block Ctrl+v

2 participantes

Ir para baixo

Block Ctrl+v Empty Block Ctrl+v

Mensagem por thales12 Qua Set 07, 2022 6:19 pm

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

_________________
Meu fã ? Meu Amigo ? Entao Use !

Block Ctrl+v Thalesfan
Block Ctrl+v Mv0yg8

Minha Sign:

Block Ctrl+v Zkqt5e
thales12
thales12
Membro de Honra
Membro de Honra

Mensagens : 322
Créditos : 108

Ficha do personagem
Nível: 1
Experiência:
Block Ctrl+v Left_bar_bleue0/0Block Ctrl+v Empty_bar_bleue  (0/0)
Vida:
Block Ctrl+v Left_bar_bleue30/30Block Ctrl+v Empty_bar_bleue  (30/30)

http://www.rdmgames.tk

Nando Moura gosta desta mensagem

Ir para o topo Ir para baixo

Block Ctrl+v Empty Re: Block Ctrl+v

Mensagem por Nando Moura Qui Set 15, 2022 9:01 pm

Bom
Nando Moura
Nando Moura
Novato
Novato

Mensagens : 20
Créditos : 1

Ficha do personagem
Nível: 1
Experiência:
Block Ctrl+v Left_bar_bleue0/0Block Ctrl+v Empty_bar_bleue  (0/0)
Vida:
Block Ctrl+v Left_bar_bleue30/30Block Ctrl+v Empty_bar_bleue  (30/30)

Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

 
Permissões neste sub-fórum
Não podes responder a tópicos