05-10-12, 02:35 AM
كاتب الموضوع : 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 التي ستحدد اسم الخدمة في قائمة خدمات الويندوز
نحدد لهما خياراتهما
بالنسبة للServiceInstaller نحدد ServiceName التي ستحدد اسم الخدمة في قائمة خدمات الويندوز
وبالنسبة لServiceProcessInstaller نغير الخاصية Acount إلى LocalService التي تعني أن الخدمة خاصة بالكمبيوتر المحلي
لحد الآن لا يوجد اختلاف كبير
نكمل فيما بعد مع العملية المهمة وهي كيفية تثبيت الخدمة