-
July 19th, 2015, 04:19
#1
عضو انجمن
ارور در هنگام کار کردن برنامه
سلام
دوستان من یه برنامه ای نوشتم با چند تا اجزای ساده که کارش فقط دانلود یه فایل خاص هست
برنامه تایمر داره و هر 10 دقیقه دوباره اجرا می شه
تو هارد چک می کنه اگه فایل موجود باشه پاکش می کنه و دوباره دانلودش می کنه
حالا مشکل من اینجاست که اگه تو این 10 دقیقه فایل کامل دانلود نشه یا یه لحظه ارتباط سرور از دست بره برنامه هنگ می کنه و ارور می ده و دیگه اجرا نمی شه تا ببندیش و دوباره بازش کنی
می خواستم ببینم اگه بخوام برنامه رو عوض کنم و مثلا جای تایمر رو بدم به یه متغیر که مثلا بعد از اتمام دانلود متغیر بشه 1 ، یه while باشه که چک کنه و هر وقت متغیر شد 1 فایل رو پاک کنه و دانلود رو مجدد شروع کنه و متغیر رو بکنه 0
این روش شدنیه و آیا جواب می ده برا همچین کاری؟
سورس فایل البته به زبان vb
کد:
Public Class Form1
Dim retval As String
Dim Directory As Object
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
If System.IO.File.Exists("c:\DVD5.iso") Then
Kill("c:\DVD5.iso")
My.Computer.Network.DownloadFile("http://79.175.171.82/DVD5.iso", "c:DVD5.iso")
End If
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
retval = Dir$("c:DVD5.iso")
If retval = "DVD5.iso" Then
Kill("c:\DVD5.iso")
Else
My.Computer.Network.DownloadFile("http://79.175.171.82/DVD5.iso", "c:\DVD5.iso")
End If
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
My.Computer.Network.DownloadFile("http://79.175.171.82/DVD5.iso", "c:DVD5.iso")
End Sub
End Class
شرکت فنی و مهندسی دانش بنیان پاسارگاد تلگرام: 09101004330 احمد مهدیلو
سفارش ها در http://021host.eu
تماس مستقیم : 00436889587387 Telegram: @mahdilou
-
-
July 19th, 2015 04:19
# ADS