مشروع برنامج ادارة مقهى انترنت مطلوب مختبرين

السلام عليكم

هل يمكننى الحصول على نسخه للتجربه

khabini@gawab.com

غريبة جدا عزيزي الجبوري

جرب تشيل البرنامج و تعيد تركيبه مرة اخرى علما انه يقوم بوضع ايقونة على سطح المكتب

عزيزي خبيني

قم بزيارة الموقع التالي

زر هذه الصفحة

و قم بتحميل البرنامج منها .

السلام عليكم

أسف جدا لم تظهر الأيقونة على سطح المكتب طيب أين أجدها داخل مجلد البرنامج

ألف شكر أخي محمود

مجهود رائع وتشكر عليه

انا نزلت البرنامج وهجربه وهقلك راي

مايقابل اكواد الاخ احمد غريب في الفيجوال بيسك

Hide Tasl Bar

'Declarations
Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Public Const SW_HIDE = 0
Public Const SW_SHOW = 5

Private Sub TaskBar(ByVal Show As Boolean)

Dim TaskBarHwnd As Long

    
    TaskBarHwnd = FindWindow("Shell_TrayWnd", "")
    If TaskBarHwnd <> 0 Then
        Select Case Show
            Case True
                ShowWindow TaskBarHwnd, SW_SHOW
            Case False
                ShowWindow TaskBarHwnd, SW_HIDE
        End Select
    End If
        
    
End Sub

Start Button Enabled

'Declarations
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Const GW_CHILD = 5

Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Public Const SW_HIDE = 0
Public Const SW_SHOW = 5

Public Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long

Public Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long

Public Declare Function EnableWindow Lib "user32" (ByVal hwnd As Long, ByVal fEnable As Long) As Long

Public Sub StartButtonEnabled(ByVal Enabled As Boolean)

Dim TaskBarHwnd As Long
Dim ChildWindow As Long
Dim ClassName As Long

    TaskBarHwnd = FindWindow("Shell_TrayWnd", "")
    ChildWindow = GetWindow(TaskBarHwnd, GW_CHILD)
    ClassName = GetClassName(ChildWindow, "", 1000)
    
    If ChildWindow <> 0 Then
        If ClassName > 0 Then
            EnableWindow ChildWindow, Enabled
        End If
    End If

End Sub

Start Button Visible

'Declarations
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Const GW_CHILD = 5

Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Public Const SW_HIDE = 0
Public Const SW_SHOW = 5

Public Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long

Public Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long

Public Declare Function EnableWindow Lib "user32" (ByVal hwnd As Long, ByVal fEnable As Long) As Long

Public Sub StartButtonShow(ByVal Visible As Boolean)

Dim TaskBarHwnd As Long
Dim ChildWindow As Long
Dim ClassName As Long

    TaskBarHwnd = FindWindow("Shell_TrayWnd", "")
    ChildWindow = GetWindow(TaskBarHwnd, GW_CHILD)
    ClassName = GetClassName(ChildWindow, "", 1000)
    
    If ChildWindow <> 0 Then
        If ClassName > 0 Then
            Select Case Visible
                Case True
                    ShowWindow ChildWindow, SW_SHOW
                Case False
                    ShowWindow ChildWindow, SW_HIDE
            End Select
        End If
    End If

End Sub

لاخفاء برنامجك من قائمة Ctrl + Alt + Delete

في فيجوال بيسك لديك الكود التالي

App.TaskVisible =False

ولكن البرنامج سوف يظهر في ال Process لذلك عليك اخفار ال Task Manager كاملة وذلك باستخدام مفتاج محرر التسجيل في النظام

للاخفاء

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System]
"DisableTaskMgr"=dword:00000001

للاظهار

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System]
"DisableTaskMgr"=dword:00000000

وفي حال خفت من ان يقوم المستخدم من تعديل مفتاح النظام يمكنك ان توقف تشغيل محرر النظام وسوف اذكره في مرة اخرى ام الطريقة الاخرى لايقاف Task Manager هي بالبحث عن النافذة وتدميرها بالكود التالي

'Declarations
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Const GW_CHILD = 5

Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Public Const SW_HIDE = 0
Public Const SW_SHOW = 5

Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

وقم بوضع اداة مؤقت واجعلها تستدعي الاجراء التالي فمجرد ما تظهر شاشة ال Task Manager سوف يتم تدميرها

Private Sub TerminateTaskManager()

Dim TaskManagerHwnd As Long
        
    Do
        DoEvents
        TaskManagerHwnd = FindWindow("#32770", vbNullString)
        ShowWindow TaskManagerHwnd, SW_HIDE
    Loop Until TaskManagerHwnd <> 0
    
End Sub

اما اذا اردت ان توقف جميع الاحداث التي سوف تستقبل ( فارة لوحة مفاتيح )

يمكنك استخدام الكود التالي

'Declarations
Public Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long

انتبه جيدا لهذا الكود فانا قمت بتصميمه تحت مؤقت بتثبيت قيمة Interval على 5000 اي خمس ثواني وقمت بوضع الكود التالي تحته لكي يقفل كل خمس ثواني ويعود للعمل بعد خمس ثواني وان لم تستخدم هذه الطريقة وقمت بايقاف الادخال فلن تستطيع عمل اي شيء سوى عمل Restart للجهاز

Private Sub Timer1_Timer()

Static a As Boolean
    
    a = Not a
    BlockInput a
    
End Sub

وهذا يعني ان عملية ايقاف اي مدخلات يتم بالكود

BlockInput true

ولا عادة تستخدم

BlockInput false

ملاحظة مع اني متأكد من عمل جميع الاكواد على Win98 وايضا على WinXP لابد من ان تضيف روتين لبرنامجك حتى تعرف ماهو نظام التشغيل حتى تتأكد من تنفيذ بعض الاشياء فليست كل API تعمل على winXP مثلا واليك هذا الروتين

'Declarations

Public Enum EnumWindowsVersion
    wvWindows32 = 0
    wvWindows9x = 1
    wvWindowsNT = 2
End Enum
Public Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long
Public Type OSVERSIONINFO
    dwOSVersionInfoSize As Long
    dwMajorVersion As Long
    dwMinorVersion As Long
    dwBuildNumber As Long
    dwPlatformId As Long
    szCSDVersion As String * 128
End Type
Public m_OSInfo As OSVERSIONINFO

قم بوضع زر امر واستدعي هذا الاجراء لتحصل على معلومات نظام التشغيل لديك

Private Sub GetWindowsVersion()
      
Dim Result As Long
Dim Version As String

    m_OSInfo.dwOSVersionInfoSize = Len(m_OSInfo)

    Result = GetVersionEx(m_OSInfo)
    
    If Result = 0 Then
        Err.Raise vbObjectError + 100, "GetVersionEx API", "Error Getting Version Information"
    End If

    Version = "Build: " & m_OSInfo.dwBuildNumber & vbCrLf
    Version = Version & "Major: " & m_OSInfo.dwMajorVersion & vbCrLf
    Version = Version & "Minor: " & m_OSInfo.dwMinorVersion & vbCrLf
    
    Select Case m_OSInfo.dwPlatformId
        Case 0
            Version = Version & "Platform: " & "Windows 32"
        Case 1
            Version = Version & "Platform: " & "Windows 9x"
        Case 2
            Version = Version & "Platform: " & "Windows NT"
    End Select
    
    Version = Version & vbCrLf & "CSD Version: " & m_OSInfo.szCSDVersion

    MsgBox Version
    
End Sub

اعزائي

يمكن اخفاء اي تطبيق في الويندوز 98 بسهولة بنداء API في غاية البسطاة

و لطكن مايطكروسوف قامت باقفال هذه الاخاصية لمنع انتشار الفيروسات

لذا يتوجب عليك اولا منع التطبيق من العمل في التاسك بار و يمكن عمل ذلك باختيار الفورم ثم اختيار

visible in task bar

و تعيين الخاصية الى

false

ثم عمل برنامج ليقوم بايقاف التاسك بار اما بالريجستري

او بالطريقة التي اعتمدها بتكوين تايمر ليقوم بالبحث عن واجهة التطبيق و اغلاقها كل 500 ميللي ثانية

و يمكن العثور على اسماء الواجاهات بالذهاب الى enterprise tools

و اختيار spy ++ ثم اختيار search windows

و اختار الفورم الذي تريد اقفاله بسهم مشؤر التنشين من البرنامج الى الواجهة التي تريد اغلاقها .

هل تريدون المزي ؟

اليكم هذا الروتين الخاص بالتحكم بمفاتيح التسجيل من داخل برنامج فيجوال بيسك وعليك ان تضيفه كامل داخل (Module) او في حال اردت ان يكون الامر احترافي اضفه داخل Class

على العموم هذا الروتين به اجرائات الحفظ في مفاتيح النظام ك (DWORD) او (STRING) بعد ان تضيفوه سوف تجدون بالرد التالي الكثير من الخصائص التي يمكنك التحكم بها في ويندوز بشكل كامل

Option Explicit

Public Const HKEY_CURRENT_USER = &H80000001
Public Const REG_SZ = 1
Public Const REG_DWORD = 4

Public Declare Function RegCloseKey Lib "advapi32.dll" (ByVal Hkey As Long) As Long

Public Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal Hkey As Long, ByVal lpSubKey As String, phkResult As Long) As Long

Public Declare Function RegDeleteKey Lib "advapi32.dll" Alias "RegDeleteKeyA" (ByVal Hkey As Long, ByVal lpSubKey As String) As Long

Public Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal Hkey As Long, ByVal lpValueName As String) As Long

Public Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal Hkey As Long, ByVal lpSubKey As String, phkResult As Long) As Long

Public Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal Hkey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long

Public Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal Hkey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long

Public Enum OptionEnabled
    Disable = 1
    Enable = 0
    GetValue = 2
End Enum

Public Function GetString(Hkey As Long, strPath As String, strValue As String)

Dim keyhand As Long
Dim datatype As Long
Dim lResult As Long
Dim strBuf As String
Dim lDataBufSize As Long
Dim intZeroPos As Integer

    Result = RegOpenKey(Hkey, strPath, keyhand)
    lResult = RegQueryValueEx(keyhand, strValue, 0&, lValueType, ByVal 0&, lDataBufSize)
    If lValueType = REG_SZ Then
        strBuf = String(lDataBufSize, " ")
        lResult = RegQueryValueEx(keyhand, strValue, 0&, 0&, ByVal strBuf, lDataBufSize)
        If lResult = ERROR_SUCCESS Then
            intZeroPos = InStr(strBuf, Chr$(0))
            If intZeroPos > 0 Then
                GetString = Left$(strBuf, intZeroPos - 1)
            Else
                GetString = strBuf
            End If
        End If
    End If
    
End Function

Public Sub SaveString(Hkey As Long, strPath As String, strValue As String, strdata As String)
    
Dim keyhand As Long
Dim Result As Long

    Result = RegCreateKey(Hkey, strPath, keyhand)
    Result = RegSetValueEx(keyhand, strValue, 0, REG_SZ, ByVal strdata, Len(strdata))
    Result = RegCloseKey(keyhand)
    
End Sub

Function GetDword(ByVal Hkey As Long, ByVal strPath As String, ByVal strValueName As String) As Long

Dim lResult As Long
Dim lValueType As Long
Dim lBuf As Long
Dim lDataBufSize As Long
Dim Result As Long
Dim keyhand As Long

    Result = RegOpenKey(Hkey, strPath, keyhand)
    lDataBufSize = 4
    lResult = RegQueryValueEx(keyhand, strValueName, 0&, lValueType, lBuf, lDataBufSize)
    
    If lResult = 0 Then
        If lValueType = REG_DWORD Then
            GetDword = lBuf
        End If
    End If
    
    Result = RegCloseKey(keyhand)
    
End Function

Function SaveDword(ByVal Hkey As Long, ByVal strPath As String, ByVal strValueName As String, ByVal lData As Long)

Dim lResult As Long
Dim keyhand As Long
Dim Result As Long

    Result = RegCreateKey(Hkey, strPath, keyhand)
    lResult = RegSetValueEx(keyhand, strValueName, 0&, REG_DWORD, lData, 4)
    Result = RegCloseKey(keyhand)
    
End Function

الان في هذا الرد وبناء على الروتين السابق للتحكم في مفاتيح النظام اليكم هذه الاجرائات التي تتيج لكم الكثير من الخصائص

ملاحظة مهمة كل هذه المفاتيح لن تتم الا بعد ان يتم اعادة تشغيل الجهاز لترى ما الذي اختفى وماهو الباقي لديك

لاخفاء واظهار لوحة التحكم

Public Function ControlPanel(ByVal Enabled As OptionEnabled) As Boolean

    Select Case Enabled
    
        Case OptionEnabled.Disable
        
            Call SaveDword(HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoControlPanel", 1)
            Call SaveDword(HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoSetFolders", 1)
            
        Case OptionEnabled.Enable
        
            Call SaveDword(HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoControlPanel", 0)
            Call SaveDword(HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoSetFolders", 0)
            
    End Select
    
    ControlPanel = GetDword(HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoControlPanel")

End Function

لاخفاء واظهار مربع خصائص الشاشة

Public Function DisplayProperties(ByVal Enabled As OptionEnabled) As Boolean
    
    Select Case Enabled
    
        Case OptionEnabled.Disable
        
            Call SaveDword(HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\System", "NoDispCpl", 1)
            
        Case OptionEnabled.Enable
        
            Call SaveDword(HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\System", "NoDispCpl", 0)
            
    End Select
    
    DisplayProperties = GetDword(HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\System", "NoDispCpl")

End Function

لاخفاء واظهار مربع البحث

Public Function FindDialog(ByVal Enabled As OptionEnabled) As Boolean

    Select Case Enabled
    
        Case OptionEnabled.Disable
        
            Call SaveDword(HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoFind", 1)
            
        Case OptionEnabled.Enable
        
            Call SaveDword(HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoFind", 0)
            
    End Select
    
    FindDialog = GetDword(HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoFind")

End Function

لاخفاء واظهار ايقونة شبكة الاتصال (جوار شبكة الاتصال)

Public Function NetworkNeighborHood(ByVal Enabled As OptionEnabled) As Boolean

    Select Case Enabled
    
        Case OptionEnabled.Disable
        
            Call SaveDword(HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoNetHood", 1)
            
        Case OptionEnabled.Enable
        
            Call SaveDword(HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoNetHood", 0)
            
    End Select
    
    NetworkNeighborHood = GetDword(HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoNetHood")

End Function

لاخفاء واظهار قائمة اخر الملفات المفتوحة

Public Function RecentDocumentsMenu(ByVal Enabled As OptionEnabled) As Boolean

    Select Case Enabled
    
        Case OptionEnabled.Disable
        
            Call SaveDword(HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoRecentDocsMenu", 1)
            
        Case OptionEnabled.Enable
        
            Call SaveDword(HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoRecentDocsMenu", 0)
            
    End Select
    
    RecentDocumentsMenu = GetDword(HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoRecentDocsMenu")

End Function

لتمكين او الغاء التمكين لاداة محرر سجل النظام

Public Function RegistryTools(ByVal Enabled As OptionEnabled) As Boolean
    
    Select Case Enabled
    
        Case OptionEnabled.Disable
        
            Call SaveDword(HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableRegistryTools", 1)
            
        Case OptionEnabled.Enable
        
            Call SaveDword(HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableRegistryTools", 0)
            
    End Select
    
    RegistryTools = GetDword(HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableRegistryTools")
    
End Function

لاخفاء واظهار مربع الحوار تشغيل (RUN)

Public Function RunDialog(ByVal Enabled As OptionEnabled) As Boolean

    Select Case Enabled
    
        Case OptionEnabled.Disable
        
            Call SaveDword(HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoRun", 1)
            
        Case OptionEnabled.Enable
        
            Call SaveDword(HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoRun", 0)
            
    End Select
    
    RunDialog = GetDword(HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoRun")

End Function

لاخفاء او اظهار شريط المهام او مايسمى (Task Bar)

Public Function TaskBar(ByVal Enabled As OptionEnabled) As Boolean

    Select Case Enabled
    
        Case OptionEnabled.Disable
        
            Call SaveDword(HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoSetTaskBar", 1)
            
        Case OptionEnabled.Enable
        
            Call SaveDword(HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoSetTaskBar", 0)
            
    End Select
    
    TaskBar = GetDword(HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoSetTaskBar")

End Function

أعتقد ان هذا يكفي لليوم والباقي في حلقات اخرى

عزيزي الجبوري و الشباب

البرنامج المدير هناك خطأ في التركيب بتاعه

ارجو الانتظار لغد كي اقوم باصلاح ملف التركيب

المشكلة في برنامج التركيب و ليس في البرنامج الاساسي

و شكرا .

السلام عليكم

أشكر الكل على المساهمة وان كانت متأخرة

وفقكم الله لما يحبه ويرضاه

السلام عليكم

انا صاحب مقهى انترنت

ومتلهف جدا على البرنامج لكن للاسف ما اجيد اللغه الانجليزيه

يا ليت يكون البرنامج معرب

كمان حاولت انزل البرنامج للاسف ما قدرت

يا ليت يكون هناك شرح كامل وسهل

عن كيفيه التنصيب على السيرفر والاجهزه وكيف التعامل معه

شاكرا لكم جهودكم وان شاء الله اكون من المستفيدين لبنامجكم المجاني

تقبلو تحياتي

رواكن

السلام عليكم

عمل جميل ولكن هل ممكن ارفاق ملف الكود

وبالنسبه لبرنامج الاداره فهو غير موجود في الرابط

وشكرا

بسم الله الرحمن الرحيم

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

رسالة خاصة الى اخي busbar

اخي الحبيب ان العمل الذي قمت به عمل ممتاز ويستحق التقدير فاقول لك عليك الاستمرار ونحن معك . ولكن اخي الحبيب busbar اريد ان اطلب منك معروفا بعد اذنك

+ اريد طلب منك كود الربط الذي استخدمته في العداد بين الاجهزة الاثنين ولك جزيل الشكر

وشكرا

computer_xpp@hotmail.com

مشكورين جميعا

مشروع رائع جدا

وااله يوفقكم

مشروع يستحق الدعم من الكل

مشكور اخي

مشكوووووور اخوي الله يعطيك العافيه

انا عندي مشروع التخرج نظام مقهى انترنت بلغة الفيجوال بيسك دوت نت

وماني عارف كيف ابدأ فلو تقدر تساعدني بكون ممنون لك

الله يعطيك الف عافيه

اخووووك عبووود

اليك الرابط التالى و هو خاص ببرنامج لادارة مقاهى الانترنت و به شرح كامل لخصائص البرنامج و معه ملف مرفق

من هنا

إلى الكل وإلى الاخ محمد البدوي

يمكن إخفاء البرنامج من البروسيس (العمليات)

وهناك أداة وضعها الأخ الغالي المزمجر في المنتدى وهي من موقع Planet-Source-Code

على الرابط : /index.php?showtopic=121123

وأتمنى معرفة الكود الصحيح لذلك ،لأن الأخ محمد سيد حفظه الله ورعاه لم يخبرنا بما عنده خوفاً من المخربين

5- عندما يفتح مدير المقهى الجهاز فانه يقوم كتابة الزمن المطلوب فتحه بالدقائق طبعا سيتم تطوير الموضوع ليكتب بالساعات .

وايضا عندما يفتح مدير المقهى الجهاز تعطيه مكانية اخرى وهي ترك مفتوح دون زمن يعني زمن مفتوح غير محدد الى ان يغلقه المدير