تخفيض مستوى الأمان برمجيا

[صالح حمادي]

السلام عليكم و رحمة الله وبركاته.

لقد قرأت الكثير من المواضيع في منتدانا هذا و غيره من المنتديات الأخرى عن طريقة تخفيض مستوى الأمان برمجيا عن طريق الرجستري.

لكن بقى لدي استفسار كي يشتغل الكود البرمجي و هو في الواقع معطل إذا لم نخفض مستوى الأمان بالطريقة العادية؟؟؟؟. و قد جربت بعضها و لكنها لا تعمل كما توقعت.

أم أن هناك طريقة أخرى تقوم بذلك.

الرجاء من جميع الإخوة من لديه فكرة حتى و لو بسيطة يشاركنا بها لربما توصلنا إلى فهم الموضوع و كي تعم الفائدة.

[الساحة البريدية]

الكود يقوم بتعديل الريجستري

 

يعني اول ما تشغل برنامجك تطلع لك رسالة تحذير الامان ، واذا ضغطت موافق يفتح نموذجك ويبدأالكود بتعديل الريجستري ، 

واذا قفلت البرنامج وشغلته مرة أخرى لا تظهر لك رسائل امان

 

هذا الموديول :

Option Compare Database
Option Explicit
'ÇÎÝÇÁ ÔÇÔÉ ÇáÇßÓÓ'
Private Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long
Dim dwReturn As Long
Public Const acHide = "Hide"
Public Const acShow = "Show"
Public Const acMinimized = "Minimize"

Const SW_HIDE = 0
Const SW_SHOWNORMAL = 1
Const SW_SHOWMINIMIZED = 2
Const SW_SHOWMAXIMIZED = 3

Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, _
     ByVal nCmdShow As Long) As Long

Public Function fAccessWindow(Optional Procedure As String, Optional SwitchStatus As Boolean, Optional StatusCheck As Boolean) As Boolean
If Procedure = "Hide" Then
    dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE)
End If
If Procedure = "Show" Then
    dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED)
End If
If Procedure = "Minimize" Then
    dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMINIMIZED)
End If
If SwitchStatus = True Then
    If IsWindowVisible(hWndAccessApp) = 1 Then
        dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE)
    Else
        dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED)
    End If
End If
If StatusCheck = True Then
    If IsWindowVisible(hWndAccessApp) = 0 Then
        fAccessWindow = False
    End If
    If IsWindowVisible(hWndAccessApp) = 1 Then
        fAccessWindow = True
    End If
End If
End Function

وفي حدث عند فتح النموذج :

 

fAccessWindow acHide, False, False

 

وتنشئ موديول جديد تحت اي اسم :

Global Const NM_HIDE = 0
Private Declare Function apiShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Sub NHidwindow()
Dim NMC  As Long
NMC = apiShowWindow(hWndAccessApp, NM_HIDE)
' Regards Naser Masarwa

 

[صالح حمادي]

ألف شكر أخي أنا غير الآن فهمت الموضوع. جزاك الله خير الجزاء