كود التحديث - ارجو الشرح

دالة URLDownloadToFile تستخدم لتنزيل ملف من على الأنترنت (مش بالضبط لكن دى النتيجة النهائية) .

المشروع ببساطة يقوم بتنزيل ملف نصى من على سيرفر يسمح بذلك ثم قرأة و تحليل محتويات الملف و المقرنة مع الأصدار الحالى لمعرفة أن كان فى تحديث جديد أم لا.

انا فهمت الكود شنو يسوي

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

بل اريد فهمه لكتابته

واعرف شنو يسوي كما اني مستعملنه

و فيه مشكلو انهو ما ينزل حجم كبير

عندي سؤال خارج الموضوع ::

هل توقيعي به شيء مخالف لقوانين المنتدى :: مكتوب فيه شهادة مزورة :)

ولا حاجة غير أنهم هيصادروا جهازك و يبعتوه ليا علشان جهازى قرب يبقى قطعة حديد :lol: .

ياشباب كيف اعمل تحديث مثل البرامج الأخرى اول ما اشغل البرنامج يدور على تحديث ثم يحدث

كيف نعمل هذه الشغلة

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

Private Sub Command1_Click()
	lngRetVal = URLDownloadToFile(0, "http://vb.projects1.googlepages.com/remindingv3.5.txt", Path + "v2.txt", 0, 0)

	Open Path + "v2.txt" For Input As #1
	v2.Caption = Input(LOF(1), 1)
	Close #1

	If Val(v2.Caption) > Val(v1.Caption) Then
		MsgBox "íæÌÏ ÇÕÏÇÑ ÍÏíË æÓíÊã ÊÍÏíË ãäÊÌß"

		Timer1.Enabled = True


		lngRetVal = URLDownloadToFile(0, "http://vb.projects1.googlepages.com/remindingv3.5.exe", Path + "remindingv3.exe", 0, 0)

		Open Path + "v.txt" For Binary As #1
		Put #1, 1, v2.Caption
		Close #1
		MsgBox "Êã"
	   End
	Else
		MsgBox "ÇäÊ Êãáß ÇÍÏË ÇÕÏÇÑ"
	End If
End Sub

Private Sub Form_Load()
	   Open Path + "remindingv3.txt" For Input As #1
	v1.Caption = Input(LOF(1), 1)
	Close #1
End Sub

Private Sub Timer1_Timer()
	If label3.Caption = "........................................" Then
		label3.Caption = ""
	End If
	For i = 1 To 40
		For f = 1 To i
			label3.Caption = label3.Caption + "."
		Next
		Exit Sub
	Next
End Sub

هذا كود لتحديث يا اخي

اقتباس

الحبيب99