跳到主要内容

VB6自动检测键盘是否在调试

·

1、调用声明

1'自动检测键盘是否在调试
2Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

2、设置时长

1Private Sub Form_Load()
2Timer1.Interval = 1000
3End Sub

3、时钟控件

 1Private Sub Timer1_Timer()
 2If GetAsyncKeyState(vbKeyF2) Then
 3MsgBox "您按了F2键,怀疑您在用OD设置断点", 64, "WebSafe Scan"
 4End
 5End If
 6If GetAsyncKeyState(vbKeyF7) Then
 7MsgBox "您按了F7键,怀疑您在用OD单步步入", 64, "WebSafe Scan"
 8End
 9End If
10If GetAsyncKeyState(vbKeyF8) Then
11MsgBox "您按了F8键,怀疑您在用OD单步步过", 64, "WebSafe Scan"
12End
13End If
14If GetAsyncKeyState(vbKeyF9) Then
15MsgBox "您按了F9键,怀疑您在用OD调试本程序", 64, "WebSafe Scan"
16End
17End If
18If GetAsyncKeyState(vbKeyF12) Then
19MsgBox "您按了F12键,怀疑您在用OD调试本程序", , "警告"
20End
21End If
22End Sub
白日映照满天星
作者
白日映照满天星
订阅我频道让你站在上帝角度观察视野! QQ:3925993 有尝解决技术问题【备注你的问题】 🐑

阅读量:评论:
赞赏码图