Isto é uma pré-visualização de um tema em Hitskin.com
Instalar o tema • Voltar para a ficha do tema
Block Ctrl+v
2 participantes
Página 1 de 1
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:
na Sub Form_load() da frm add:
na Sub Form_MouseMove da frm add:
na frm add:
Crie um Modulo chamado modBlockCopy e add:
Observações:
pode ser melhorado e aprimorado.
Créditos:
Thales12 Tutorial
akhileshbc Sistema
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 !
Minha Sign:
Minha Sign:
Nando Moura gosta desta mensagem
Nando Moura- Novato
- Mensagens : 20
Créditos : 1
Ficha do personagem
Nível: 1
Experiência:
(0/0)
Vida:
(30/30)
Tópicos semelhantes
» Sistema de VIP Por Switchs Para NP ( Qualquer Versão incluindo 4.9 ) e NPM e se quizer para Off
» Sistema de Block Criação de Mais De Uma Conta
» alguem poderia me ajudar a por visuais de atk quando aperta ctrl
» Text Block - Bloco De Notas - V. 0.1
» [E.O 2.0] - [Add-On]: Slide-Block para Npc-Objeto(v1.1)
» Sistema de Block Criação de Mais De Uma Conta
» alguem poderia me ajudar a por visuais de atk quando aperta ctrl
» Text Block - Bloco De Notas - V. 0.1
» [E.O 2.0] - [Add-On]: Slide-Block para Npc-Objeto(v1.1)
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos
|
|