Update کردن برنامه

[Restlesa]

سلام بر دوستان عزیز
پروژه ای پیدا کردم برای Updat کردن برنامه هایی که می نویسیم اما کار باهاشو بلد نیستم(چیزی ازش سر در نیاوردم) گفتم در اینجا به اشتراک بزارمش شاید کسی از دوستان کارباهاشو فهمید و به من و ما بقیه ی دوستان هم توضیح داد

[saeedvir]

منم از اين كد براي آپديت كردن برنامه آنتي ويروس ام استفاده كردم (اينجا (http://www.pcdoctor.blogveb.com/More/77-Pc%20Security%20Doctor%20v4.0.4%20Final%20%D8%AD%D 8%B1%D9%81%D9%87%20%D8%A7%D9%8A%20%D8%AA%D8%B1%D9% 8A%D9%86%20%D8%A7%D8%A8%D8%B2%D8%A7%D8%B1%20%D9%85 %D9%82%D8%A7%D8%A8%D9%84%D9%87%20%D8%A8%D8%A7%20%D 9%88%D9%8A%D8%B1%D9%88%D8%B3%20%D9%87%D8%A7) و اينجا (http://www.pcdoctor.blogveb.com/))

استفاده :

دانلود فايل :


FileDownloader.DownloadFile "http://www.site.com/file.exe", App.Path & "\File.exe"


توقف دانلود :


FileDownloader.Cancel



وقتي دانلود كامل شد :


Private Sub FileDownloader_DowloadComplete()

MsgBox "Download complete", vbOKOnly + vbInformation, "Success"

End Sub

وقتي دانلود Error داد :


Private Sub FileDownloader_DownloadErrors(strError As String)

MsgBox strError, vbOKOnly + vbCritical, "Error"

FileDownloader.Cancel

End Sub


مقدار ProgressBar :


Private Sub FileDownloader_DownloadProgress(intPercent As String)
ProgressBar.Value = intPercent
End Sub

[Restlesa]

از توضیحاتت ممنون ولی من به جوابم نرسیدم

منظور از کد زیر چیه ؟؟؟

website = Inet1.OpenURL("http://www.basava.ir/UpdateCenter/version.txt")
و همین طور این کد:

Open App.Path & "\VER.txt" For Input As #1
Version = Input(LOF(1), 1)
Close #1

و این یکی:

Open "VER.txt" For Output As #1
Print #1, website
Close #1

[saeedvir]

منظور از :


website = Inet1.OpenURL("http://www.basava.ir/UpdateCenter/version.txt")

متغيير website را برابر مقداري كه (مقدار رشته اي) در داخل فايل version.txt در آدرس مورد نظر وجود داره



Open App.Path & "\VER.txt" For Input As #1
Version = Input(LOF(1), 1)
Close #1

اينم كه فايل ver.txt را باز مي كنه (مي خواهد كه نسخه فعلي را بخونه)



Open "VER.txt" For Output As #1
Print #1, website
Close #1

و اينم كه فايل vber.txt را به روز رساني مي كنه (داخلش متغيير website را مي نويسه)

[Restlesa]

دوست عزيز حالا من بايد چه طوري از اين سورس استفاده كنم‌ ؟؟؟
منظورم اينه كه مقدار فايل VER كه در پروژه ي اي كه ضميمه كردم و Version.txt كه درفضاي وب قرار داره بايد چند باشه ؟؟؟
:متفکر::متفکر::متفکر::متفکر::� �تفکر::متفکر::متفکر::متفکر::م� �فکر:

[majjjj]

ببینید روشی که اینجا ارائه شده به این صورته که شما اول ورژن فایلی که روی سیستم خودتون هست رو پیدا میکنید
بعدش از روی یک فایل متنی که روی نت دادین ورژن فایل اجرایی که روی نت داری رو میخونی
حالا این دوتا رو با هم مقایسه میکنی در صورتی که این ها با هم یکی نبودن اون فایل جدید تر رو از روی نت دانلود میکنی
کد هاش رو هم که داری

[Restlesa]

ببینید روشی که اینجا ارائه شده به این صورته که شما اول ورژن فایلی که روی سیستم خودتون هست رو پیدا میکنید
بعدش از روی یک فایل متنی که روی نت دادین ورژن فایل اجرایی که روی نت داری رو میخونی
حالا این دوتا رو با هم مقایسه میکنی در صورتی که این ها با هم یکی نبودن اون فایل جدید تر رو از روی نت دانلود میکنی
کد هاش رو هم که داری

یه دنیا ممنون
:بوس::بوس::بوس::بوس::بوس:

[nice2net]

FileDownloader.DownloadFile "http://www.site.com/file.exe", App.Path & "\File.exe" اين كد تو كد برنامه نيستش بعد ماله خودشو هم كه مي نويسم ارور ميده

[nice2net]

كسي نيس كمكمون كنه؟