الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

الرجاء المشاركة لحل المعضلة

مغلق
بدأه fai.fai في 26 يوليو 2003 · 7 رد · 744 مشاهدة · في مراجعة المواضيع
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

اخواني اني اعمل في ادارة وحيث توجد عدة اقسام ووجدت برنامج شئون مالية وادارية يختص بشئون الموظفين وخلافة وحبث اني ارغب بأنزالة لكم لتستفيدوا منه حيث ان البرنامج كلف اكثر من سبعة الاف ريال وبرنامج سهل من ناحية التقارير ولايمكن وصفة من حيث الميزات التي يحتويها ولكن محمي الابرنامج وانا ارغب منكم مساعدتي بمعرفة اي برنامج او طريقة تساعدني على فك الحماية والتعديل عليه وحذف بيانات الأدارة لأتمكن من انزاله لكم علماً بأن صورة الملف الذي ارغب بفكة واعادة تصميمه ( يعني اشيل بيانات المؤسسه هو )

aaa.bmp

ارجوا السرعه بالرد

#2

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

أخي العزيز : fai.fai

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

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

كم حجم الملف ؟

تحياتي (f)

========

counter2001b.cgi?602678

صورة
صورة

حسابي في الفيس بوك
http://goo.gl/XIzwL

حسابي في تويتر
http://goo.gl/6p4e3

 

 
 
#3

اخي فيصل الحربي

اسف على الأطالة سعة الملف هو 5.77 mb وللمعلومات الموجوده به لااستطيع ارفاقه حالياً طبعاً ارغب فقط ان اقوم على التعديل على التقارير المرفقة به مثل الخطابات مثلاً كليشة التقرير اسمها منتديات الويب ارغب بتعديلها الى منتديات الفريق العربي وهي على شكل مستندات الوورد .

ثانياً غلطتي اني لم اتطرق على قوانين المنتدى من قبل ولكن الجايات اكثر ارجوا تقبل اعتذاري وشكراً لنصحك وتوجيهك . اخوك fai.fai

#4

جرب هذا الكود يمكن تقدر تسحب جميع حقول ونماذج البرنامج الى قاعدة mdb جديدة ..

Function fValidUser(strUserName as string) as integer
Dim wrk as workspace
Dim strPath as string
Dim dbRemote as Database
Dim rst as recordset

On Error goto fValidUser_error

Set wrk = DBEngine.Workspaces(0)

strPath = "<موقع الملف في الجهاز>"
Set dbRemote = wrk.OpenDatabase(strPath, False, True)

Set rst = dbRemote.OpenRecordset("<اسم قاعدة البيانات>", DB_OPEN_TABLE)
rst.index = "PrimaryKey"

 rst.Seek "=", strUserName

If rst.NoMatch Then
   fValidUser = False
Else
   fValidUser = True
End If

fValidUser_Exit:
On Error resume next
rst.Close
Set rst = nothing

 dbRemote.Close
set dbRemote = Nothing

Set wrk = nothing

exit function

fValidUser_Error:
Msgbox "unexpected error"
fValidUser = False
resume fValidUser_exit

End Function

جرب منت خسران شيء ;)

لا مكان مثل الوطن

#5

ما شاء الله تبارك الله هذه احدى طرق الاختراق اللطيفة للبرامج

[SIZE=7]رائع[/SIZE]

#6

بعطيكم العافية

#7

كيف اضيف الكود الي في الأعلى واين الخبرة بسيطه

#8

م

هذا الموضوع مغلق.

مواضيع مشابهة