[الشاكي لله]

الطريقة الي استعلمتها في احد برامجي كانت بالستعمال التحقق من رقم النسخة الجديدة الموجودة في ملف نصي على هوست ftp

ويقارنها برقم النسخة الحالية الي هو عبارة عن ثابت في البرنامج باسم version

اذا الرقم الي في الهوست اكبر من version

نزل الملف المحدد(ألابديت)

طبعا كل مرة تبي تسوي ابديت لازم تحدث الرقم الموجود في الملف النصي الى رقم اكبر

وتستبدل ملف الابديت


الكود مكتوب باسي شارب

كود :

internal void FindUpdate()
{
    try
    {
         WebClient client = new WebClient {
         Credentials = new NetworkCredential("USER", "PASS")

       // اذا الرقم الي في الملف اكبر من رقم النسخة الحالية قم بتنزيل الابديت
        if (Convert.ToDouble(client.DownloadString("ftp://FTPHOST/UpdateFileVersion.txt")) > this.version)
        {

            client.DownloadProgressChanged += new DownloadProgressChangedEventHandler(this.wc_DownloadProgressChanged);
            client.DownloadFileCompleted += new AsyncCompletedEventHandler(this.wc_DownloadFileCompleted);


            client.DownloadFileAsync(new Uri("ftp://FTPHOST.com/Update.exe"), Application.StartupPath + @"\Update.exe");
        }
    }
    catch
    {
    }
}

حولته لك vb.net

كود :

Friend Sub FindUpdate()
    Try
        Dim client As New WebClient
            client.(Credentials = New NetworkCredential("USER", PASS
        
        If (Convert.ToDouble(client.DownloadString("ftp://FTPHOST/UpdateFile.txt")) > Me.version) Then
                       AddHandler client.DownloadProgressChanged, New DownloadProgressChangedEventHandler(AddressOf Me.wc_DownloadProgressChanged)
            AddHandler client.DownloadFileCompleted, New AsyncCompletedEventHandler(AddressOf Me.wc_DownloadFileCompleted)
            client.DownloadFileAsync(New Uri("ftp://FTPHOST.com/Update.exe"), (Application.StartupPath & "\Update.exe"))
        End If
    Catch obj1 As Object
    End Try
End Sub