16-08-13, 09:45 PM
ali.alfoly كتب :ارجو شرح هذا الكود
[b]انا وضعت لك فوق كل سطر علامة " لتممكن من كتابة التوضيح مباشر
[/b]
كود :
[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]
ارجو ان اكون وضحت
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء، اللهم أصلح لي ديني الذي هو عصمة أمري، وأصلح لي دنياي التي فيها معاشي، وأصلح لي آخرتي التي فيها معادي، واجعل الحياة زيادة لي في كل خير، واجعل الموت راحة لي من كل شر
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي جدي وهزلي وخطأي وعمدي وكل ذلك عندي، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير