تحديث برامجك من الانترنت
هل حلمت أن تجعل برنامجك يحدث نفسه تلقائيا من الانترنت كما في البرامج العالمية المشهورة, وهل علمت انه بإمكانك فعل ذلك دون أي أدوات خارجية أي دون أن يكلفك ذلك قرشا واحد!
سنتعلم كيف نقوم بفعل ذالك عن طريق الكود فقط وذلك بحسب الخطوات التالية:
1- معرفة الإصدار الحالي لبرنامجك
2- معرفة الإصدار الأحدث الموجود على الانترنت
3- تحميل الإصدار الحديث
1- معرفة الإصدار الحالي لبرنامجك
بفرض أن رقم الإصدار الحالي لبرنامجك مخزن في مستند نصي مخزن في مسار برنامج بالاسم "v.txt" نقوم بكتابة الكود التالي لفتح الملف و معرفة رقم الإصدار الحالي لبرنامجك ووضعه في label وذلك عند تحميل البرنامج (load)
Open PATH + "v.txt" For Input As #1
v1.Caption = Input(LOF(1), 1)
Close #1
2- معرفة الإصدار الأحدث الموجود على الانترنت
لمعرفة الإصدار الأحدث الموجود على الانترنت يجب عليك تحميل الملف "v2.txt" الموجود في موقعك والذي يحوي رقم الإصدار الحديث الموجود في الموقع
أولا ضع هذا السطر في قسم التصريحات العامة (GENERAL)
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
الآن نضع الكود التالي في حدث Click الضغط للزر Command1 وذلك لتحميل الملف "v2.txt" على فرض أن website عنوان موقعك على الانترنت الذي يحوي الملف "v2.txt"
lngRetVal = URLDownloadToFile(0, "http://www.website.com/v.txt", PATH + "v2.txt", 0, 0)
تم الآن تحميل الملف إلى مجلد برنامجك في الملف "v2.txt" نقوم الآن بفتحه ومعرف رقم الإصدار الحديث عن طريق الكود التالي:
Open PATH + "v2.txt" For Input As #1
v2.Caption = Input(LOF(1), 1)
Close #1
نقوم بالتحقق من أن رقم الإصدار الحالي اصغر من رقم الإصدار الحديث فإذا كان رقم الإصدار الحالي اصغر من رقم الإصدار الحديث نقوم بتحميل الملف update.exe وإلا نخبر المستخدم بأنه يملك أحدث إصدار عن طريق الكود التالي:
If Val(v2.Caption) > Val(v1.Caption) Then
MsgBox "يوجد إصدار حديث وسيتم تحديث منتجك"
'لتحميل الملف "update.exe" على فرض أن website عنوان موقعك
lngRetVal = URLDownloadToFile(0, "http://website/update.exe", PATH + "update.exe", 0, 0)
'حفظ رقم الإصدار الجديد في الملف "v.txt" الموجود في مسار البرنامج
Open PATH + "v.txt" For Binary As #1
Put #1, 1, v2.Caption
Close #1
MsgBox "تم"
Else
MsgBox "أنت تملك أحدث إصدار"
End If
ملاحظة:
تستطيع جعل البرنامج يحمل عدد أكبر من الملفات إذا كان ذلك ضروريا
محمد جمال الذياب
MJXP7@HOTMAIL.COM
انتهى
في المرفقات البرنامج كامل مع الكود
