+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : الأقسام التعليمية - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=90)
+--- قسم : مكتبة أمثلة ومشاريع أعضاء المنتدى (http://vb4arb.com/vb/forumdisplay.php?fid=114)
+---- قسم : مكتبة مشاريع VB.net (http://vb4arb.com/vb/forumdisplay.php?fid=141)
+---- الموضوع : مثال لنشر معلومات التحديث الخاص بتطبيقك (/showthread.php?tid=9921)
الصفحات:
1
2
مثال لنشر معلومات التحديث الخاص بتطبيقك - سعود - 03-08-13
المثال
اتمنى يعجبكم
فقط سجل لدى الموقع drivehq.com
وقم بتعديل اسم المستخدم في المثال accountusername
الى اسم المستخدم الخاص بك
وكذلك كلمة المرور accountpassword غيرها الى كلمة المرور الخاصة بك
وتاكد من اسماء الملفات الموجودة بمجلد Debug يعني عدل ما يلزم ليعمل المثال معك
انا الان اعمل عليه حاليا وممتاز
----------
مثال لنشر معلومات التحديث الخاص بتطبيقك - ali.alfoly - 04-08-13
اخى سعود بارك الله فيك لو تسطيع عمل شرح كامل لهذا الامر يبقى جزاك الله خير
مثال لنشر معلومات التحديث الخاص بتطبيقك - سعود - 04-08-13
ali.alfoly كتب :اخى سعود بارك الله فيك لو تسطيع عمل شرح كامل لهذا الامر يبقى جزاك الله خيرابشر اخوي بس بصراحة لا اجيد الشرح
لو امكن ذكر نقاط معينة حتى اوضحها تكون ساعدتني.
مثال لنشر معلومات التحديث الخاص بتطبيقك - ali.alfoly - 16-08-13
السلام عليكم اخى سعود اسف لعدم المتابعة كنت مشغول شويه ولاكنى الان قاعد اذاكر الموضوع لاكن مش قادر افهمه
اريد ان اعرف ما هذه الدوال المختصره واين هى وكيف يتم التعامل معها مثل كود زر رفع ملف الاصدار 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]مثال لنشر معلومات التحديث الخاص بتطبيقك - سعود - 16-08-13
الكلمة up هي الباكقراوند وركر الشرط الاول يفحص هل هي مشغولة؟؟ اذا نعم يخرح من الروتين واذا لا يواصل .
مثال لنشر معلومات التحديث الخاص بتطبيقك - ali.alfoly - 16-08-13
سعود كتب :الكلمة up هي الباكقراوند وركر الشرط الاول يفحص هل هي مشغولة؟؟ اذا نعم يخرح من الروتين واذا لا يواصل .
ما المقصود بها
مثال لنشر معلومات التحديث الخاص بتطبيقك - سعود - 16-08-13
ali.alfoly كتب :ما المقصود بهاموجودة ضمن مربع الادوات Toolbox
باسم Backgroundworker
فائدتها تنفيذ مهمة معينة بمسار مستقل بحيث لا يسبب تهنيق او توقف الاستجابة .
هذا كل اللي اعرف
مثال لنشر معلومات التحديث الخاص بتطبيقك - ali.alfoly - 16-08-13
طيب اخى سعود انت اخترت موقع drivehq.com من اجل خاصية FTP فقط
وهل لو عندى مساحة على النت فى استضافة وعامل عليها موقع يمكننى التعامل معها بدل هذا الموقع
مثال لنشر معلومات التحديث الخاص بتطبيقك - سعود - 16-08-13
إقتباس :وهل لو عندى مساحة على النت فى استضافة وعامل عليها موقع يمكننى التعامل معها بدل هذا الموقعاكيد يمكنك لكن تحتاج تغيير بالاكواد.
مثال لنشر معلومات التحديث الخاص بتطبيقك - ali.alfoly - 16-08-13
ارجو شرح هذا الكود
انا وضعت لك فوق كل سطر علامة " لتممكن من كتابة التوضيح مباشر
كود :
[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]