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

كود :
[color=#0000FF]Try[/color]

            [color=#008000]'[SIZE=5][b]هذا للتعطيل لزر الامر[/b][/SIZE][/color]

[color=#000000][COLOR=#000000]           Button9.Enabled = [/color][color=#0000FF]False[/color]

[/COLOR]            [color=#008000]'[SIZE=5][b]لا ادري كيف اشرحها لكن هذا يمكننا من التعامل مع محتوى صفحة مرفوعة على انترنت[/b][/SIZE][/color]

            [color=#0000FF]Dim[/color][color=#000000] client1 [/color][color=#0000FF]As[/color] [color=#2B91AF]WebClient[/color][color=#000000] = [/color][color=#0000FF]New[/color] [color=#2B91AF]WebClient[/color][color=#000000]()[/color]

            [color=#008000]'[SIZE=5][b]هذا التعريف لانحتاجه نسيت ان اقوم بحذفه لانه لدينا تعريف اخر وهو ..[/b][/SIZE][/color]

            [color=#0000FF]Dim[/color][color=#000000] reply1 [/color][color=#0000FF]As[/color] [color=#0000FF]String[/color][color=#000000] = client1.DownloadString([/color][color=#A31515]"ftp://[/color][color=#333333]ْْْxxxxx[/color][color=#A31515]:xxxx@ftp.drivehq.com/mfi.txt"[/color][color=#000000])[/color]

            [color=#008000]'[SIZE=5][b] هذا ..[/b][/SIZE][/color]

            [color=#0000FF]Dim[/color][color=#000000] PageHTMLBytes() [/color][color=#0000FF]As[/color] [color=#0000FF]Byte[/color]

            [color=#008000]'[SIZE=5][b]يحمل البيانات من الملف وليس الملف[/b][/SIZE][/color]

[color=#000000][COLOR=#000000]           PageHTMLBytes = client1.DownloadData([/color][color=#A31515]"ftp://xxxxx:xxxxx@ftp.drivehq.com/mfi.txt"[/color][color=#000000])[/color]

[/COLOR]            [color=#008000]'[SIZE=5][b]هذا لضبط الترميز بحيث نشاهد الحروف واضحة ومفهومة[/b][/SIZE][/color]

            [color=#0000FF]Dim[/color][color=#000000] oUTF8 [/color][color=#0000FF]As[/color] [color=#2B91AF]UTF8Encoding[/color][color=#000000] = [/color][color=#0000FF]New[/color] [color=#2B91AF]UTF8Encoding[/color][color=#000000]()[/color]

            [color=#008000]'[SIZE=5][b]متغير نخزن به الصفحة او النص المحمل[/b][/SIZE][/color]

[COLOR=#000000]           m = (oUTF8.GetString(PageHTMLBytes))

[/COLOR]



        [color=#0000FF]Catch[/color][color=#000000] ex [/color][color=#0000FF]As[/color] [color=#2B91AF]Exception[/color]

            [color=#008000]'[/color]

[color=#000000][COLOR=#000000]           MsgBox(Err.Description, [/color][color=#2B91AF]MsgBoxStyle[/color][color=#000000].Critical, [/color][color=#A31515]""[/color][color=#000000])[/color]

[/COLOR]        [color=#0000FF]End[/color] [color=#0000FF]Try[/color]