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]
ارجو ان اكون وضحت
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
