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

ارجو ان يكون البرنامج مفيد بعد تحويره.

الافراد.rar

مشكور اخوي وما قصرت بس لين اشغل البرنامج يقولي يبي رقم المنتج

ممكن تحطه لي علشان اشوف اشلون يشتغل

ومشكور مرة ثانية

ارسلي رقم التسجيل على ايميلي

alibukheet@yahoo.com

أرجو من الأخ الكريم ارسال رقم المنتج وكلمة المرور الى ايميلي abdou77@gawab.com مع خالص حبي وتقديري

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

مشكور اخوي وما قصرت

أخى العزيز

أرجو إرسال رقم المنتج على ahmedalbakry@hotmail.com

و لك الف مليون شكر على هذا العمل

الاخ الفاضل كل عام وانتم بخير

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

shaheerfs@yahoo.com حتى تعم الفائدة

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

اعادة الله على الامة العربية والاسلامية باليمن والبركات

اخيك شهير

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

alibukheet@yahoo.com

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

الموضوع سهل ان شاء الله عز وجل

تقومى بتصميم فورم يحتوى على كل البانات التى تريديها وان كانت من عدة جداول قومى بعمل استعلام لكل ما تريدين ثم تقومى بوضع زرار فى الفورم وعند الحدث Click تقومى بوضع الكود التالى

Dim s

s = InputBox("ادخل رقم الفاتورة")

DoCmd.GoToControl "رقم الفاتورة"

DoCmd.FindRecord s

End Sub

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

ولكن تم نسخ الكود فاعكسية اى inputbox=s

وهكذا

استعينوا بالصبر والصلاه

أرجو من الأخ الكريم ارسال رقم المنتج وكلمة المرور الى ايميلي tiger79a@hotmail.com مع خالص حبي وتقديري

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

اخي العزيز ahmedbakre

ارجو ان ترسل للجميع طريقه التسجيل ما دام انك ارفقت المثال للفائده

واود اعلامك بان الكثيرين اتوقع انهم تجاوزوا الحمايه لسهولتها

(h)

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

اتبع الآتي 1- انسخ رقم التسجيل اطرح منه 9669 واضرب الناتج في العدد 5 وانسخ الرقم الذي يظهر لك وسجل البرنامج بحريه

وشكراً لكم ارجو المعذره

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

تسلم اخي الفوراس

نعم لا للاحتكار

تم كسر حماية البرنامج

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

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

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

ولكن من العيب ان نحتكر اعمالنا ونغتر بها

وشكراااااااااااااا

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

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

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

وفقك الله وشكراً

اخي الفوارس

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

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

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

Sub ShowDriveInfo()
Set fs = CreateObject("Scripting.FileSystemObject")
Set h = fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName("c:")))
  
Forms!HardiskNo!HardiskSerial.Value = h.SerialNumber
Dim Srl As String
Srl = Nz(DLookup("SerialNo", "SerialNo"))
If (h.SerialNumber - 9669) * 5 = Val(Srl) Then
DoCmd.Close
DoCmd.OpenForm "frm-UserLogon"
Else
MsgBox "لم تقم بتسجيل البرنامج", vbOKOnly + vbMsgBoxRight + vbCritical, "تنبيه"
End If
End Sub

لاحظ الرقم الذي تتكلم عنه ظاهرا امامك

If (h.SerialNumber - 9669) * 5 = Val(Srl) Then

اختكم

زهره

الاخت زهره السلام عليكم

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

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

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

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

ثانياً ارجو التوضيح كما اوضحت في مشاركاتي الموضوع ليس بالتحدي لأن الاخ وضعه هنا مجاناً وانما للإيضاح

حيث لا بد ان نفهم جميعاً انه لا توجد حمايه ابديه حتى الحمايه بالدنقل تم كسرها

وشكراً لكي ولمتابعتك ورجو ان لا يفهم الموضوع بالخطأ تقبلوا عاطر التحايا

اخي الفوارس

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

بارك الله فيك وجزاك الله خيرا

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

لا للاحتكار

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

اخي الكريم

انا اتفق معك 100000000000% انه لا يوجد حماية مطلقه ابدا فمن يؤمن به المقوله فما نقول له الا ( كيف حالك ) :rolleyes:

الله يخلي لنا الاسمبلي قول آمين

اختكم

زهره

الاخت العزيزه : زهره جزاك الله خيراً على اهتمامك

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

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

..........................

عاطر التحايا

الفوارس

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

انا لله و انا اليه راجعون .

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

علي البخيت

حامدا مصليا مستغفرا

يا جماعة عطونا رقم النتج وريحونا ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

هذا بريدي ارجوا منكم افادتي عن رقم المنتج n1a1s1r1@hotmail.com