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

[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 بالنقر المزدوج ،

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

.

 

الملف الآخر المرفق 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 ، وبدون رسالة أمان الاكسس ، وهو المطلوب 

 

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

 

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

 

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

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

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

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

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

.

.

.

.

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

 

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

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

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

 

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

 

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

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

.

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

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

.

.

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

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

 

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

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

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

 

 

ملاحظة:

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

لذلك ،

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

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

 

 

جعفر

Seq.zipFetching info...

Seq_2.zipFetching info...

[محمد سلامة]

ماشاء الله عليك استاذ جعفر

بارك الله فيك

[jjafferr]

شكرا ياشباب 

 

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

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

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

 

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

 

جعفر

[ابوخليل]

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

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

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

  اقتباس

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

Expand  

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

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

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

 

[jjafferr]

  في 29‏/1‏/2016 at 17:42, ابوخليل said:

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

Expand  

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

 

  في 29‏/1‏/2016 at 17:42, ابوخليل said:

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

Expand  

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

 

  في 29‏/1‏/2016 at 17:42, ابوخليل said:

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

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

Expand  

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

 

 

جعفر

[ابوخليل]

  في 29‏/1‏/2016 at 18:59, jjafferr said:

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

جعفر

Expand  

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

[كرار صبري _ أبو جنى]

  في 29‏/1‏/2016 at 09:28, jjafferr said:

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

 

Expand  

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

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

[سامي الضالعي]

  في 29‏/1‏/2016 at 09:28, jjafferr said:

شكرا ياشباب 

 

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

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

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

 

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

 

جعفر

Expand  

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

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

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

"C:\jj\Seq.mdb"

[jjafferr]

وعليكم السلام

 

طبعا ، 

اتبع الخطوات وغيُر الى اسم برنامجك

 

جعفر

[سلمان الشهراني]

مشاء الله تبارك الله
جدا روعه وتم التجربه على اوفيس 2013 (32 بت ) يعمل وبكفائه

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

 

[jjafferr]

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

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

Expand  

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

 

جعفر

[kaser906]

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

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

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

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

Expand  

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

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

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

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

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

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

فهل من حل ؟

[jjafferr]

  في 20‏/2‏/2017 at 15:49, kaser906 said:

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

فهل من حل ؟

Expand  

 

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

 

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

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

 

  في 20‏/2‏/2017 at 19:07, sandanet said:

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

Expand  

 

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

 

جعفر

[kaser906]

  في 20‏/2‏/2017 at 21:12, jjafferr said:

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

Expand  

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

نفس الشي 

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

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

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

[kaser906]

  في 20‏/2‏/2017 at 22:03, jjafferr said:

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

Expand  

السلام عليكم

صباح الخير

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

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

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

Expand  

 

[Shivan Rekany]

  في 20‏/2‏/2017 at 15:49, kaser906 said:

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

فهل من حل ؟

Expand  

 

  في 20‏/2‏/2017 at 21:58, kaser906 said:

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

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

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

Expand  

 

  في 23‏/2‏/2017 at 04:34, kaser906 said:

صباح الخير

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

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

Expand  

  في 20‏/2‏/2017 at 22:03, jjafferr said:

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

 

جعفر

Expand  

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

jj.rar

[kaser906]

  في 13‏/11‏/2017 at 17:17, Shivan Rekany said:

 

 

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

jj.rarFetching info...

Expand  

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

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

[jjafferr]

السلام عليكم

 

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

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 (والذي يعمل عند فتح البرنامج مباشرة ) ، فإننا سنفتح النموذج بهذه الطريقة:

النموذج:

.

والماكرو

.

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

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.zipFetching info...

[Shivan Rekany]

  في 19‏/11‏/2017 at 19:48, jjafferr said:

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

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

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

Expand  

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

شكرا لك مجددا

[jjafferr]

حياك االله أخوي شفان

[jjafferr]

السلام عليكم

 

وهذا تعديل من الاخ 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

.

جعفر

[citizenmasry]

شكرا لمجهودكم 

ولكن هذه الطريقه لم تعمل لدى على امتداد . accdb اكسيس 2013 32 بت ويندوز 7

 

[صالح حمادي]

السلام عليكم أستاذنا جعفر.

تظهر معي هذه الرسالة

[النجاشي]

  في 6‏/12‏/2017 at 17:48, jjafferr said:

السلام عليكم

 

وهذا تعديل من الاخ 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

.

جعفر

Expand  

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

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

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

تحياتي اليك 

 

تم تعديل أكتوبر 26, 2019 بواسطه ابو زاهر

[jjafferr]

وعليكم السلام اخوي ابو زاهر 🙂

 

للأسف الشديد ما عندي فكرة !!

يمكن احد من الشباب صادف هذه المشكلة ، ويعطينا الحل 🙂

 

جعفر