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

س: كيف استخرج رقم إصدار الملف ؟

مغلق
بدأه مخالف_47 في 8 فبراير 2008 · 12 رد · 1,442 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

للتوضيح نفذ الخطوات التالية بالترتيب :

1- ضع المؤشر على ملف تنفيذي

2- يمين الفأرة

3- خصائص

4- التفاصيل

أريد الرقم الذي أمام ( إصدار الملف ) أو ( إصدار المنتج )

الشكر مقدما للجميع

{ رب أوزعني أن أشكر نعمتك التي أنعمت علي وعلى والدي وأن أعمل صالحاً ترضاه وأصلح لي في ذريتي إني تبت إليك وإني من المسلمين }

#2

الأخ الفاضل ...

هذا الكود للحصول على بيانات الإصدار من داخل البرنامج: 

Private Sub Form_Load()
	MsgBox "Version " & App.Major & "." & App.Minor & "." & App.Revision
End Sub

شكراً

Eng. Usama El-Mokadem

Nothing is impossible, the word impossible itself says that: I M - Possible

#3

ان كنت تجيد قراءة وتركيب دوال الـ API في برنامجك, ما تريده تحصل عليه من خلال GetFileVersionInfo

http://msdn2.microsoft.com/en-us/library/m...003(VS.85).aspx

و GetFileVersionInfoSize

http://msdn2.microsoft.com/en-us/library/m...005(VS.85).aspx

صفحة متعلقة بالموضوع:

http://www.vb-helper.com/howto_file_version_info.html

Do as I say, not as I do

We are Anonymous. We are Legion. We don't forgive. We don't forget

#4

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

{ رب أوزعني أن أشكر نعمتك التي أنعمت علي وعلى والدي وأن أعمل صالحاً ترضاه وأصلح لي في ذريتي إني تبت إليك وإني من المسلمين }

#5

السلام عليكم

الأستاذ / Eng. Usama El-Mo...

تم التنفيذ بنجاح ، شكرا لك ، هل أستطيع معرفة تاريخ النسخة ؟

ــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ

ـــــــــــت

الأستاذ / Junkie

نسخت الكود من العنوان http://www.vb-helper.com/howto_file_version_info.html وعند التشغيل ظهرت لي بعض الأخطاء ، شكرا لك ، سأحاول تصحيح الأخطاء .

{ رب أوزعني أن أشكر نعمتك التي أنعمت علي وعلى والدي وأن أعمل صالحاً ترضاه وأصلح لي في ذريتي إني تبت إليك وإني من المسلمين }

#6

تنويه بسيط, ما كتبته لك تستخدمه للحصول على اصدار اي ملف وليس فقط البرنامج الذي تعمل فيه.

Do as I say, not as I do

We are Anonymous. We are Legion. We don't forgive. We don't forget

#7

مشكور أخي Junkie سأتفرغ للكود وأحلله فقرة فقرة حتى أستخرج منه حاجتي

{ رب أوزعني أن أشكر نعمتك التي أنعمت علي وعلى والدي وأن أعمل صالحاً ترضاه وأصلح لي في ذريتي إني تبت إليك وإني من المسلمين }

#8
اقتباس
السلام عليكم

الأستاذ / Eng. Usama El-Mo...

تم التنفيذ بنجاح ، شكرا لك ، هل أستطيع معرفة تاريخ النسخة ؟

Sub Main()
	MsgBox _
		"Comments: " & vbTab & App.Comments & vbNewLine & _
		"Company: " & vbTab & App.CompanyName & vbNewLine & _
		"Description: " & vbTab & App.FileDescription & vbNewLine & _
		"Copyright: " & vbTab & App.LegalCopyright & vbNewLine & _
		"Trademarks: " & vbTab & App.LegalTrademarks & vbNewLine & _
		"Version: " & vbTab & vbTab & App.Major & "." & App.Minor & "." & App.Revision & vbNewLine & _
		"Path: " & vbTab & vbTab & App.Path & "\" & App.EXEName & ".exe" & vbNewLine & _
		"ProductName: " & vbTab & App.ProductName & vbNewLine & _
		"Title: " & vbTab & vbTab & App.Title & vbNewLine
End Sub

post-98027-1202891710_thumb.jpg

Version.zip

Eng. Usama El-Mokadem

Nothing is impossible, the word impossible itself says that: I M - Possible

#9

الأستاذ / Eng. Usama El-Mo...

شكرا معلومات مهمة ، لكن ليس من ضمنها تاريخ الإصدار ، هل له طريقة أخرى ؟

{ رب أوزعني أن أشكر نعمتك التي أنعمت علي وعلى والدي وأن أعمل صالحاً ترضاه وأصلح لي في ذريتي إني تبت إليك وإني من المسلمين }

#10

ما المقصود بتاريخ الاصدار ؟

هل تفضلت بعمل صورة Capture لملف يحتوى تاريخ الاصدار وأشرت الى الجزء المراد معرفته بسهم؟

Eng. Usama El-Mokadem

Nothing is impossible, the word impossible itself says that: I M - Possible

#11

لقد وجدته فجزاكم الله خيرا

MsgBox FileDateTime(App.Path)

{ رب أوزعني أن أشكر نعمتك التي أنعمت علي وعلى والدي وأن أعمل صالحاً ترضاه وأصلح لي في ذريتي إني تبت إليك وإني من المسلمين }

#12
اقتباس
لقد وجدته فجزاكم الله خيرا

MsgBox FileDateTime(App.Path)

الأخ الفاضل ...

أنتبة: الكود الذى كتبتة لن يعطيك تارخ الإصدار، ولكن سيعطيك تاريخ أخر تعديل (أو إنشاء) المجلد الموجود به البرنامج.

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

MsgBox FileDateTime(App.Path & "\" & App.EXEName & ".exe")

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

حيث يستخدم FileDateTime للحصول على تاريخ ووقت أخر تعديل للملف (أى ملف).

بخصوص الحصول على تاريخ إنشاء الملف بتوقيت جرينيتش GMT (للملفات التنفيذية PE "تاريخ الـ Compile")، يمكنك أستخدام الكود التالى:

Private Function GetTimeStamp(PEFilename As String) As Date
	Dim var As Long
	Dim fileNumber As Integer

	fileNumber = FreeFile
	Open PEFilename For Binary Access Read As #fileNumber
		Seek #fileNumber, &H3D
		Get #fileNumber, , var

		Seek #fileNumber, var + &H8 + 1
		Get #fileNumber, , var
	Close fileNumber

	GetTimeStamp = DateAdd("s", var, CDate("1/1/1970"))
End Function

شكراً

Version_UP1.zip

تم تعديل هذه المشاركة بواسطة Eng. Usama El-Mokadem في 16 فبراير 2008 في 10:28

Eng. Usama El-Mokadem

Nothing is impossible, the word impossible itself says that: I M - Possible

#13

صحيح ، التاريخ يتغير

إذن هل أستطيع الحصول على رقم الإصدار لملف تنفيذي موجود على الانترنت ؟ ( دون أن أنزله )

{ رب أوزعني أن أشكر نعمتك التي أنعمت علي وعلى والدي وأن أعمل صالحاً ترضاه وأصلح لي في ذريتي إني تبت إليك وإني من المسلمين }

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

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

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…