اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

تشغيل برنامج الاكسس في اي مجلد ، وبدون رسائل الأمان


jjafferr

الردود الموصى بها

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

 

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

http://www.officena.net/ib/topic/66450-دمج-ملف-وتشغيله-قبل-أو-مع-بدء-اكسس/#comment-432363

 

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

 

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

 

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

 

العمل كله يدور حول كود ، ويجب حفظ الكود هذا في ملف بصيغة vbs ، والذي يجب ان نفتح برنامجنا عن طريقه.

الكود يعمل على برامج الاكسس بصيغة mdb و   accdb ، والمفروض ان يعمل على جميع اصدارات الاكسس 2003 فما فوق ، وعلى الاكسس 32بت و64بت (انا هنا اطلب من الشباب تجربته بإصدارات الاكسس التي يعملون عليها ، وإخبارنا بالنتيجة لوسمحتوا).

 

اليكم طريقة العمل (رجاء انزال المرفق وفكه في المسار C:\jj ، وذلك حتى يمكنكم متابعة خطواتي):

رجاء وضع البرنامج المرفق Seq.mdb حسب المسار التالي:

C:\jj\Seq.mdb

 

الآن اذهب الى المجلد C:\jj وافتح البرنامج Seq.mdb بالنقر المزدوج ،

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

Clipboard08.jpg.f5f0ab5c550bbde480d5549c

.

 

الملف الآخر المرفق Seq.vbs ، يحتوي على هذا الكود:

rem http://www.accessmvp.com/jconrad/accessjunkie/macrosecurity.html
rem expression.OpenCurrentDatabase(filepath required, Exclusive optional, bstrPassword optional)
dim o
 set o=createobject ("Access.Application")
 o.automationsecurity=1 ' set macro security LOW.
 o.opencurrentdatabase "C:\jj\Seq.mdb"
 o.usercontrol=true
 set o=nothing

.

تستطيع ان تجعله في اي مجلد (ممكن تجرب نسخه منه في اي مجلد شئت) ، وانقر مرتين على هذا الملف بُغية تشغيله ، سترى انه فتح البرنامج Seq.mdb ، وبدون رسالة أمان الاكسس ، وهو المطلوب :rol:

 

-------------------------------------------------------------------------------------------------------------------------------------------

 

هذه الخطوة إضافية ، وهي لتحويل الملف السابق من صيغة vbs الى exe ، واختيار ايقونه للملف الجديد:smile:

 

الآن ننتقل للخطوة التالية ، وهي ، اننا لا نريد ان ايقونة vbs ، وانما نريد ايقونه خاصة لبرنامجنا.

هناك طريقتين:

1.     ايقونة مختصر البرنامج Shortcut:

وهي ان نعمل مختصر لملف Seq.vbs ، ولكن وللأسف مختصر ملف vbs يعطينا نفس ايقونة الملف نفسه ، وما عندنا طريقة لتغييرها!!

لذلك ، سنعمل مختصر لملف الاكسس ، ونغير البيانات كالصورة التاليه ، بحيث يصبح مختصر ملف vbs يحتوي على ايقونة ملف الاكسس (طبعا يمكنك ان تغير الايقونة الى اي شئ شئت):

Clipboard01.jpg.6d64fa8cdcb5620edf4d3320

.

Clipboard02.jpg.6cbeb344a9ff4efe5c943bb2

.

Clipboard03.jpg.4905f1354496b970bb595b7d

.

Clipboard04.jpg.ae7ca5dfb7a798d59a46ae64

.

وبهذه الطريقة غيّرنا ايقونة برنامج vbs الى ايقونه اخرى مناسبة :rol:

 

2.     تحويل ملف vbs الى ملف تنفيذي exe ، وتختار له الايقونة التي تعجبك:

رجاء انزال البرنامج المجاني Vbs to Exe من الرابط التالي:

http://www.f2ko.de/en/v2e.php

 

احد اسباب اختياري لهذا البرنامج ، اننا نستطيع التحكم به عن طريق Commandline ايضا :rol:

 

ثم نتبع الخطوات التالية:

ونستطيع ان نعمل لبرنامج vbs هذا كلمة سر كذلك ،

Clipboard05.jpg.2fa253517ecc6787b6991e36

.

في الخطوة 6 تستطيع ان تكتب معلومات شركتك ،

ونختار الايقونه التي نريدها للبرنامج (الخطوة 5)

Clipboard06.jpg.22e33b850652517b4ac4861d

.

Clipboard07.jpg.4b7e53651a5654acdd2c31e8

.

وتستطيع ان تجعله على سطح مكتب كمبيوترك :rol:

الميزة في هذه الطريقة ، ان المستخدم لن يعرف مكان برنامج قاعدة البيانات Seq.mdb ، ولن يعرف الكود الذي كان في Seq.vbs :rol:

 

ارجو ممن يضع ردا على الموضوع ، ان يذكر:

1. اذا اشتغل البرنامج على كمبيوتره ،

2. نسخة الاكسس التي يستخدمها.

 

 

ملاحظة:

الظاهر ان بعض متصفحات الانترنت حجبت انزال المرفق Seq.zip ، وذلك بسبب احتوائه على ملف vbs ، والذي يستخدمه الكثيرون لتخريب الكمبيوتر ،

لذلك ،

ارفق لكم Seq_2.zip والذي يحتوي على نفس ملفات Seq.zip ، ولكني غيرت صيغة الملف Seq.vbs الى Seq.txt .

بعد انزال المرفق وفك ملفاته في الكمبيوتر ، رجاء تغيير مسمى الملف Seq.txt الى Seq.vbs :rol:

 

 

جعفر

Seq.zip

Seq_2.zip

  • Like 16
  • Thanks 3
رابط هذا التعليق
شارك

شكرا ياشباب :rol:

 

ارجو ممن يضع ردا على الموضوع ، ان يذكر:

1. اذا اشتغل البرنامج على كمبيوتره ،

2. نسخة الاكسس التي يستخدمها.

 

حتى نعرف ان الطريقة تشتغل على كل اصدارات الاكسس :rol:

 

جعفر

  • Like 1
رابط هذا التعليق
شارك

تمت التجربة على 2003 وعمل بكفاءة

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

وعندي ملاحظة اخوي جعفر وانا اعرف ان صدرك رحب :

اقتباس

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

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

لان الخراب يأتي من اي ملف تنفيذي ويمكن يكون على اكثر من صيغة وعلى اي محرك

   حمانا الله واياكم  ولا اراكم مكروها ،،،

 

  • Like 3
رابط هذا التعليق
شارك

منذ ساعه, ابوخليل said:

تمت التجربة على 2003 وعمل بكفاءة

شكرا جزيلا لك أخوي ابوخليل :rol:

 

منذ ساعه, ابوخليل said:

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

في كل الحالات نحن نستعمل الوسيط ، فمختصر برنامج الاكسس الموجود على سطح المكتب لتشغيل البرنامج ، هو نوعا ما ، وسيط ايضا :rol:

 

منذ ساعه, ابوخليل said:

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

لان الخراب يأتي من اي ملف تنفيذي ويمكن يكون على اكثر من صيغة وعلى اي محرك

انا متفق معاك 100% :rol:

 

 

جعفر

رابط هذا التعليق
شارك

22 ساعات مضت, jjafferr said:

في كل الحالات نحن نستعمل الوسيط ، فمختصر برنامج الاكسس الموجود على سطح المكتب لتشغيل البرنامج ، هو نوعا ما ، وسيط ايضا :rol:

جعفر

:clapping: تصدق هذه النقطة غايبة وما تخطر على البال

رابط هذا التعليق
شارك

في ٢٩‏/١‏/٢٠١٦ at 12:28, jjafferr said:

ارجو ممن يضع ردا على الموضوع ، ان يذكر:

 

1- شغال و تمام . :fff:

2- وندوز 7 / 64 بت /// اوفس 2010 / 32 بت . :fff:

رابط هذا التعليق
شارك

  • 11 months later...
في ٢٩‏/١‏/٢٠١٦ at 11:28, jjafferr said:

شكرا ياشباب :rol:

 

ارجو ممن يضع ردا على الموضوع ، ان يذكر:

1. اذا اشتغل البرنامج على كمبيوتره ،

2. نسخة الاكسس التي يستخدمها.

 

حتى نعرف ان الطريقة تشتغل على كل اصدارات الاكسس :rol:

 

جعفر

تم التنفيذ بنجاح الحمد لله

على اصدار 2003 /32 بت

لكن لدي سؤوال بعد اذنك هل يمكن تغيير المسار هذا

"C:\jj\Seq.mdb"
رابط هذا التعليق
شارك

في 1/28/2016 at 23:49, jjafferr said:

احد اسباب اختياري لهذا البرنامج ، اننا نستطيع التحكم به عن طريق Commandline ايضا :rol:

هل جربت العمل بهذه الطريقة والتي تكون تلقائيا بكبسة زر واحدة :smile:

 

جعفر

رابط هذا التعليق
شارك

  • 1 month later...
في ١٨‏/٤‏/١٤٣٧ هـ at 22:49, jjafferr said:

رجو ممن يضع ردا على الموضوع ، ان يذكر:

1. اذا اشتغل البرنامج على كمبيوتره ،

2. نسخة الاكسس التي يستخدمها.

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

استاذي / ابو موسى

حبيت اجرب صيغة ملف من الاكسس غير اللي انت ذكرت

استخدمت الطريقة لملفvbs lمع صيغة ملف Mde على نظام تشغيل windos10 و Access2010

يعمل بشكل ممتاز

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

فهل من حل ؟

رابط هذا التعليق
شارك

5 ساعات مضت, kaser906 said:

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

فهل من حل ؟

 

وعليكم السلام اخوي كاسر:smile:

 

كل الموجود اعلاه لا علاقة له بكيفية فتح البرنامج ، فاقترح عليك زيارة الرابط التالي:

هنا اوضحت كيف اجعل برامجي تشتغل ، عن طريق الماكرو autoexec ، وتعبئ الشاشة ، ولا استعمل النماذج المنبثقة إلا نادرا :smile:

 

2 ساعات مضت, sandanet said:

يا الهي ماهذا الابداع!!!

 

حيا الله اخوي أنس :smile:

 

جعفر

رابط هذا التعليق
شارك

40 دقائق مضت, jjafferr said:

هنا اوضحت كيف اجعل برامجي تشتغل ، عن طريق الماكرو autoexec ، وتعبئ الشاشة ، ولا استعمل النماذج المنبثقة إلا نادرا :smile:

استاذي طبقت نفس طريقتك

نفس الشي 

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

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

اما باقي النماذج فتفتح بكامل الشاشة مع تصغير النافذة الرئيسية للآكسس

رابط هذا التعليق
شارك

في ٢٤‏/٥‏/١٤٣٨ هـ at 01:03, jjafferr said:

ان شاء الله اشوف الموضوع بكرة:smile:

السلام عليكم

صباح الخير

شكلك نسيت الموضوع

على فكرة يا ابو موسى بالنسبة لتحويل ملف Vbs إلى صيغة exe برنامج الحماية يتعرف علية على انه Torgan ويقوم بعزلة

في ١٨‏/٤‏/١٤٣٧ هـ at 22:49, jjafferr said:

Clipboard07.jpg.4b7e53651a5654acdd2c31e8

 

رابط هذا التعليق
شارك

  • 8 months later...
في ٢٠‏/٢‏/٢٠١٧ at 18:49, kaser906 said:

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

فهل من حل ؟

 

في ٢١‏/٢‏/٢٠١٧ at 00:58, kaser906 said:

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

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

اما باقي النماذج فتفتح بكامل الشاشة مع تصغير النافذة الرئيسية للآكسس

 

في ٢٣‏/٢‏/٢٠١٧ at 07:34, kaser906 said:

صباح الخير

شكلك نسيت الموضوع

على فكرة يا ابو موسى بالنسبة لتحويل ملف Vbs إلى صيغة exe برنامج الحماية يتعرف علية على انه Torgan ويقوم بعزلة

في ٢١‏/٢‏/٢٠١٧ at 01:03, jjafferr said:

ان شاء الله اشوف الموضوع بكرة:smile:

 

جعفر

السلام عليكم ورحمة الله وبركاته
انا تأخرت كتير على هذا الموضوع الجميل انا استخدمت على ويندوز 7 - 32 بت اوفيس 2010 - 32 بت وحقا طريقة رائعة جدا
اسمح لي ان ارد عليك يا @kaser906 
اتفضل اليك هذا وفتحه هل وصلت للنتيجة المطلوبة ؟ 

jj.rar

  • Like 2
رابط هذا التعليق
شارك

10 ساعات مضت, Shivan Rekany said:

 

 

السلام عليكم ورحمة الله وبركاته
انا تأخرت كتير على هذا الموضوع الجميل انا استخدمت على ويندوز 7 - 32 بت اوفيس 2010 - 32 بت وحقا طريقة رائعة جدا
اسمح لي ان ارد عليك يا @kaser906 
اتفضل اليك هذا وفتحه هل وصلت للنتيجة المطلوبة ؟ 

jj.rar

الله يعطيك العافيه أستاذ شفان

انا الان مسافر عندما اعود سوف اجرب وارد عليك

رابط هذا التعليق
شارك

السلام عليكم:smile:

 

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

1. تشغيل الاكسس بدون رسائل أمان ،

2. تشغيل الاكسس بدون إطار/نافذة الوندوز (للنواتين 32بت و64بت).

 

1. مثل الخطوات السابقة ، احفظ الكود التالي في ملف بصيغة txt ، ثم غيّر صيغة الملف الى vbs (طبعا تستطيع ان تضع برنامج قاعدة البيانات في اي مكان شئت في الكمبيوتر ، فقط عليك تعديل الاسم والمسار) :

rem http://www.accessmvp.com/jconrad/accessjunkie/macrosecurity.html
rem expression.OpenCurrentDatabase(filepath required, Exclusive optional, bstrPassword optional)
dim o
 set o=createobject ("Access.Application")
 o.automationsecurity=1 ' set macro security LOW.
 o.opencurrentdatabase "C:\jj\Seq.mdb"
 o.usercontrol=false
 o.quit
 set o=nothing

 

2. لتشغيل الاكسس بدون اطار ، يجب ان يكون النموذج منبثق ،

ولكننا بدل ان نغير اعدادات النموذج ، نستطيع ان نفتحه منبثق مباشرة ( Dialog )،

وبما اننا نستعمل الماكرو AutoExec (والذي يعمل عند فتح البرنامج مباشرة ) ، فإننا سنفتح النموذج بهذه الطريقة:

النموذج:

739.Clipboard01.jpg.d7d78ccaeb0533779af9b40c404377d3.jpg

.

والماكرو

739.Clipboard02.jpg.d320eb59c98bbcb93d67ebe6150296e2.jpg

.

وهذا كود النموذج:

Option Compare Database

Private Sub cmd_Quit_Click()

    DoCmd.Quit
End Sub

Private Sub Form_Open(Cancel As Integer)
    
    Call HideAccess
End Sub

 

وهذه الوحدة النمطية التي بها كود الاخفاء:

Option Compare Database
Option Explicit

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


#If VBA7 Then
    Private Declare PtrSafe Function ShowWindow Lib "USER32" _
        (ByVal hwnd As LongPtr, ByVal nCmdShow As Long) As Boolean
#Else
    Private Declare Function ShowWindow Lib "USER32" _
        (ByVal hwnd As Long, ByVal nCmdShow As Long) As Boolean
#End If
'


Public Sub HideAccess()
    
    #If VBA7 Then
        Dim hWndAccessApp As LongPtr
    #Else
        Dim hWndAccessApp As Long
    #End If
    
    Call ShowWindow(Access.hWndAccessApp, SW_HIDE)
End Sub

Public Sub ShowAccess()
    
    #If VBA7 Then
        Dim hWndAccessApp As LongPtr
    #Else
        Dim hWndAccessApp As Long
    #End If
    
    Call ShowWindow(Access.hWndAccessApp, SW_SHOWMAXIMIZED)
End Sub

 

جعفر

739.No_Warning_and_No_Access_Window.zip

  • Like 3
رابط هذا التعليق
شارك

32 دقائق مضت, jjafferr said:

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

1. تشغيل الاكسس بدون رسائل أمان ،

2. تشغيل الاكسس بدون إطار/نافذة الوندوز (للنواتين 32بت و64بت).

شكرا لك استاذ 
تم التجربة على ويندوز 7 , 32 بت و اوفيس 2010 , 32 بت 
وتم النجاح 100%

شكرا لك مجددا

رابط هذا التعليق
شارك

  • 3 weeks later...

السلام عليكم:smile:

 

وهذا تعديل من الاخ shod90 (شكرا اخي شادي) على ملف Seq.vbs ،

بحيث يعمل الكود في المجلد الذي يكون فيه ، فلا يحتاج الى كتابة اسم المسار:

    dim fso: set fso = CreateObject("Scripting.FileSystemObject")
    dim CurrentDirectory
    CurrentDirectory = fso.GetAbsolutePathName(".")
    dim Directory
    Directory = CurrentDirectory & "\Seq.mdb"

rem http://www.accessmvp.com/jconrad/accessjunkie/macrosecurity.html
rem expression.OpenCurrentDatabase(filepath required, Exclusive optional, bstrPassword optional)

 dim o
 set o=createobject ("Access.Application")
 o.automationsecurity=1 ' set macro security LOW.
 o.opencurrentdatabase Directory
 o.usercontrol=true
 set o=nothing

.

جعفر

  • Like 3
  • Thanks 1
رابط هذا التعليق
شارك

  • 10 months later...
  • 11 months later...
في ٦‏/١٢‏/٢٠١٧ at 20:48, jjafferr said:

السلام عليكم:smile:

 

وهذا تعديل من الاخ shod90 (شكرا اخي شادي) على ملف Seq.vbs ،

بحيث يعمل الكود في المجلد الذي يكون فيه ، فلا يحتاج الى كتابة اسم المسار:


    dim fso: set fso = CreateObject("Scripting.FileSystemObject")
    dim CurrentDirectory
    CurrentDirectory = fso.GetAbsolutePathName(".")
    dim Directory
    Directory = CurrentDirectory & "\Seq.mdb"

rem http://www.accessmvp.com/jconrad/accessjunkie/macrosecurity.html
rem expression.OpenCurrentDatabase(filepath required, Exclusive optional, bstrPassword optional)

 dim o
 set o=createobject ("Access.Application")
 o.automationsecurity=1 ' set macro security LOW.
 o.opencurrentdatabase Directory
 o.usercontrol=true
 set o=nothing

.

جعفر

استاذنا الغالي ابو الجعافر نورت المنتدي عوده حميده

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

استاذي الفاضل هل توجد طريقه بحث لايظهر تصغير الاكسس920552791_2019-10-26230614.png.df2c005e380930291b35931bc38c9c46.png باعلى يسار الشاشه للمستخدم

تحياتي اليك 

 

تم تعديل بواسطه ابو زاهر
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information