تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] كيف اسوي رسال ابديت
#1
السلام عليكم


شباب انا ابغا اسوي طريقة



ان في صفحة ويب مشغله في البرنامج

ومكتوب فيها مثال كذا

1134254


ابغا اذا تغير الي مكتوب في الصفحة يطلع رساله من اول ما تشغل البرنامج انه في تحديث جديد


او اي طريقة المهم ان ما يقدر يستخدم البرنامج ا بعد الابديت وياريت في طريقة



وشكرا
الرد }}}
تم الشكر بواسطة:
#2
لا احد يعرف
الرد }}}
تم الشكر بواسطة:
#3
http://vb4arb.com/vb/thread-409.html
الرد }}}
تم الشكر بواسطة:
#4
(03-08-14, 08:22 PM)ali.alfoly كتب : http://vb4arb.com/vb/thread-409.html

اخوي المشروع محذوف الله يعافيك مافي طريقة ثانيه
الرد }}}
تم الشكر بواسطة:
#5
تفضل اخي


الملفات المرفقة
.zip   Forum_updater.zip (الحجم : 50.77 ك ب / التحميلات : 71)
الرد }}}
تم الشكر بواسطة:
#6
(03-08-14, 09:46 PM)ali.alfoly كتب : تفضل اخي

الله يعطيك العافيه بس انا مش فاهم فكرة البرنامج اذا ممكن تشرح
الرد }}}
تم الشكر بواسطة:
#7
كيف ارسل رسالة ال المستخدم ان فيه ابديت
الرد }}}
تم الشكر بواسطة:
#8
والله ما عندي وقت نهائي
اتمني من احد الاخوة يقوم بذلك
الرد }}}
تم الشكر بواسطة:
#9
.....

في قولك "...المهم ان ما يقدر يستخدم البرنامج ا بعد الابديت..."
لا أشجعك على هذا.. واترك الخيار للمستخدم إن شاء حدث وإن شاء استمر على النسخة التي لديه


منقول

هذا مثال بسيط باستخدام قراءة ملف صغير على النت يحتوي رقم التحديث الأخير
كود :
Public Class Form1

    ' إنشاء معالج خلفي
    Private WithEvents BackgroundWorker1 As New System.ComponentModel.BackgroundWorker

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        ' تعطيل تضارب المعالجات في حالة محاولة مثلا تغيير خصائص بعض الأدوات من داخل عملية المعالجة
        CheckForIllegalCrossThreadCalls = False

        ' تشغيل المعالج الخلفي
        BackgroundWorker1.RunWorkerAsync()

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

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

    End Sub


    Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
        ' إستدعاء دالة والتي تعتبر في حال مناداتها من هنا ضمن المعالجة
        If IsUpdateAvailable() Then
            ' إفعل شيئاً
            ' مثلاً تشغيل برنامج تحديث خاص والذي بدوره يقوم
            ' بتنزيل ملف البرنامج في تحديثه الأخير
            ' ثم غلق هذا البرنامج من أجل تبديل ملفه
            ' ثم إعادة تشغيل البرنامج من جديد
        End If
    End Sub

    ' دالة التأكد من وجود تحديث من خلال ملف صغير على النت
    Public Function IsUpdateAvailable() As Boolean
        Try

            ' تعيين ملف نصي مؤقت لحفظ بيانات ملف النت فيه
            Dim tmpFile As String = IO.Path.GetTempPath & Guid.NewGuid.ToString & ".tmp"

            ' تحميل بيانات ملف من النت وحفظ بياناته في الملف المؤقت
            My.Computer.Network.DownloadFile("http://vbnet.byethost11.com/examples/update/update.txt", tmpFile)

            ' على افتراض رقم التحديث الحالي
            Dim CurrentUpdate As String = "1000000"

            ' قراءة بيانات الملف النصي المؤقت
            Dim NewUpdate As String = IO.File.ReadAllText(tmpFile)

            ' هل يحتوي الملف النصي المؤقت على بيانات
            If NewUpdate <> "" AndAlso (NewUpdate <> CurrentUpdate) Then
                MsgBox("رقم التحديث الحالي" & vbNewLine & _
                       CurrentUpdate & vbNewLine & _
                       vbNewLine & _
                       "يوجد تحديث جديد برقم" & vbNewLine & _
                       NewUpdate)
                Return True
            End If

        Catch ex As Exception
        End Try

    End Function

End Class

.....
الرد }}}
تم الشكر بواسطة: kslawy , السندبااد
#10
(04-08-14, 12:50 PM)vbnet كتب : .....

في قولك "...المهم ان ما يقدر يستخدم البرنامج ا بعد الابديت..."
لا أشجعك على هذا.. واترك الخيار للمستخدم إن شاء حدث وإن شاء استمر على النسخة التي لديه


منقول

هذا مثال بسيط باستخدام قراءة ملف صغير على النت يحتوي رقم التحديث الأخير
كود :
Public Class Form1

    ' إنشاء معالج خلفي
    Private WithEvents BackgroundWorker1 As New System.ComponentModel.BackgroundWorker

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        ' تعطيل تضارب المعالجات في حالة محاولة مثلا تغيير خصائص بعض الأدوات من داخل عملية المعالجة
        CheckForIllegalCrossThreadCalls = False

        ' تشغيل المعالج الخلفي
        BackgroundWorker1.RunWorkerAsync()

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

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

    End Sub


    Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
        ' إستدعاء دالة والتي تعتبر في حال مناداتها من هنا ضمن المعالجة
        If IsUpdateAvailable() Then
            ' إفعل شيئاً
            ' مثلاً تشغيل برنامج تحديث خاص والذي بدوره يقوم
            ' بتنزيل ملف البرنامج في تحديثه الأخير
            ' ثم غلق هذا البرنامج من أجل تبديل ملفه
            ' ثم إعادة تشغيل البرنامج من جديد
        End If
    End Sub

    ' دالة التأكد من وجود تحديث من خلال ملف صغير على النت
    Public Function IsUpdateAvailable() As Boolean
        Try

            ' تعيين ملف نصي مؤقت لحفظ بيانات ملف النت فيه
            Dim tmpFile As String = IO.Path.GetTempPath & Guid.NewGuid.ToString & ".tmp"

            ' تحميل بيانات ملف من النت وحفظ بياناته في الملف المؤقت
            My.Computer.Network.DownloadFile("http://vbnet.byethost11.com/examples/update/update.txt", tmpFile)

            ' على افتراض رقم التحديث الحالي
            Dim CurrentUpdate As String = "1000000"

            ' قراءة بيانات الملف النصي المؤقت
            Dim NewUpdate As String = IO.File.ReadAllText(tmpFile)

            ' هل يحتوي الملف النصي المؤقت على بيانات
            If NewUpdate <> "" AndAlso (NewUpdate <> CurrentUpdate) Then
                MsgBox("رقم التحديث الحالي" & vbNewLine & _
                       CurrentUpdate & vbNewLine & _
                       vbNewLine & _
                       "يوجد تحديث جديد برقم" & vbNewLine & _
                       NewUpdate)
                Return True
            End If

        Catch ex As Exception
        End Try

    End Function

End Class

.....







الله يعطيك العافيه كفيت ووفيت
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة في عمل ابديت لجدول بسبب التاريخ ارجو المساعدة stiger 2 1,336 24-08-20, 04:40 PM
آخر رد: stiger
  اريد كود ابديت developermedo111 2 1,253 26-04-20, 01:54 AM
آخر رد: developermedo111
  [سؤال] ابي اسوي برنامج يسحب من تعليقات الانستا الجسمي 4 1,830 04-11-19, 09:59 PM
آخر رد: الجسمي
  ممكن مساعده اسوي حفظ يطلع تم الحفظ من دون ان يحتفظ في قاعدة البيانات moh123456 4 1,728 29-10-19, 12:49 PM
آخر رد: moh123456
  [سؤال] كيف اسوي للفورم مثل ما بالصورة DK-x 3 2,227 07-09-18, 11:46 PM
آخر رد: DK-x
Information [VB.NET] مساعده في الفيجوال بيسك هل اقدر اسوي اكثر من فورم a_abdullah 5 3,233 28-01-17, 02:14 PM
آخر رد: أسامة السالمي
  كيف اقدر اسوي filter بواسطه listbox للبحث ب DataGridViwe غير متصلة بقاعدة بيانات moh61 1 1,937 04-10-15, 10:40 PM
آخر رد: moh61
Question [سؤال] كيف اسوي مثل.....بالفيجوال بيسك Khaled03 4 3,421 16-06-15, 10:58 PM
آخر رد: hassan
  [سؤال] ابي اسوي برنامج فحص متاح x7rBI 0 3,149 13-06-15, 05:04 AM
آخر رد: x7rBI
  [سؤال] ابي اسوي برنامج مثل هذا x7rBI 2 2,761 06-06-15, 10:42 AM
آخر رد: hassan

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


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