اپدیت برنامه؟؟

[armin6]

درود
دوستان بنده یه برنامه دارم که بعد نصب قراره یه فایل رو تو سیستم 32 یا خود مسیر برنامه کپی کنه
حالا این فایل باید هرازگاهی اپدیت بشه از طریق اینترنت
میخواستم ببینم اگر ممکنه یک سورس قرار بدید
چندین سورس بود به کارم نیومد
نکته:من خود برنامه رو نمیخوام اپدیت کنم میخوام از طریق برنامه اون فایل روو اپدیت کنم

[رامین مرادی]

آپديت خودت رو هميشه تو يه هاستي بزار و با اف تي پي از نرم افزار مقصد ليست فايل هاي هاست رو بگير اگه نسخه جديدي بود دانلودش كن .

[armin6]

مرسی عزیز اما مشکل من با نوشتن برنامشه
هاست مشکلی نیست دارم هاست
از دوستان اکر کسی بلد هست لطف کنه چیزی که گفتم رو برام قراره بده (البته ببخشید میدونم خودم باید بنویسم ولی من برنامه نویسیم خوب نیست )

[mmssoft]

برای این کار تاپیک های مختلفی وجود داره مثـل ایــــــن (http://barnamenevis.org/showthread.php?411628) که میشه ازش ایده گرفت؛ جدا از اون یک افزونه به اسم iDownloader هست که کار رو راحت میکنه. شما اول میتونید فایل Textی که نسخه جدید برنامتون توش نوشته شده رو توی هاست آپلود کنید و بعد با استفاده از این افزونه اون رو پوشه Temp ویندوز دانلود کنید. بعد توی برنامه میاید چک میکنید که اگر عدد نوشته شده توی فایل text بزرگتر از عدد ورژن فعلی برنامه کاربر بود، پیغام بده که نسخه جدید در دسترس هست و باز با استفاده از همون افزونه میشه نسخه جدید رو دانلود کرد. [توی ضمیمه آموزش کار با افزونه و فایل ocx رو گذاشتم]

فرض کنید این مسیر فایل text هست :
http://www.mywebsite.com/nv.txt

و محتویاتش این هست :
3.3

و این هم همیشه آدرس نسخه جدید نرم افزارتون هست :

http://www.mywebsite.com/setup.exe

حالا اینجوری مینویسید :

On Error Resume Next

Dim dL As Long, oV As Double, nV As Double, b

dL = Download1.DownloadFile("http://www.mywebsite.com/nv.txt", Environ("Temp") & "\appnv.txt")

If dL = 0 Then

MsgBox "Update Failed, Please Try Again!", vbExclamation, "Error"
Else
oV = Val(Trim(Str(App.Major)) & "." & Trim(Str(App.Minor)))

Open Environ("Temp") & "\appnv.txt" For Input As #1
nV = Val(Input(LOF(1), 1))
Close #1

Kill Environ("Temp") & "\appnv.txt"

If nV > oV Then

b = MsgBox("A New Version is Avaliable, Do you want to Update?", vbQuestion + vbYesNo, "Update")

If b = vbYes Then

dL = Download1.DownloadFile("http://www.mywebsite.com/setup.exe", App.Path & "\Setup.exe")

If dL = 0 Then
MsgBox "Download Failed, Please Try Again!", vbExclamation, "Error"
Else
MsgBox "New Version is downloaded, You may update now!", vbInformation
End If

End If


Else

MsgBox "You are using the latest version of software!", vbInformation

End If

End If

این چیزی هست که من نوشتم و بعضی از قسمت های اون رو میتونید به دلخواه تغییر بدید،مثلا میتونید کاری کنید که آدرس نسخه جدید برنامه هم از یک فایل text دیگه توی هاست تون خونده بشه و از اونجا دانلود بشه و ...

[armin6]

سورستون خیلی خوب بود
فقط اگر همون سورس میشد کاری کرد که حجم فایل رو چک کنه خیلی خوب میشه
یعنی فایلی که ما حالا تو سیستم 32 یا هرجای دیگه ای ریختیم اگر حجمش کمتر اون فایل روی وب بود اپدیت کنه

[mmssoft]

تابع FileLen حجم فایل رو بر حسب بایت بر میگردونه، برای مثال :

Dim txtSize As Double

txtSize = FileLen (Environ("Temp") & "\appnv.txt")

[armin6]

مرسی عزیز
یه سئوال دیگه دارم البته خارج این تاپیک
من میخواستم بدونم میشه بک گراند پیکچر باکس را حذف کرد؟؟؟ عکسم یک بکگراند سفید داره میخواستم حذفش کنم