الى السادة المشرفين الاداريين ومشرفي قسم الأكسس

برجاء الأستاذة / زهرة   متابعة الموضوع

اخي الفاضل

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

عندما تقوم بتغيير او محاولة تغيير بريدك الإلكتروني فإنه يتم ايقاف حسابك في بعض الأحيان

وهذه الإجراءات واعادة معرفك السابق الى ما كان عليه من اختصاص المراقبين وليس من اختصاص المشرفين

حاول ان تبعث رساله للأستاذ محمد فؤاد ليقوم بإعادة حسابك

بالتوفيق

بارك الله فيكم على اهتمامكم بمشكلتي .. للعلم فقط اني لم اقم بمحاولة تغيير اي شيء على الإطلاق وانا على نفس حسابي منذ سنة 2005 وان المشكلة قد حدثت فجأة بدون أي مقدمات وقد راسلت الأخوة الإداريين لكني لم أتلقى أي جواب وإن شاء الله سأراسل الأخ محمد فؤاد عسى ان يجد لي حلاً .. للعلم انا بصدد نشر برنامجي بشكل مجاني كهدية لهذا المنتدى لكن للأسف ظهرت هذه المشكلة العرضية 

قمت بمراسلة الأخ 

أتمنى ان تحل هذه المسألة على يده إن شاء الله  

الحل والمفتاح بيد زهرة

المسألة ياخوي اظهر من الشمس

ومسألة محمد فؤاد تركي  تصريفة

انا مثلك تم ايقاف عضويتي ظلما ومن دون سبب او مقدمات لكني ازيد عليك ان معلمتي  زهرة سطت على عملي ( اداة تخفيض الامان ) ونسبتها الى نفسها دون الاشارة الى صاحب الفكرة ،  مع  اني راسلتها على الخاص  ولكنها لم ترد

انظر هنا وانظر لمعرفي  /index.php/topic/245992-%D8%A7%D8%AF%D8%A7%D8%A9-%D8%AA%D9%86%D9%81%D9%8A%D8%B0%D9%8A%D8%A9-%D8%AA%D9%82%D9%88%D9%85-%D8%A8%D8%AA%D8%AE%D9%81%D9%8A%D8%B6-%D8%A3%D9%85%D8%A7%D9%86-%D8%AC%D9%85%D9%8A%D8%B9-%D8%A7%D8%B5%D8%AF%D8%A7%D8%B1%D8%A7%D8%AA-%D8%A3%D9%83%D8%B3%D8%B3-2/?hl=%2B+%2B2007+%2B2010#entry1219142

لا يا ابو ياسر مابيصير ادخلنا في متاهات بعيدة عن صلب الموضوع .. على العموم الأخت زهرة استاذة قديرة وذو أخلاق عالية ورفيعة ولا ادعو لها إلا بكل خير والله يوفقها دنيا وآخرة 

*ابو ياسر* كتب:

الحل والمفتاح بيد زهرة

المسألة ياخوي اظهر من الشمس

ومسألة محمد فؤاد تركي  تصريفة

انا مثلك تم ايقاف عضويتي ظلما ومن دون سبب او مقدمات لكني ازيد عليك ان معلمتي  زهرة سطت على عملي ( اداة تخفيض الامان ) ونسبتها الى نفسها دون الاشارة الى صاحب الفكرة ،  مع  اني راسلتها على الخاص  ولكنها لم ترد

انظر هنا وانظر لمعرفي  /index.php/topic/245992-%D8%A7%D8%AF%D8%A7%D8%A9-%D8%AA%D9%86%D9%81%D9%8A%D8%B0%D9%8A%D8%A9-%D8%AA%D9%82%D9%88%D9%85-%D8%A8%D8%AA%D8%AE%D9%81%D9%8A%D8%B6-%D8%A3%D9%85%D8%A7%D9%86-%D8%AC%D9%85%D9%8A%D8%B9-%D8%A7%D8%B5%D8%AF%D8%A7%D8%B1%D8%A7%D8%AA-%D8%A3%D9%83%D8%B3%D8%B3-2/?hl=%2B+%2B2007+%2B2010#entry1219142

Option Compare Database
Option Explicit
 
Enum RegHive
HKEY_CLASSES_ROOT = &H80000000
HK_CR = &H80000000
HKEY_CURRENT_USER = &H80000001
HK_CU = &H80000001
HKEY_LOCAL_MACHINE = &H80000002
HK_LM = &H80000002
HKEY_USERS = &H80000003
HK_US = &H80000003
HKEY_CURRENT_CONFIG = &H80000005
HK_CC = &H80000005
HKEY_DYN_DATA = &H80000006
HK_DD = &H80000006
End Enum
 
Enum RegType
REG_SZ = 1
REG_BINARY = 3
REG_DWORD = 4
End Enum
 
Public Const ERROR_SUCCESS = 0&
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 Declare Function RegEnumKey Lib "advapi32.dll" Alias "RegEnumKeyA" (ByVal hKey As Long, ByVal dwIndex As Long, ByVal lpName As String, ByVal cbName As Long) As Long
Public Function CreateRegKey(hKey As RegHive, strPath As String)
Dim hCurKey As Long
Dim lRegResult As Long
lRegResult = RegCreateKey(hKey, strPath, hCurKey)
If lRegResult <> ERROR_SUCCESS Then
'there is a problem
End If
lRegResult = RegCloseKey(hCurKey)
End Function
 
Public Function SaveRegLong(ByVal hKey As RegHive, ByVal strPath As String, ByVal strValue As String, ByVal lData As Long)
Dim hCurKey As Long
Dim lRegResult As Long
lRegResult = RegCreateKey(hKey, strPath, hCurKey)
lRegResult = RegSetValueEx(hCurKey, strValue, 0&, REG_DWORD, lData, 4)
If lRegResult <> ERROR_SUCCESS Then
End If
lRegResult = RegCloseKey(hCurKey)
End Function

 

Private Sub Form_Timer()
Dim Version As String
Dim strVer As String
Dim strValueM As String
Dim strValueU As String
Version = GetVersion()
If Version = "8.0" Then
strValueM = SaveRegLong(HKEY_LOCAL_MACHINE, "Software\Microsoft\Office\8.0\Access\Security", "Level", 1)
strValueU = SaveRegLong(HKEY_CURRENT_USER, "Software\Microsoft\Office\8.0\Access\Security", "Level", 1)
ElseIf Version = "9.0" Then
strValueM = SaveRegLong(HKEY_LOCAL_MACHINE, "Software\Microsoft\Office\9.0\Access\Security", "Level", 1)
strValueU = SaveRegLong(HKEY_CURRENT_USER, "Software\Microsoft\Office\9.0\Access\Security", "Level", 1)
ElseIf Version = "10.0" Then
strValueM = SaveRegLong(HKEY_LOCAL_MACHINE, "Software\Microsoft\Office\10.0\Access\Security", "Level", 1)
strValueU = SaveRegLong(HKEY_CURRENT_USER, "Software\Microsoft\Office\10.0\Access\Security", "Level", 1)
ElseIf Version = "11.0" Then
strValueM = SaveRegLong(HKEY_LOCAL_MACHINE, "Software\Microsoft\Office\11.0\Access\Security", "Level", 1)
strValueU = SaveRegLong(HKEY_CURRENT_USER, "Software\Microsoft\Office\11.0\Access\Security", "Level", 1)
ElseIf Version = "12.0" Then
strValueU = SaveRegLong(HKEY_CURRENT_USER, "Software\Microsoft\Office\12.0\Access\Security", "VBAWarnings", 1)
End If
DoCmd.Close
DoCmd.OpenForm "form"
End Sub

 

ثم اتيت انت بعد خمس سنوات من مشاركتنا لموضوع تخفيض الأمان ووضعت مشاركتك بتاريخ  2011 على هذا الرابط

 

اداة تنفيذية تقوم بتخفيض أمان جميع اصدارات أكسس 2003 2007 2010

تمت كتابته بواسطة أبو ياسر_* , 2011-07-26 07:59 PM

 

/index.php/topic/245992-%D8%A7%D8%AF%D8%A7%D8%A9-%D8%AA%D9%86%D9%81%D9%8A%D8%B0%D9%8A%D8%A9-%D8%AA%D9%82%D9%88%D9%85-%D8%A8%D8%AA%D8%AE%D9%81%D9%8A%D8%B6-%D8%A3%D9%85%D8%A7%D9%86-%D8%AC%D9%85%D9%8A%D8%B9-%D8%A7%D8%B5%D8%AF%D8%A7%D8%B1%D8%A7%D8%AA-%D8%A3%D9%83%D8%B3%D8%B3-2/

 

فبالله عليك كيف اسطو على فكرتك في عام 2011 وانا قد كتبت الموضوع بتاريخ 2007  اي قبل خمس سنوات من مشاركتك ولتعلم فقط انك كاذب في جميع ما تقول

 

وايضا لم تكتفي بذلك بل تماديت بأن وضعت ملفك او فكرتك كما تقول في جميع منتديات الأكسيس وانك انت صاحب الموضوع وهذه احدى مشاركتك في منتدى اوفسينا لنفس الموضوع

 

اداة تنفيذية تقوم بتخفيض أمان جميع اصدارات أكسس 2003 2007 2010

http://www.officena.net/ib/index.php?showtopic=37777

 

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

 

فهل قمنا بمناقشتك حول هذا الموضوع او طلبنا منك على اقل تقدير الإشارة الى موضوعنا المثبت في المنتدى منذ عام 2007 عندما قمت بوضع ملفك التنفيذي

 

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

 

3. الحقائق والرد على كذبك 

 

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

 

اقتباس

sabhha, on 27 يوليو 2011 - 12:14 PM, said:

اخي مالك : اشكرك على المرور وعلى هذه الهدية

اخي الفارس : انت الاستاذ ونبيل حقا

 

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

أما الاداة فيمكن عكس عملها ولكن السؤال متى ستعمل ؟ فلا بد ان يكون ذلك عند الخروج من البرنامج أو حتى فقدان التركيز

 

الاستاذ الكريم همام :

لم آت بجديد فهذا مما تعلمناه من هذا المنتدى فالأوامر أخذتها من دروس أختنا الكريمة زهرة ، واستخدمت الفيجوال بيسك للاسباب اعلاه

والآن لدي مشكلة مع الفيجول فلم استطع فتح المشاريع ، وسأضع الكود كاملا هنا إن شاء الله .

 

 

 

 

وهذا هو الكود الذي وضعته انت في المشاركة الخاصة بك ووضعته في ملف تنفبذي ومأخوذ حرفيا من مشاركتنا المثبته في المنتدى منذ عام 2007

 

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, 
 
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Enum RegHive
    HKEY_CLASSES_ROOT = &H80000000
    HK_CR = &H80000000
    HKEY_CURRENT_USER = &H80000001
    HK_CU = &H80000001
    HKEY_LOCAL_MACHINE = &H80000002
    HK_LM = &H80000002
    HKEY_USERS = &H80000003
    HK_US = &H80000003
    HKEY_CURRENT_CONFIG = &H80000005
    HK_CC = &H80000005
    HKEY_DYN_DATA = &H80000006
    HK_DD = &H80000006
End Enum
Enum RegType
    REG_SZ = 1
    REG_BINARY = 3
    REG_DWORD = 4
End Enum
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegDeleteKey Lib "advapi32.dll" Alias "RegDeleteKeyA" (ByVal hKey As Long, ByVal lpSubKey As String) As Long
Private Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As Long
Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private 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
Private 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
Private Declare Function RegEnumKey Lib "advapi32.dll" Alias "RegEnumKeyA" (ByVal hKey As Long, ByVal dwIndex As Long, ByVal lpName As String, ByVal cbName As Long) As 
 
Long
 
Private Function CreateRegKey(hKey As RegHive, strPath As String)
Dim hCurKey As Long
Dim lRegResult As Long
    lRegResult = RegCreateKey(hKey, strPath, hCurKey)
        If lRegResult <> ERROR_SUCCESS Then
            'there is a problem
        End If
   End Function
Private Function SaveRegLong(ByVal hKey As RegHive, ByVal strPath As String, ByVal strValue As String, ByVal lData As Long)
Dim hCurKey As Long
Dim lRegResult As Long
    lRegResult = RegCreateKey(hKey, strPath, hCurKey)
    lRegResult = RegSetValueEx(hCurKey, strValue, 0&, REG_DWORD, lData, 4)
    If lRegResult <> ERROR_SUCCESS Then
    End If
End Function
Private Sub Timer1_Timer()
Dim strVM As String
Dim strVS As String
On Error Resume Next
strVM = SaveRegLong(HKEY_LOCAL_MACHINE, "Software\Microsoft\Office\11.0\Access\Security", "Level", 1)
strVS = SaveRegLong(HKEY_CURRENT_USER, "Software\Microsoft\Office\11.0\Access\Security", "Level", 1)
strVS = SaveRegLong(HKEY_CURRENT_USER, "Software\Microsoft\Office\12.0\Access\Security", "VBAWarnings", 1)
strVS = SaveRegLong(HKEY_CURRENT_USER, "Software\Microsoft\Office\14.0\Access\Security", "VBAWarnings", 1)
Unload Me
End Sub

 

فهل من الممكن ان تخبرنا بارك الله بك من الذي تم السطو عليه منذ عام 2007  وقام بكتابة مشاركته في 2011 حتى تظهر بمظهر الضحية ليصدقك اعضاء المنتدى سحقا لك من جاهل غبي كاذب

 

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

 

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

 

اما قولك بأنني قد قمت بحذف معرف الأخ الكريم SANDANET  فوالله الذي لا إله إلا هو لا علاقة لي لا من قريب ولا من بعيد بهذا الموضوع وليس من اختصاص المشرفين في المنتدى

 

والأمر الآخر مالذي فعله الأستاذ SANDANET حتى يتم ايقاف معرفه فهو مشارك جيد ولم يخل بأي شيء في المنتدى ولكن توقف حسابه بدون سابق انذار فقد يكون ان الإدارة

 

قد قامت بتحديث قاعدة بيانات المنتدى او اي امر طرأ على المنتدى وللأستاذ SANDANET  كل الحق في استعادة حسابه وهذا الأمر بيد الإدارة فقط وقد ابلغته ان يراسل الإداري محمد فؤاد

 

لأستعادة حسابه ومعرفه الموقوف .

 

5. بالنسبة لقولك انك قمت بمراسلتي على الخاص حول موضوع تخفيض أمان الأكسيس فقد بحثت في جميع الرسائل الخاصة بي ولم اجد لك اي اثر 

 

ويحق لإدارة المنتدى التأكد من هذا الكلام بفتح رسائلي الخاصة والبحث عن رسائلك المزعومه لتعلم فقط ويعلم جميع اعضاء المنتدى انك اكبر كذاب على وجه الأرض

 

6. ختاما يقول المثل ( اذا لم تستحي فإصنع ما شئت )  فعندما يذهب الحياء من الشخص فإنه يفعل افعال واقوال يندى لها الجبين ويكون كل كلامه كذب وإفتراء على الأخرين بدون وجه حق

 

وهذا هو ديدنك واسلوبك المشمئز مخلوط برائحة الكذب .

 

 

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

 

 

بالتوفيق

مشكورة على كل ما تفضلت به

وانت معلمتي 

والاحالة عليك في مشاركتي من باب رد الفضل والجميل ليس الا

ولكن فكرة :

1- تخفيض امان اكسس من خارج اكسس فكرتي

2- واداة الفيجوال   ( وهي التي اتكلم عنها هنا ) فكرتي بلا منازع

حفظك الله ورعاك واصلح لك ذريتك وجزاك عنا وعن ما تقومين به خير الجزاء

أخوتي بالله صلوا على رسول الله أولاً .. بالنسبة للأستاذة القديرة زهرة المنتدى فبارك الله فيها على كل ماتقوم به مجهودات ويشهد الله ان الجميع يستفاد من خبرتها بشكل أو بآخر ولم نجد إلا كل الخير منها.. وقد أتت بدليل وأثبتت حجتها أما أنت يا أستاذ ابو ياسر فلا أجد لك أي حجة أو دليل قاطع تثبت به صحة كلامك .. واحب ان اذكر بأن أي مشاركة أو مساعدة الهدف الأول منها هو عمل خيري لوجه الله والله سبحانه وتعالى يقول {يَا أَيُّهَا الَّذِينَ آمَنُوا لا تُبْطِلُوا صَدَقَاتِكُمْ بِالْمَنِّ وَالْأَذَى كَالَّذِي يُنْفِقُ مَالَهُ رِئَاءَ النَّاسِ وَلا يُؤْمِنُ بِاللَّهِ وَالْيَوْمِ الآخِرِ ...}

AWSALI كتب:

 أما أنت يا أستاذ ابو ياسر فلا أجد لك أي حجة أو دليل قاطع تثبت به صحة كلامك 

الفرق بين تعديلي ومشاركتك دقيقة واحدة  :blink:

انظر الصورتين اعلاه  واالفترة الزمنية بينهما  سنة ونصف تقريبا

فقط لم اثر هذا الموضوع الا عتبا على اهل المنتدى  

لماذا تحجب المعرفات ؟ ما السبب ؟ وما هي الجناية التي اقترفناها ؟

*ابو ياسر* كتب:

مشكورة على كل ما تفضلت به

وانت معلمتي 

والاحالة عليك في مشاركتي من باب رد الفضل والجميل ليس الا

ولكن فكرة :

1- تخفيض امان اكسس من خارج اكسس فكرتي

2- واداة الفيجوال   ( وهي التي اتكلم عنها هنا ) فكرتي بلا منازع

حفظك الله ورعاك واصلح لك ذريتك وجزاك عنا وعن ما تقومين به خير الجزاء

يا أخي ابوياسر لنكون واقعيين قليلاً.. بالنسبة لي أنا كنت احد المهتمين بموضوع تخفيض الأمان برمجياً وبصراحة أول موضوع نزل بهذا الخصوص كان للأستاذة القديرة زهرة وحاولت تطبيقه حينها ..أما بالنسبة لموضوعك فهو برأيي تكملة لموضوع الأخت زهرة ليس إلا ..والصورة المرفقة هي اساس هذا الموضوع من وجهة نظري.. أما بالنسبة للمعرفات فقد تحجب من الإدارة لعدة اسباب لكن بالنسبة لمشكلتي فهي لم تكن مقصودة وإنما مشكلة عرضية 

*ابو ياسر* كتب:

الفرق بين تعديلي ومشاركتك دقيقة واحدة  :blink:

انظر الصورتين اعلاه  واالفترة الزمنية بينهما  سنة ونصف تقريبا

 

فقط لم اثر هذا الموضوع الا عتبا على اهل المنتدى  

لماذا تحجب المعرفات ؟ ما السبب ؟ وما هي الجناية التي اقترفناها ؟

ياسيدي الكريم

لا اعلم هل تؤمن بالله العظيم أم لا !!!!

لقد اقسمت لك بالله ثلاثا ان المشرفين ليس لهم اي علاقة بإيقاف معرفات الأعضاء 

وهذا من اختصاص الإدارة فقط اي من هم بمرتبة اداري او مراقب فقط فهم الذين لهم الصلاحية في ذلك

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

ادى الى فقدان العديد من الأعضاء معرفاتهم بدون اي قصد عن استعادة او تحديث قاعدة بيانات المنتدى .

اذا لديك اي مشكله في المعرف الخاص بك فحلها بيد الإداريين فقط وليس المشرفين 

بالتوفيق

أنا معك في مسألة حذف المعرفات يا أستاذتي الكريمة وهذا لايختلف عليه إثنان من ان الإداريين والمراقبين هم المسؤولون عن هذه الجزئية فقط وما يقال خلاف ذلك فهو من باب الجهل ليس إلا ,, تحياتي 

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

أتمنى من أستاذتنا زهرة عدم الرد

كما أرجو أيضا من أ/ ياسر مراعاة أن أ/ زهرة معلمتنا وأيضاً معلمته كما سبق وذكر بنفسه

ولو كان هناك عتاب أو سوء تفاهم فالأولى أن أحدث المعلم بيني وبينه على الخاص وليس على الملأ

وعن نفسي هذا ما أفعله حتى مع الزملاء

فأحد الزملاء راسلته على الخاص قبل أن أدخل على العام وأطلب منه الرد على موضوع قد كتبه وتركه

ولي فقط تعليق :

أنني في عام 1998 سويت برنامجاً بلغة سي++ في بيئة دوس بفكرة مبتكرة للغاية غير موجوده لا على مواقع ولا منتديات

وبعد سنوات تقريبا في عام 2004 ظهرت نفس الفكرة في برنامج انتشر انتشارا واسعاً على النت ويعرف باسطوانة Hiren

لم أتهم أحداً بسرقة فكرتي

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

واذا أخت كودا من المساعدة بموقع مايكروسوفت واستخدمته فهل تعتبرني سارقاً أو غشاشا

وفي النهاية :

أي أحد منا سواء أنا أو أنت أو استاذتنا زهرة  أو غيرنا

مالم يسجل برنامجه أو ما ابتكره كبراءة اختراع

فلا يتكلم

*ابو ياسر* كتب:

 

مع احترامي للجميع 

 

الكود موجود على الساحة من قبل عام 2001

وانما اضافت زهرة السطر الخاص بتعديل تسجيل اكسس

 

http://visualbasic.ittoolbox.com/groups/technical-functional/visualbasic-l/registry-editing-347281

 

http://read.pudn.com/downloads93/sourcecode/windows/other/366318/Project%20Installer%201.9/Installer/registrySupport.bas__.htm

 

http://www.bigresource.com/VB-Creating-a-key-in-windows-registry-using-vb-code-5wn8pc6L7h.html

 

http://www.vbforums.com/showthread.php?67931-code-to-turn-monitor-off

 

وهذا لتحميل الوحدة النمطية

https://www.google.com.sa/url?sa=t&rct=j&q=&esrc=s&source=web&cd=3&cad=rja&uact=8&ved=0CD8QFjAC&url=http%3A%2F%2Fvbcity.com%2Fcfs-filesystemfile.ashx%2F__key%2FCommunityServer.Components.PostAttachments%2F00.00.58.27.56%2FmodRegistry.bas&ei=CbuAU5WHNvOY0QWWloCQCQ&usg=AFQjCNE8kCZpv-bRQpeE3xXHSCD0k37qow&sig2=29lndcrzrZR_krRfe8ERaQ

 

وهب ان زهرة هي من صنعت الكود

المسألة تتعلق بالفكرة

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

وهو حق لي ولن اتنازل عنه

 

 

ومع كل هذا الهجوم وافراغ كل قاموس الكلمات البذئية

اقول :

زهرة انثى وأم

والأم مهما بلغ ابناؤها من العلم والسن يضلون في نظرها اطفالا

ولكن الام تبقى دوما اما حنونا مهما شغب عليها ابناؤها

سامحك الله ...  

 

اخي الفاضل : ابو ياسر

اولا : بارك الله بك على المتابعة

ولكن يبدو انه لم يحالفك الحظ في محاولتك المستميته لإثبات شيء ليس لك به اي علاقه

فهذه المواقع التي تتحدث عن  قراءة وحفظ القيم في الريجستري فهي كلها مأخوذه من موقع مايكروسوفت  وتحديدا دوال  API

لأن  دالتي GetSetting() و  SaveSetting()  موجودتان منذ  Wndows 3.1  اي من عام  1992  اي قبل ان تخلق او تولد انت على وجه الأرض

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

ولهذا قمنا بإستخدامها في الكود البرمجي لقراءة وحفظ البيانات اثناء عمل تخفيض أمان الأكسيس

اما انك تقول انك لن تتنازل عن الفكره بأنك اول شخص وضعها خارج قاعدة الأكسيس فأحب ان اطمأنك واقول لك ان كلامك غير صحيح

لأنني قد قمت بهذا العمل قبلك منذ عام  2006  في هذه المشاركة

/index.php/topic/113828-%D8%A7%D9%84%D8%AA%D8%AD%D8%B0%D9%8A%D8%B1%D8%A7%D8%AA-%D9%81%D9%8A-%D8%A8%D8%AF%D8%A7%D9%8A%D8%A9-%D8%AA%D8%B4%D8%BA%D9%8A%D9%84-%D8%A7%D9%84%D8%A7%D9%83%D8%B3%D8%B3-%D9%83%D9%8A%D9%81-%D8%A5%D9%84%D8%BA%D8%A7%D8%A6%D9%87%D8%A7-%D8%A8%D8%B1%D9%85

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

الآن عليك الإعتراف والتنازل عن الفكره التي امتحنتنا بها بعد ان تفتح المشاركة وتقوم بتحميل الملف لتجد قاعدة بيانات اكسيس مع ملفين ريجستري عندما تقوم بتشغيلها سيتم تخفيض أمان الأكسيس

فهذه الملفات خارجيه اي ليست داخل قاعدة البيانات وهي تقوم بعملية التخفيض مباشرة  ولكن رأى جميع الأعضاء في ذلك الوقت من عام 2006 ان ندخل هذه الملفات من ضمن قاعدة البيانات لتخفيض

أمان الأكسيس في عام 2007

الآن هل انت مقتنع ام لا زلت تعاند وتكابر مثل العادة .

سيدي الكريم : ابو ياسر

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

انني وضعت الأكواد والشروحات منذ عام 2006 وحتى يومنا هذا  لتخفيض أمان الأكسيس  ولم  اقل لأي شخص من الأشخاص انك اخذت الكود او استخدمته في برنامجك

ثم تأتي انت بعد كل هذه السنوات وتبدأ بالنحيب والعويل والتشكي لشيء ليس لك  فيه اي حق ابدا  وكأننا اخذنا منك شيء هو ملك لك 

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

الآن انت اصبحت الضحيه ونحن من اعتدى على حق من حقوقك 

فسبحان الله مفلب القلوب والأبصار 

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

بالتوفيق

أستاذي العزيز أمير تحية طيبة لك وبعد .. البرنامج اصبح جاهزاً إن شاء الله لكني انتظر ان تتم معالجة مشكلة حسابي أولاً لكي استطيع فتح موضوع جديد بخصوصه واتمنى ان تكون أول من يجرب البرنامج  :D

استاذتي الكريمة كفيتي ووفيتي بالأدلة والبراهين فبارك الله فيكي ولاغبار على احترافيتك وتميزك فلستي ممن يستولي على جهود الغير لأن لديكي إمكانية عمل افضل من ماهو موجود .. حفظك الله وأدامك لنا أخت عزيزة وكريمة 

أستاذي / أوس :

إن شاء الله نشوف حسابك القديم قريباً

كذلك نشوف برنامجك

ونحاول نهيكل الكود ونبسطه ونشرحه للزملاء

و بعد التجربة  تسجله باسمك

لربما يأتي يوماً ويقول أمير2008 :

 الأستاذ / أوس  اخذ برنامجي لتسجيل غياب الموظفين

AWSALI كتب:

استاذتي الكريمة كفيتي ووفيتي بالأدلة والبراهين فبارك الله فيكي ولاغبار على احترافيتك وتميزك فلستي ممن يستولي على جهود الغير لأن لديكي إمكانية عمل افضل من ماهو موجود .. حفظك الله وأدامك لنا أخت عزيزة وكريمة 

أمير2008 كتب:

أستاذي / أوس :

إن شاء الله نشوف حسابك القديم قريباً

كذلك نشوف برنامجك

ونحاول نهيكل الكود ونبسطه ونشرحه للزملاء

 

و بعد التجربة  تسجله باسمك

لربما يأتي يوماً ويقول أمير2008 :

 الأستاذ / أوس  اخذ برنامجي لتسجيل غياب الموظفين

بارك الله بكم اخواني الكرام

@ أوس علي

@ أمير

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

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

وكأنه يطبق المثل القائل ( ضرني وبكى وسبقني واشتكى )  وهو يعلم علم اليقين ان ليس له اي حق ولكنه العناد والمكابره ومهما وضعنا له الإثباتات والبراهين فهو لا زال غير مقتنع

عموما اقدم اسفي واعتذاري لك اخي الكريم

بالنسبة للشيخ امير حبيب الشعب  :) 

فيعجبني به شيء واحد فقط انه انسان مرح ويحب القفشات ولا يعير توافه الأمور اي اهتمام  ، وهذا وإن دل فإنما يدل على روحه الطيبه المرحه واخلاقه الكريمه ومعدنه الأصيل 

ولهذا اقترح ايضا على الأستاذ اوس ان يقوم بتسجيل برنامجه في الشهر العقاري حتى لا يأتي احد العفاريت الزرقاء ويسجل البرنامج بإسمه

بالتوفيق

أستاذي القدير أمير واستاذتي القديرة زهرة اشكركم جزيل الشكر على الإطراء لكن برنامجي إن شاء الله هدية وهو لوجه الله تعالى احتسبه عند الله صدقة جارية على روح أختي المرحومة التي توفت حرقاً أمام عيني الشهر الماضي :(   لذلك أنا لا اسألكم عليه شيء سوى الدعاء لها بالرحمة والمغفرة