VB6防破解之锁定鼠标范围反调试源码分享

 Private Type RECT

          left   As Long

          top   As Long

          right   As Long

          bottom   As Long

  End Type

  Private Type POINT

          x   As Long

          y   As Long

  End Type

  Private Declare Sub ClipCursor Lib "user32" (lpRect As Any)

  Private Declare Sub GetClientRect Lib "user32" (ByVal hWnd As Long, lpRect As RECT)

  Private Declare Sub ClientToScreen Lib "user32" (ByVal hWnd As Long, lpPoint As POINT)

  Private Declare Sub OffsetRect Lib "user32" (lpRect As RECT, ByVal x As Long, ByVal y As Long)

Private Sub Command1_Click()

If Val(Text1.Text) = 123456 Then

MsgBox "恭喜你,注册成功", , "恭喜": End

Else

MsgBox "注册码错误哦", , "错误"

End If

End Sub

......