Сабжь + а какие ещё клавные команды есть? и как их отключить? :-) (не для вируса. просто для интересу)

orunbek, а поконкретней? :D

куку у когонить есть свежая идейка??

всё нашёл код. тока он отключает всю клаву ну кто сечёт и знает кейкод контрола альта и т.п. может их отключить

Dim Keyb As Boolean

Private Sub Command1_Click()
Keyb = Not Keyb
Text1.SetFocus
End Sub

Private Sub Command2_Click()
Keyb = True
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If Keyb Then
Else
KeyCode = 0
End If
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
If Keyb Then
Else
KeyAscii = 0
End If
End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
If Keyb Then
Else
KeyCode = 0
End If
End Sub

Private Sub Form_Load()
Keyb = True
End Sub



тему мона закрывать

а у меня работает

так люди нью проблем. перестала работать кейкод = ноль. привожу полный текст проги. что не так


Const LWA_COLORKEY = &H1
Const LWA_ALPHA = &H2
Const GWL_EXSTYLE = (-20)
Const WS_EX_LAYERED = &H80000
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
KeyCode = 0
Shift = 0
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
KeyAscii = 0
End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
KeyCode = 0
Shift = 0
End Sub

Private Sub Form_Load()
Me.Width = Screen.Width
Me.Height = Screen.Height
Dim Ret As Long
Dim Trn As Byte
Ret = GetWindowLong(Me.hWnd, GWL_EXSTYLE)
Ret = Ret Or WS_EX_LAYERED
SetWindowLong Me.hWnd, GWL_EXSTYLE, Ret
Trn = 1
SetLayeredWindowAttributes Me.hWnd, 0, Trn, LWA_ALPHA
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Button = 0
Shift = 0
End Sub

всё равно котрол альт дилит и альт ф4 работает. может есть спецкод

например

кста спс за допинфу. а я думал - что с помощью ВАСИКА можно вырубить всё что угодно простеньким(иногда и не совсем) образом

лана, тадысь придёца ваще кейборд вырубить