23-12-16, 08:40 PM
السلام عليكم ورحمة الله وبركاته
المثال بالاسفل يوضح فكرة لابلاغ العملاء بوجود تحديث للبرنامج
وهو يوضح الفكرة المعتمدة حاليا لاغلب البرامج البسيطة 
الصفحات : 1 2
27-12-16, 11:41 PM
29-12-16, 11:25 PM
30-12-16, 02:32 PM
04-01-17, 09:16 PM
(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
بس البرنامج يفتح حتى في حالت غيرة رقم الاصدار وعند الضغط على التحديث يعطيني
إقتباس :حدث خطأ
هل هناك غلط عملته
وشكرا
04-01-17, 10:50 PM
اهلا اخي العزيز
اولا ما هذه الصفحة 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 ؟
صفحة فارغة ؟
قم بانشاء منتدى خاص فيك على شركة احلى منتدى
ومن خلال المنتدى قم بعمل صفحة html وضع الكود الي انت سويته
رابطط الشركة
https://www.ahlamontada.com/create-free-forum
من السهل التسجيل فيها ولكن
هذ الفيديو يشرح طريقة التسجيل
https://www.youtube.com/watch?v=MMr332orLcE
بعد ذلك قم بتفعيل منتداك من الرابط االي رح يوصلك ع الايميل
بعد ذلك اذهب لمنتداك عن طريق الرابط الي اخترته في اثناء عملية التسجيل
وبعد دخولك للمنتدى قم بتسجيل الدخول مع العلم ان اسمالمستخدم هو Admin وكلمة المرور هي الي اخترتها اثناء التسجيل
بعد تسجيل الدخول اانتقل الى اسفل الصفحة الرئيسية لتجد كلمة لوحة الادارة في الاسفل اخر شي
اضغط عليها ثم ستنتقل الى لوحة التحكم الخاصة بالمنتدى
انقر على خيار عناصر اضافية
ثم بعد ذلك انتقل الى اسفل الصفحة لتجد على اليمين زر ادارة صفحات HTML اضغط عليه
ثم انقر على (WYSIWYG) إنشاء باستعمال النمط البسيط
بعد ذلك الخيارات تكون كما ففي الصورة
بعد الضغط على زر قدم ستتوجة الى صفحة تفيد انه تم رفع الصفحة
انزل لتحت شوي
و ستجد الرابط بالمكان المحدد
الان اصبحت لدييك صفحة ممرفوعة على الانترنت
اذا ما فهمت راسلني خاص
04-01-17, 11:11 PM
(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لان يطلب مني التحديث دائما خصوصا بان رقم الاصدار متشابه
الملف موب راضي ينزل
حدث خطأ
05-01-17, 12:21 AM
(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
لان يطلب مني التحديث دائما خصوصا بان رقم الاصدار متشابه
الملف موب راضي ينزل
حدث خطأ
شكرا لك ضبط معاي
05-01-17, 12:30 PM
العفو اهلا بك كان من الاول لازم تقول للي انها كمثال 
06-01-17, 07:58 AM
الصفحات : 1 2