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]
ارجو ان اكون وضحت