تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[مثال] مثال ابلاغ عملائك بوجود تحديث للبرنامج
#1
Lightbulb 
السلام عليكم ورحمة الله وبركاته
المثال بالاسفل يوضح فكرة لابلاغ العملاء بوجود تحديث للبرنامج 
وهو يوضح الفكرة المعتمدة حاليا لاغلب البرامج البسيطة Blush


الملفات المرفقة
.rar   Exa1.rar (الحجم : 60.59 ك ب / التحميلات : 680)
الرد
#2
الله ينورك اخي شكرا لك
[صورة مرفقة: 000.gif]
الرد
تم الشكر بواسطة: Basil Abdallah , CLARO
#3
العفـــــــــــــــــــو =)
الرد
تم الشكر بواسطة: CLARO
#4
اشكرك اخي العزيز
(( نحن قوم أعزنا الله بالإسلام فمهما ابتغينا العزة بغيره أذلنا الله )) .. 











الرد
تم الشكر بواسطة:
#5
(23-12-16, 08:40 PM)Basil Abdallah كتب :
السلام عليكم ورحمة الله وبركاته
المثال بالاسفل يوضح فكرة لابلاغ العملاء بوجود تحديث للبرنامج 
وهو يوضح الفكرة المعتمدة حاليا لاغلب البرامج البسيطة Blush

شكرا لك على البرنامج الجميل

قمت بتجربة 

كود :
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
       Try
           TextBox1.Text = WebBrowser1.Document.GetElementById("vi").OuterText
           TextBox2.Text = WebBrowser1.Document.GetElementById("link").OuterText
           Timer1.Interval = 10000
           Timer1.Start()
       Catch ex As Exception

       End Try

   End Sub
   Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

       Timer1.Stop()
       Try

           If Not TextBox1.Text = "2.0 BETA" Then
               Dim result As Integer = MessageBox.Show("A new version is available would like to install it now ?", "install now version", MessageBoxButtons.YesNo)
               If result = DialogResult.Yes Then
                   My.Computer.Network.DownloadFile(TextBox2.Text, ".\Log.exe ")
                   MsgBox("update was successful!", MsgBoxStyle.Information)
                   Me.Hide()
                   Process.Start(".\Log.exe ")
                   End
               ElseIf result = DialogResult.No Then
               End If


           End If
       Catch ex As Exception
           MsgBox("Errer", MsgBoxStyle.Exclamation)
       End Try

   End Sub

  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        WebBrowser1.Navigate("http://log.com/h6-page")
    End Sub

قمت بتغيير 
           Timer1.Interval = 10000
           Timer1.Start()
       

لان اريده يقتح بعد ثواني بعد فتح البرنامج

وعملت ملف htm



كود :
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />

???? ???? :
<p id="vi">
                                              2.0 BETA                                          
</p>
      ???? ????? ???? ???? :      
<p id="link">
         http://log.com/Log.exe    
</p>

لو تلاحظ ان نفس الاصدار
2.0 BETA

بس البرنامج يفتح حتى في حالت غيرة رقم الاصدار  وعند الضغط على التحديث يعطيني 
إقتباس :حدث خطأ


هل هناك غلط عملته 

وشكرا
الرد
تم الشكر بواسطة:
#6
اهلا اخي العزيز
اولا ما هذه الصفحة http://log.com/h6-page ؟
صفحة فارغة ؟

قم بانشاء منتدى خاص فيك على شركة احلى منتدى
ومن خلال المنتدى قم بعمل صفحة html وضع الكود الي انت سويته
رابطط الشركة
https://www.ahlamontada.com/create-free-forum
من السهل التسجيل فيها ولكن
هذ الفيديو يشرح طريقة التسجيل
https://www.youtube.com/watch?v=MMr332orLcE

بعد ذلك قم بتفعيل منتداك من الرابط االي رح يوصلك  ع الايميل

بعد ذلك اذهب لمنتداك عن طريق الرابط الي اخترته في اثناء عملية التسجيل
وبعد دخولك للمنتدى قم بتسجيل الدخول مع العلم ان اسمالمستخدم هو Admin وكلمة المرور هي الي اخترتها اثناء التسجيل
بعد تسجيل الدخول اانتقل الى اسفل الصفحة الرئيسية لتجد كلمة لوحة الادارة في الاسفل اخر شي

اضغط عليها ثم ستنتقل الى لوحة التحكم الخاصة بالمنتدى
انقر على خيار عناصر اضافية
ثم بعد ذلك انتقل الى اسفل الصفحة لتجد على اليمين زر ادارة صفحات HTML اضغط عليه
ثم انقر على  (WYSIWYG) إنشاء باستعمال النمط البسيط
بعد ذلك الخيارات تكون كما ففي الصورة 



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


الان اصبحت لدييك صفحة ممرفوعة على الانترنت
Smile
اذا ما فهمت راسلني خاص
Basil Abdallah 

الرد
تم الشكر بواسطة: dubai.eig
#7
(04-01-17, 10:50 PM)Basil Abdallah كتب : اهلا اخي العزيز
اولا ما هذه الصفحة http://log.com/h6-page ؟
صفحة فارغة ؟

قم بانشاء منتدى خاص فيك على شركة احلى منتدى
ومن خلال المنتدى قم بعمل صفحة html وضع الكود الي انت سويته
رابطط الشركة
https://www.ahlamontada.com/create-free-forum
من السهل التسجيل فيها ولكن
هذ الفيديو يشرح طريقة التسجيل
https://www.youtube.com/watch?v=MMr332orLcE

بعد ذلك قم بتفعيل منتداك من الرابط االي رح يوصلك  ع الايميل

بعد ذلك اذهب لمنتداك عن طريق الرابط الي اخترته في اثناء عملية التسجيل
وبعد دخولك للمنتدى قم بتسجيل الدخول مع العلم ان اسمالمستخدم هو Admin وكلمة المرور هي الي اخترتها اثناء التسجيل
بعد تسجيل الدخول اانتقل الى اسفل الصفحة الرئيسية لتجد كلمة لوحة الادارة في الاسفل اخر شي

اضغط عليها ثم ستنتقل الى لوحة التحكم الخاصة بالمنتدى
انقر على خيار عناصر اضافية
ثم بعد ذلك انتقل الى اسفل الصفحة لتجد على اليمين زر ادارة صفحات HTML اضغط عليه
ثم انقر على  (WYSIWYG) إنشاء باستعمال النمط البسيط
بعد ذلك الخيارات تكون كما ففي الصورة 



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


الان اصبحت لدييك صفحة ممرفوعة على الانترنت
Smile
اذا ما فهمت راسلني خاص

اهلا بك عزيزي

هذه الصفحة http://log.com/h6-page   

مثال فقط

انا املك موقع خاص انزل في الملف

بس هل هذا الكود  صحيج

كود :
  <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
  <p id="vi">3.0 BETA</p>
  <p id="link">http://log.com/Log.exe</p>


كود :
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
      Try
          TextBox1.Text = WebBrowser1.Document.GetElementById("vi").OuterText
          TextBox2.Text = WebBrowser1.Document.GetElementById("link").OuterText
          Timer1.Interval = 10000
          Timer1.Start()
      Catch ex As Exception

      End Try

  End Sub
  Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

      Timer1.Stop()
      Try

          If Not TextBox1.Text = "2.0 BETA" Then
              Dim result As Integer = MessageBox.Show("A new version is available would like to install it now ?", "install now version", MessageBoxButtons.YesNo)
              If result = DialogResult.Yes Then
                  My.Computer.Network.DownloadFile(TextBox2.Text, ".\Log.exe ")
                  MsgBox("update was successful!", MsgBoxStyle.Information)
                  Me.Hide()
                  Process.Start(".\Log.exe ")
                  End
              ElseIf result = DialogResult.No Then
              End If


          End If
      Catch ex As Exception
          MsgBox("Errer", MsgBoxStyle.Exclamation)
      End Try

  End Sub

 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       WebBrowser1.Navigate("http://log.com/h6-page")
   End Sub



لان يطلب مني التحديث دائما خصوصا بان رقم الاصدار متشابه

الملف موب راضي ينزل

حدث خطأ
الرد
تم الشكر بواسطة:
#8
(04-01-17, 11:11 PM)dubai.eig كتب :
(04-01-17, 10:50 PM)Basil Abdallah كتب : اهلا اخي العزيز
اولا ما هذه الصفحة http://log.com/h6-page ؟
صفحة فارغة ؟

قم بانشاء منتدى خاص فيك على شركة احلى منتدى
ومن خلال المنتدى قم بعمل صفحة html وضع الكود الي انت سويته
رابطط الشركة
https://www.ahlamontada.com/create-free-forum
من السهل التسجيل فيها ولكن
هذ الفيديو يشرح طريقة التسجيل
https://www.youtube.com/watch?v=MMr332orLcE

بعد ذلك قم بتفعيل منتداك من الرابط االي رح يوصلك  ع الايميل

بعد ذلك اذهب لمنتداك عن طريق الرابط الي اخترته في اثناء عملية التسجيل
وبعد دخولك للمنتدى قم بتسجيل الدخول مع العلم ان اسمالمستخدم هو Admin وكلمة المرور هي الي اخترتها اثناء التسجيل
بعد تسجيل الدخول اانتقل الى اسفل الصفحة الرئيسية لتجد كلمة لوحة الادارة في الاسفل اخر شي

اضغط عليها ثم ستنتقل الى لوحة التحكم الخاصة بالمنتدى
انقر على خيار عناصر اضافية
ثم بعد ذلك انتقل الى اسفل الصفحة لتجد على اليمين زر ادارة صفحات HTML اضغط عليه
ثم انقر على  (WYSIWYG) إنشاء باستعمال النمط البسيط
بعد ذلك الخيارات تكون كما ففي الصورة 



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


الان اصبحت لدييك صفحة ممرفوعة على الانترنت
Smile
اذا ما فهمت راسلني خاص

اهلا بك عزيزي

هذه الصفحة http://log.com/h6-page   

مثال فقط

انا املك موقع خاص انزل في الملف

بس هل هذا الكود  صحيج

كود :
  <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
  <p id="vi">3.0 BETA</p>
  <p id="link">http://log.com/Log.exe</p>


كود :
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
      Try
          TextBox1.Text = WebBrowser1.Document.GetElementById("vi").OuterText
          TextBox2.Text = WebBrowser1.Document.GetElementById("link").OuterText
          Timer1.Interval = 10000
          Timer1.Start()
      Catch ex As Exception

      End Try

  End Sub
  Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

      Timer1.Stop()
      Try

          If Not TextBox1.Text = "2.0 BETA" Then
              Dim result As Integer = MessageBox.Show("A new version is available would like to install it now ?", "install now version", MessageBoxButtons.YesNo)
              If result = DialogResult.Yes Then
                  My.Computer.Network.DownloadFile(TextBox2.Text, ".\Log.exe ")
                  MsgBox("update was successful!", MsgBoxStyle.Information)
                  Me.Hide()
                  Process.Start(".\Log.exe ")
                  End
              ElseIf result = DialogResult.No Then
              End If


          End If
      Catch ex As Exception
          MsgBox("Errer", MsgBoxStyle.Exclamation)
      End Try

  End Sub

 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       WebBrowser1.Navigate("http://log.com/h6-page")
   End Sub



لان يطلب مني التحديث دائما خصوصا بان رقم الاصدار متشابه

الملف موب راضي ينزل

حدث خطأ


شكرا لك ضبط معاي
الرد
تم الشكر بواسطة: Basil Abdallah
#9
Shocked 
العفو اهلا بك كان من الاول لازم تقول للي انها كمثال Angel
Basil Abdallah 

الرد
تم الشكر بواسطة:
#10
اخى الاستاذ باسل ممكن تعمل شرح فيديو لهذا المشروع لو تكرمت كى نفهم
الرد
تم الشكر بواسطة: Basil Abdallah , Basil Abdallah


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [مثال] مثال عن رسم دوائر بشكل جميل عبد الهادي بهاب 0 85 09-09-20, 01:49 AM
آخر رد: عبد الهادي بهاب
  مثال على عمل qr code و قرائة ال qr code من ملف صورة او من الشاشة mohamed haroon 4 2,242 08-09-20, 10:48 AM
آخر رد: Emad aldeen
  [مشروع] تحديث تلقائي لمشروعك Codack 1 440 06-09-20, 01:57 AM
آخر رد: IQ-TeaM
  تحديث أداة الويب براوزر WebBrowser خالد 10 2,592 29-08-20, 03:47 AM
آخر رد: Ali 2020
  مثال بسيط للنقل المواد بين المخازن ارجو ان يعجبكم خالد كامل1 1 136 27-08-20, 10:35 PM
آخر رد: خالد كامل1
  [VB.NET] {تم تحديث الرابط} برنامج يقوم بجعل USB قابلا للاقلاع معاند الحظ 4 2,939 13-08-20, 12:35 PM
آخر رد: معاند الحظ
  [كود] مثال عن رسم خط مستقيم بين نقطتين عبد الهادي بهاب 7 366 07-08-20, 04:52 AM
آخر رد: عبد الهادي بهاب
  مثال استيراد اى ملف اكسيل وتصدير البيانات الى ملف اكسيل new_programer 2 922 05-08-20, 07:31 PM
آخر رد: عبد الهادي بهاب
  [Acces2007] مثال على شجرة محاسبية Mohamad Anan 2 417 30-07-20, 02:38 PM
آخر رد: المعترس
  مثال في عمل النسخة الاحتياطية مع ضغط الملف asemshahen5 0 184 26-07-20, 02:09 AM
آخر رد: asemshahen5

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم