tomjerry741
26-02-2012, 09:21 AM
بسم الله الرحمن الرحيم
اللهم لا سهل الا ما جعلته سهلا
وانت تجعل الحزن ان شئت سهلا
..................................................
اليوم واتتنى فكرة ان اشرح لكم طريقة تشغيل اى برنامج تقومون بتصميمة مع بدء تشغيل الويندوز
ربما تتساءلون عن سر بدء الياهو تلقائيا
او بدء برامج الانتى فيرس تلقائيا بمجرد تشغيل الجهاز
والعديد من البرامج التى لا تعرفها ولا تعلم عنها شيئا تعمل تلقائيا بلا تدخل منك
منها الظاهر ومنها الاف التطبيقات المختفية
--------------
وربما من اكثر الامور التى ذكرتنى بهذا هو فكرة عمل الفيرس باستر Paster
هل تذكرون ذلك الفيرس الذى ظهر فى بداية القرن -- وكان كل من يصاب جهازه بذلك الفيرس ينطفى بمجرد تشغيلة خلال ثانية او ثانيتين
الحقيقة ان الفيرس كان قاسيا وقتها منذ 12سنة
-------------------------
اليوم سوف أقدم لكم طريقة تجعل برنامجك يعمل تلقائيا بمجرد ان تقوم بفتحة من المرة الاولى -- او عقب ان تقوم بتسطيبة على الجهاز
وكما تعودنا -- ارفقت الصور بالشرح -- اتمنى ان تعم الفائدة
-------------------------------
اولا : دعونى اشرب كوب الشاى الذى صنعتة الان
ثانيا :
افتح برنامج الفجيوال بايسك 2005/2008/2010 ايهما تستخدم ؟!!
وقم بأنشاء مشروع جديد --- فلنطلق عليه مثلا
Run with Startup Windows
http://www9.0zz0.com/2012/02/25/20/464475630.jpg
-------------------------------
2-
نفترض- مثلا انك قمت بتصميم اى برنامج -
فكيف تجعله يبدأ عمله بمجرد تشغيل الكمبيوتر لا حقا
http://www9.0zz0.com/2012/02/25/20/858900377.jpg
------------------------------
3-
الحل سهل
قم بالضغط مرتين على الفورم
ستجد نفسك داخل نافذة كتابة الكود
قم بكتابة هذا الكود اسفل Public Class Form1
Public Shared Sub AddStartup(ByVal Name As String, ByVal Path As String)
Dim Registry As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.CurrentUser
Dim Key As Microsoft.Win32.RegistryKey = Registry.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)
Key.SetValue(Name, Path, Microsoft.Win32.RegistryValueKind.String)
end sub- قم بكتابة الكود السابق يدويا
ولا تنسى ان تضيف end sub فى كما سترى بالشكل التالى والا سوف تفاجئ برسالة الخطأ التالية
http://www9.0zz0.com/2012/02/25/20/365760552.jpg
--------------------------
4-
عليك ان تتابع الصورة التالية لتعرف الفرق الحقيقى
http://www9.0zz0.com/2012/02/25/21/278007767.jpg
---------------------
هاااااااه
معلش يا جماعة انا هنام وبكرة هكمل بقية الدرس
عموما الموضوع كامل بين ايديكم
ولكن شرح الكود وتفصيله وتوضيح اكثر سوف اشرحه لكم غدا
---------------
الدرس القادم
كيف تحول مشروعك الدوت نت الى برنامج setup قابل للتنصيب على اى جهاز
------
فى حفظ الله -- استودعكم الله
اللهم لا سهل الا ما جعلته سهلا
وانت تجعل الحزن ان شئت سهلا
..................................................
اليوم واتتنى فكرة ان اشرح لكم طريقة تشغيل اى برنامج تقومون بتصميمة مع بدء تشغيل الويندوز
ربما تتساءلون عن سر بدء الياهو تلقائيا
او بدء برامج الانتى فيرس تلقائيا بمجرد تشغيل الجهاز
والعديد من البرامج التى لا تعرفها ولا تعلم عنها شيئا تعمل تلقائيا بلا تدخل منك
منها الظاهر ومنها الاف التطبيقات المختفية
--------------
وربما من اكثر الامور التى ذكرتنى بهذا هو فكرة عمل الفيرس باستر Paster
هل تذكرون ذلك الفيرس الذى ظهر فى بداية القرن -- وكان كل من يصاب جهازه بذلك الفيرس ينطفى بمجرد تشغيلة خلال ثانية او ثانيتين
الحقيقة ان الفيرس كان قاسيا وقتها منذ 12سنة
-------------------------
اليوم سوف أقدم لكم طريقة تجعل برنامجك يعمل تلقائيا بمجرد ان تقوم بفتحة من المرة الاولى -- او عقب ان تقوم بتسطيبة على الجهاز
وكما تعودنا -- ارفقت الصور بالشرح -- اتمنى ان تعم الفائدة
-------------------------------
اولا : دعونى اشرب كوب الشاى الذى صنعتة الان
ثانيا :
افتح برنامج الفجيوال بايسك 2005/2008/2010 ايهما تستخدم ؟!!
وقم بأنشاء مشروع جديد --- فلنطلق عليه مثلا
Run with Startup Windows
http://www9.0zz0.com/2012/02/25/20/464475630.jpg
-------------------------------
2-
نفترض- مثلا انك قمت بتصميم اى برنامج -
فكيف تجعله يبدأ عمله بمجرد تشغيل الكمبيوتر لا حقا
http://www9.0zz0.com/2012/02/25/20/858900377.jpg
------------------------------
3-
الحل سهل
قم بالضغط مرتين على الفورم
ستجد نفسك داخل نافذة كتابة الكود
قم بكتابة هذا الكود اسفل Public Class Form1
Public Shared Sub AddStartup(ByVal Name As String, ByVal Path As String)
Dim Registry As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.CurrentUser
Dim Key As Microsoft.Win32.RegistryKey = Registry.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)
Key.SetValue(Name, Path, Microsoft.Win32.RegistryValueKind.String)
end sub- قم بكتابة الكود السابق يدويا
ولا تنسى ان تضيف end sub فى كما سترى بالشكل التالى والا سوف تفاجئ برسالة الخطأ التالية
http://www9.0zz0.com/2012/02/25/20/365760552.jpg
--------------------------
4-
عليك ان تتابع الصورة التالية لتعرف الفرق الحقيقى
http://www9.0zz0.com/2012/02/25/21/278007767.jpg
---------------------
هاااااااه
معلش يا جماعة انا هنام وبكرة هكمل بقية الدرس
عموما الموضوع كامل بين ايديكم
ولكن شرح الكود وتفصيله وتوضيح اكثر سوف اشرحه لكم غدا
---------------
الدرس القادم
كيف تحول مشروعك الدوت نت الى برنامج setup قابل للتنصيب على اى جهاز
------
فى حفظ الله -- استودعكم الله