[Basil Abdallah]

السلام عليكم ورحمة الله وبركاته

المثال بالاسفل يوضح فكرة لابلاغ العملاء بوجود تحديث للبرنامج 

وهو يوضح الفكرة المعتمدة حاليا لاغلب البرامج البسيطة

[bidaya]

الله ينورك اخي شكرا لك

[Basil Abdallah]

العفـــــــــــــــــــو =)

[CLARO]

اشكرك اخي العزيز

[dubai.eig]

(23-12-16, 08:40 PM)Basil Abdallah كتب :

السلام عليكم ورحمة الله وبركاته

المثال بالاسفل يوضح فكرة لابلاغ العملاء بوجود تحديث للبرنامج 

وهو يوضح الفكرة المعتمدة حاليا لاغلب البرامج البسيطة

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

قمت بتجربة 

كود :

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

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

إقتباس :حدث خطأ

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

وشكرا

[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) إنشاء باستعمال النمط البسيط
بعد ذلك الخيارات تكون كما ففي الصورة 



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


الان اصبحت لدييك صفحة ممرفوعة على الانترنت

اذا ما فهمت راسلني خاص

[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) إنشاء باستعمال النمط البسيط
بعد ذلك الخيارات تكون كما ففي الصورة 



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


الان اصبحت لدييك صفحة ممرفوعة على الانترنت

اذا ما فهمت راسلني خاص

اهلا بك عزيزي

هذه الصفحة 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

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

---

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

حدث خطأ

[dubai.eig]

(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) إنشاء باستعمال النمط البسيط
بعد ذلك الخيارات تكون كما ففي الصورة 



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


الان اصبحت لدييك صفحة ممرفوعة على الانترنت

اذا ما فهمت راسلني خاص

اهلا بك عزيزي

هذه الصفحة 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]

العفو اهلا بك كان من الاول لازم تقول للي انها كمثال

[ابو روضة]

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