المثال
اتمنى يعجبكم
فقط سجل لدى الموقع drivehq.com
وقم بتعديل اسم المستخدم في المثال accountusername
الى اسم المستخدم الخاص بك
وكذلك كلمة المرور accountpassword غيرها الى كلمة المرور الخاصة بك
وتاكد من اسماء الملفات الموجودة بمجلد Debug يعني عدل ما يلزم ليعمل المثال معك
انا الان اعمل عليه حاليا وممتاز
----------
اخى سعود بارك الله فيك لو تسطيع عمل شرح كامل لهذا الامر يبقى جزاك الله خير
ali.alfoly كتب :اخى سعود بارك الله فيك لو تسطيع عمل شرح كامل لهذا الامر يبقى جزاك الله خير
ابشر اخوي بس بصراحة لا اجيد الشرح
لو امكن ذكر نقاط معينة حتى اوضحها تكون ساعدتني.
السلام عليكم اخى سعود اسف لعدم المتابعة كنت مشغول شويه ولاكنى الان قاعد اذاكر الموضوع لاكن مش قادر افهمه
اريد ان اعرف ما هذه الدوال المختصره واين هى وكيف يتم التعامل معها مثل كود زر رفع ملف الاصدار u.txt
كود :
[color=#0000FF]Private[/color] [color=#0000FF]Sub[/color][color=#000000] Button5_Click(sender [/color][color=#0000FF]As[/color][color=#000000] System.[/color][color=#2B91AF]Object[/color][color=#000000], e [/color][color=#0000FF]As[/color][color=#000000] System.[/color][color=#2B91AF]EventArgs[/color][color=#000000]) [/color][color=#0000FF]Handles[/color][color=#000000] Button5.Click[/color]
[color=#0000FF]If[/color][color=#000000] up.IsBusy = [/color][color=#0000FF]True[/color] [color=#0000FF]Then[/color] [color=#0000FF]Exit Sub[/color]
[color=#000000] up.RunWorkerAsync()[/color]
[color=#0000FF]End[/color] [color=#0000FF]Sub[/color]
الكلمة up هي الباكقراوند وركر الشرط الاول يفحص هل هي مشغولة؟؟ اذا نعم يخرح من الروتين واذا لا يواصل .
سعود كتب :الكلمة up هي الباكقراوند وركر الشرط الاول يفحص هل هي مشغولة؟؟ اذا نعم يخرح من الروتين واذا لا يواصل .
ما المقصود بها
ali.alfoly كتب :ما المقصود بها
موجودة ضمن مربع الادوات Toolbox
باسم Backgroundworker
فائدتها تنفيذ مهمة معينة بمسار مستقل بحيث لا يسبب تهنيق او توقف الاستجابة .
هذا كل اللي اعرف
طيب اخى سعود انت اخترت موقع drivehq.com من اجل خاصية FTP فقط
وهل لو عندى مساحة على النت فى استضافة وعامل عليها موقع يمكننى التعامل معها بدل هذا الموقع
إقتباس :وهل لو عندى مساحة على النت فى استضافة وعامل عليها موقع يمكننى التعامل معها بدل هذا الموقع
اكيد يمكنك لكن تحتاج تغيير بالاكواد.
ارجو شرح هذا الكود
انا وضعت لك فوق كل سطر علامة " لتممكن من كتابة التوضيح مباشر
كود :
[color=#0000FF]Try[/color]
[color=#008000]'[/color]
[color=#000000] Button9.Enabled = [/color][color=#0000FF]False[/color]
[color=#008000]'[/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]'[/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]'[/color]
[color=#0000FF]Dim[/color][color=#000000] PageHTMLBytes() [/color][color=#0000FF]As[/color] [color=#0000FF]Byte[/color]
[color=#008000]'[/color]
[color=#000000] PageHTMLBytes = client1.DownloadData([/color][color=#A31515]"ftp://xxxxx:xxxxx@ftp.drivehq.com/mfi.txt"[/color][color=#000000])[/color]
[color=#008000]'[/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]'[/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] MsgBox(Err.Description, [/color][color=#2B91AF]MsgBoxStyle[/color][color=#000000].Critical, [/color][color=#A31515]""[/color][color=#000000])[/color]
[color=#0000FF]End[/color] [color=#0000FF]Try[/color]