Aldeia RPG

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

Suporte no desenvolvimento de jogos


2 participantes

    Block Ctrl+v

    thales12
    thales12
    Membro Ativo
    Membro Ativo


    Mensagens : 320
    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)

    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

    irintomaz gosta desta mensagem

    irintomaz
    irintomaz
    Novato
    Novato


    Mensagens : 13
    Créditos : 0

    Block Ctrl+v Empty Re: Block Ctrl+v

    Mensagem por irintomaz Qui Set 15, 2022 9:01 pm

    Bom

      Data/hora atual: Sex Set 30, 2022 5:16 pm