ahmad19
July 19th, 2015, 04:19
سلام
دوستان من یه برنامه ای نوشتم با چند تا اجزای ساده که کارش فقط دانلود یه فایل خاص هست
برنامه تایمر داره و هر 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
دوستان من یه برنامه ای نوشتم با چند تا اجزای ساده که کارش فقط دانلود یه فایل خاص هست
برنامه تایمر داره و هر 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