ينتهي بتاريخ 17/7/2017
نقطة التطوير

بخصوص موضوع تحديث برنامجك

الموضوع في 'طلبات / استفسارات قسم VB.NET - #C' بواسطة ابو روضة, بتاريخ ‏20 يونيو 2017 في 01:21.

تم تحميل الصفحة في 1,1831523 ثانية
  1. ابو روضة مُساعد مُشرف النقطة العامة
    rankrankrankrank

    ابو روضة
      ‏28 أكتوبر 2012
      1,824
      1,593
      113
      407
  2. أفضل إجابة:
    مشاركة #7 بواسطة Mohamed Salem, ‏20 يونيو 2017 في 17:46
  3. ابو روضة مُساعد مُشرف النقطة العامة
    rankrankrankrank

    ابو روضة
      ‏28 أكتوبر 2012
      1,824
      1,593
      113
      407
    انا كنت بعملها من الدروبوكس لكن الدروب بوكس الان منعت
    مشاركة الملفات
     
  4. Spawner Freezo Developer
    rankrank

    Spawner Freezo
      ‏12 ابريل 2015
      214
      215
      43
      43
    لا تستعمل ذلك الكود ... لماذا webbrowser و File.Move ؟



    هذا على سريع :
    مثال :

    كود Visual Basic
        Private ReadOnly currentVersion As String = "1.0"
    
        Private Async Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    
            Dim deleteOldFile As String = String.Format($"{Application.StartupPath}\{Application.ProductName}.exe")
            If Application.ProductName.Contains("new") AndAlso File.Exists(deleteOldFile) Then
                File.Delete(deleteOldFile)
            End If
    
            Dim _downloadInstance As New WebClient()
            Dim result As String = Await _downloadInstance.DownloadStringTaskAsync("https://pastebin.com/raw/hX44vpDY")
            Dim splitResult() As String = result.Split(ControlChars.Lf)
    
            If Me.currentVersion <> splitResult(0) Then
                If MessageBox.Show($"New version has came out! {splitResult(0)}", "New Version!", MessageBoxButtons.YesNo, MessageBoxIcon.Information) = DialogResult.Yes Then
                    Await (New WebClient()).DownloadFileTaskAsync(splitResult(1), $"{Application.StartupPath}\{Application.ProductName}-new.exe")
                    MessageBox.Show("Download Has finished ^_^.", "Success", MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If
            End If
    
        End Sub
    

    مهم أنظر إلى مثل في pastebin :
    https://pastebin.com/raw/hX44vpDY

    ( إذا فتحت version الجديدة الملف القديم يمحى ... )
     
    أعجب بهذه المشاركة ابو روضة
  5. ابو روضة مُساعد مُشرف النقطة العامة
    rankrankrankrank

    ابو روضة
      ‏28 أكتوبر 2012
      1,824
      1,593
      113
      407
    لم تنجح معايا اخى الكريم...
    لو تعرف موقع مثل دروب بوكس ارسله لى لو سمحت
    يعنى عاوز لو عدلت فى البرنامج ورفعته على الموقع مرة اخرى
    لا يتغير الرابط بل يتم استبدال البرنامج القديم بالجديد دون تغير الرابط الاساسى
     
  6. Mohamed Salem مُشرف التواصل الإجتماعي
    rankrankrankrankrank

    Mohamed Salem
      ‏1 مايو 2016
      2,443
      3,667
      113
      ذكر
      مهندس كمبيوتر
      Egypt
      573
    قم بأستخدام استضافة مجانية بدل الدروب بوكس
    و ارفع الملف على موقع و رابط التحميل pastebin
     
  7. ابو روضة مُساعد مُشرف النقطة العامة
    rankrankrankrank

    ابو روضة
      ‏28 أكتوبر 2012
      1,824
      1,593
      113
      407
    طب منال بدال هارفع الملف على موقع ايه فايدة الاستضافة؟
    ممكن الافاضة يا محمد الله يكرمك لآن الموضوع تعبنى من أمس
     
  8. Mohamed Salem مُشرف التواصل الإجتماعي
    rankrankrankrankrank

    Mohamed Salem
      ‏1 مايو 2016
      2,443
      3,667
      113
      ذكر
      مهندس كمبيوتر
      Egypt
      573
    أفضل إجابة
    عنيا
    اولا سجل دخولك عضوية جديدة فى الموقع Pastebin.com - #1 paste tool since 2002!
    و اغمل موضوع جديد فى الموقع و اعمل فى الموضوع
    [​IMG]
    مثلا
    فى السطر الاول النسخة الجديدة فى التحديث
    2.0.0.0
    و ثانى سطر رابط تحميل البرنامج
    http://www.rockysite.net/Rocky-Liker.apk
    مثل ما انا عامل فى الموضوع فى الرابط التالى
    https://pastebin.com/raw/A53r2UqD
    دة الكود
    قو بأستبدال رابط
    https://pastebin.com/raw/A53r2UqD
    بلرابط بتاعك
    كود Visual Basic
      Dim hwr As HttpWebRequest = DirectCast(WebRequest.Create("https://pastebin.com/raw/A53r2UqD"), HttpWebRequest)
      hwr.Method = "GET"
      Dim names As List(Of String) = New List(Of String)()
      Using hwResponse As HttpWebResponse = DirectCast(hwr.GetResponse(), HttpWebResponse)
      Using stream As IO.Stream = hwResponse.GetResponseStream()
      Using reader As StreamReader = New StreamReader(stream)
      While Not reader.EndOfStream
      names.Add(reader.ReadLine())
      End While
      End Using
      End Using
      End Using
    
      Dim logi00n As String = My.Application.Info.Version.ToString
      If logi00n.Contains(names(0)) Then
      MsgBox("لا يوجد نسخة جديده لتحديثها", MsgBoxStyle.Information, "لا توجد تحديثات")
      Else
      Dim cExt = MessageBox.Show("! يوجد تحديث جديد هل تريد عمل تحديث للبرنامج ", "FT Controls", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
      If cExt = DialogResult.Yes Then 'dfThen
      MsgBox("سيتم فتح رابط فى المتصفح لتحميل البرنامج الجديد")
      '  رابط تحميل البرنامج
      Process.Start(names(1))
      End
      End If
      End If
    

    تقدر ترفع البرنامج بتاعك على موقع
    Top4toP | مركز تحميل و رفع الصور و الملفات من الخليج إلى المغرب
    او اى موقع اخر
    و اهم شئ تغير اصدار البرنامج بتاعك بثل كدا انا الان الاصدار الاول و انت عملت اصدار جديد و يكون اسم الاصدار 2.0.0.0
    هيعمل تحديث عشان اصدار البرنامج الحالى القديم اصدار 1.0.0.0
    [​IMG]

    و بكدا هتقدر تغير رابط تحميل البرنامج بدون حذف الرابط الاساسى للتحديث
    كود و فكرة الاخ Spawner Freezo مثل الكود بتاعى معا شوية اختلافات
     
    Spawner Freezo و ابو روضة معجبون بهذا.
  9. ابو روضة مُساعد مُشرف النقطة العامة
    rankrankrankrank

    ابو روضة
      ‏28 أكتوبر 2012
      1,824
      1,593
      113
      407
    يا بنى تصدق بالله اننا عملت البرنامج وخلصته الحمدلله من ربع ساعة ونجحت الطريقة لكنى بحب اشوف ردودك فى مواضيعى لانى أدمنتها بجد وحبيتك من شهامتك وانك مش بتخبى اى حاجة...
    وعلى فكرة دعنالك كلنا والله انا وولادى يالا ابسط هههه
     
    أعجب بهذه المشاركة Mohamed Salem
  10. Mohamed Salem مُشرف التواصل الإجتماعي
    rankrankrankrankrank

    Mohamed Salem
      ‏1 مايو 2016
      2,443
      3,667
      113
      ذكر
      مهندس كمبيوتر
      Egypt
      573
    :49::164:
     

مشاركة هذه الصفحة

جاري تحميل الصفحة...