كيفية انشاء برنامج تثبيت لخدمة ويندوز Windows Service على vs2008

كيفية انشاء برنامج تثبيت لخدمة ويندوز Windows Service على vs2008 - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مقالات VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=184)
+--- الموضوع : كيفية انشاء برنامج تثبيت لخدمة ويندوز Windows Service على vs2008 (/showthread.php?tid=5139)

كيفية انشاء برنامج تثبيت لخدمة ويندوز Windows Service على vs2008 - RaggiTech - 05-10-12

كاتب الموضوع : DreamNet

السلام عليكم ورحمة الله وبركاته

قمت بطرح درس تطبيقي لعملية اضافة خدمة ويندوز على الفيجوال ستيديو 2003
ولان الامر يختلف بعض الشئ رأيت تقديم نفس الدرس على الفيجوال 2008 مع العلم أنه نفس الشئ يمكن تطبيقه على النسخة 2005 أيضا

نبدأ بانشاء مشروع جديد من النوع Windows Service

<font face="Tahoma">بعدها نكتب كود بسيط للخدمة التي سننشئها لغرض الكتابة في logevent عند تشغيل هذه الخدمة في الحدث OnStart

كود :

[color=#000000][COLOR=#007700]Protected [/color][color=#0000bb]Overrides Sub OnStart[/color][color=#007700]([/color][color=#0000bb]ByVal args[/color][color=#007700]() As [/color][color=#0000bb]String[/color][COLOR=#007700])

    [/COLOR][color=#0000bb]EventLog[/color][color=#007700].[/color][color=#0000bb]WriteEntry[/color][color=#007700]([/color][color=#dd0000]"تم تشغيل الخدمة بنجاح..."[/color][COLOR=#007700])

 [/COLOR][COLOR=#0000bb]End Sub  

[/COLOR][/COLOR]

لم ينتهي الأمر بعد وكما رأينا على 2003 يلزمنا ادوات لتثبيت الخدمة على الجهاز لذلك نضيف installer للخدمة البسيطة المنشئة بالضغط على Add Installer سيتم بذلك اضافة مشروع تابع للخدمة خاص بالتثبيت اسمه اقتراضيا ProjectInstaller

يحتوي مشروع التثبيت على كائنين هما ServiceInstaller و ServiceProcessInstaller
نحدد لهما خياراتهما
بالنسبة للServiceInstaller نحدد ServiceName التي ستحدد اسم الخدمة في قائمة خدمات الويندوز

وبالنسبة لServiceProcessInstaller نغير الخاصية Acount إلى LocalService التي تعني أن الخدمة خاصة بالكمبيوتر المحلي

لحد الآن لا يوجد اختلاف كبير
نكمل فيما بعد مع العملية المهمة وهي كيفية تثبيت الخدمة

كيفية انشاء برنامج تثبيت لخدمة ويندوز Windows Service على vs2008 - RaggiTech - 05-10-12

بعد عمل Build للخدمة يمكننا أن نجد غي مجلد bin\realase الملف التنفيذي للخدمة لكن هذا لا يعني أننا يمكننا تنفيذها مباشرة مثل أي برنامج تنفيذي
لذلك تظهر لك رسالة الخطأ التالية عند محاولة التنفيذ المباشر

اذا لتثبيت الخدمة هنا نحتاج إلى استعمال InstallUtil البرنامج التابع للفيجوال ستيديو والموجود ضمنيا مع ملفات الفريمورك

نذهب إلى visual Studio 2008 Command Prompt لكي نتكمن من استعمال InstallUtil من هناك

من أجل تثبيت الخدمة نتكتب :

كود :

InstallUtil ServiceName.exe

لالغاء تثبيتن الخدمة

كود :

InstallUtil ServiceName.exe /U

طبعا يجب كتابة المسار الصحيح الموجود فيه برنامج الخدمة المنشئ

بعدها يمكننا أن نشغل الخدمة من سطر الاوامر أو بالذهاب إلى ادارة الجهاز Manage واختيار عرض الخدمات الموجودة في الجهاز والبحث عن اسم الخدمة التي حددناه فيما سبق في الكائن ServiceInstaller

طبعا وظيفة الخدمة هي فقط كتابة "تم تشغيل الخدمة بنجاح" في الLog الخاص بالتطبيقات في عارض الأحداث للويندوز وهذا نجده

لو فتحنا هذه المعلومات نجد فيها بعد تشغيل الخدمة مكتوب فيها النص الذي حددناه

بالتوفيق للجميع