PDA

View Full Version : ساخت آپدیت برای برنامه



albalooband
دوشنبه 17 فروردین 1388, 14:40 عصر
سلام
میخوام واسه برنامم آپدیتر بزارم
یعنی با زدن یک دکمه،برنامه چک کنه که آیا من نسخه جدیدی رو گزاشتم یا نه.
اگه گزاشته باشم .نصب بشه رو همین برنامه ای که نصبه.(بدون نیاز به نصب)
اگه نزاشته باشم هم که هیچ
خلاصه سوالم:
آپدیت کردن برناه از اینترنت

امید وارم تونسته باشم منظورم رو بیان کنم

Babak.Hassanpour
دوشنبه 17 فروردین 1388, 14:55 عصر
سلام عزیز جان بفرما


Dim website As String
Dim Update As String
Dim Version As Integer
Dim Download
website = Inet1.OpenURL("http://www.yourSite.com/file/version.txt")
Version = "1.1"
If Version = website Then
MsgBox ("There are is no new version available.")
Else
Update = Inet1.OpenURL("http://www.yourSite.com/file/update.txt")
Download = MsgBox(Update, vbYesNo)
If Download = vbYes Then
WebBrowser1.Navigate "http://www.yourSite.com/file/hc_sig_madman.rar"
End If
End If

Babak.Hassanpour
دوشنبه 17 فروردین 1388, 15:10 عصر
راستی یادم رفت بگم وقتی برنامه ات در حال اجرا باشه نمی تونه آپدیت رو جایگزین کنه.یه نمونه کد جناب mbt925 واسه رفع این مشکل گزاشته بودن اینم آدرسش:
http://barnamenevis.org/forum/showpost.php?p=697366&postcount=325

albalooband
دوشنبه 17 فروردین 1388, 21:06 عصر
سلام عزیز جان بفرما


Dim website As String
Dim Update As String
Dim Version As Integer
Dim Download
website = Inet1.OpenURL("http://www.yourSite.com/file/version.txt")
Version = "1.1"
If Version = website Then
MsgBox ("There are is no new version available.")
Else
Update = Inet1.OpenURL("http://www.yourSite.com/file/update.txt")
Download = MsgBox(Update, vbYesNo)
If Download = vbYes Then
WebBrowser1.Navigate "http://www.yourSite.com/file/hc_sig_madman.rar"
End If
End If





اگه میشه یه توضیح کامل بدید.
آخه من دانش آموزم :لبخند:

Babak.Hassanpour
دوشنبه 17 فروردین 1388, 22:20 عصر
به پروژه آماده گزاشتم واست

albalooband
سه شنبه 18 فروردین 1388, 00:21 صبح
دوستان
Microsoft internet transfer control man مشکل داره
این ارور رو میده.
چیکار کنم؟ کسی میتونه بده؟چطور نصبش کنم؟
عکس ارور:
http://zohrebala.persiangig.com/untitled.bmp

reza_akbari2009
جمعه 12 تیر 1388, 10:11 صبح
سلام آقا بابک میشه این برنامه رو ضمیمه کنید؟
من هر کار میکنم توی خط
WebBrowser1.Navigate "http://www.yourSite.com/file/hc_sig_madman.rar
ارور method or data member not found رو میده خواهش میکنم اصلاح کنید برنامه رو ممنون

alih110
جمعه 12 تیر 1388, 11:22 صبح
دوست عزیز فکر کنم آدرس ها رو شما باید خودتون بذارید این ها فقط مثال هستش .

alih110
جمعه 12 تیر 1388, 11:24 صبح
دوستان
Microsoft internet transfer control man مشکل داره
این ارور رو میده.
چیکار کنم؟ کسی میتونه بده؟چطور نصبش کنم؟
عکس ارور:
http://zohrebala.persiangig.com/untitled.bmp




دوست عزیز ارور شما مشخص نیست فایلتون خرابه !!!!!!!!!!!!! :لبخندساده: