25-05-14, 09:34 PM
الصفحات : 1 2
25-05-14, 09:34 PM
26-05-14, 12:44 AM
محتاج أفهم ما تريد ان تفعله بكل دقة. أو ارفع الكود مع توضيح ما تريده بشكل أفضل
عموما رسالة الخطأ واضحة , وهي انه لا يمكن فتح AnviCsbSvc
مثال بسيط و سريع لتحميل كل Services الموجودة ف الكمبيوتر الي ListBox مثلا
يمكنك استخدام كود ب الشكل التالي
ضع فيي أي فورم ListBox Control ثم في الحدث الخاص ب تحميل الفورم ضع الكود ب الشكل التالي
عموما رسالة الخطأ واضحة , وهي انه لا يمكن فتح AnviCsbSvc
مثال بسيط و سريع لتحميل كل Services الموجودة ف الكمبيوتر الي ListBox مثلا
يمكنك استخدام كود ب الشكل التالي
ضع فيي أي فورم ListBox Control ثم في الحدث الخاص ب تحميل الفورم ضع الكود ب الشكل التالي
كود :
Me.ListBox1.Items.Clear()
Dim services As ServiceController() = ServiceController.GetServices()
For Each sc As ServiceController In services
Me.ListBox1.Items.Add(sc.ServiceName)
Next26-05-14, 02:04 AM
أخى الكريم أنا أريد أن أضع Button عند الضغط عليه يقوم بإغلاق service معينة مثل Windows update
أريد الكود كامل ولو أنها ستكون تثقيلاً منى عليكم أعذرونى فأنا مبتدأ ..
أريد الكود كامل ولو أنها ستكون تثقيلاً منى عليكم أعذرونى فأنا مبتدأ ..

26-05-14, 06:40 AM
ممكن توضحو ما هي الفائدة من
ServiceController
ServiceController
26-05-14, 09:04 AM
-
منقول
لإيقاف خدمة من خدمات ويندوز تحتاج لصلاحية مدير ويندوز.
ولعمل ذلك إتبع الخطوات التالية:
من القائمة Phoject إختر ...WindowsApplication1 Properties
من التبويب Application إضغط زر [View UAC Settings]
إبحث داخل الكود عن السطر requestedExecutionLevel وغير قيمة level إلى "requireAdministrator"
إذهب للقائمة Build واختر WindowsApplication1 Build
الآن إذهب إلى المجلد Release داخل مجلد bin في مجلد المشروع وقم بتشغيل ملف WindowsApplication1.exe
ملاحظة: لا يمكن إيقاف خدمات ويندوز من خلال تشغيل البرنامج من داخل فيجوال ستوديو (أي في وضع Debug)
كود إيقاف خدمة من خدمات الويندوز بتمرير إسم الخدمة
منقول
لإيقاف خدمة من خدمات ويندوز تحتاج لصلاحية مدير ويندوز.
ولعمل ذلك إتبع الخطوات التالية:
من القائمة Phoject إختر ...WindowsApplication1 Properties
من التبويب Application إضغط زر [View UAC Settings]
إبحث داخل الكود عن السطر requestedExecutionLevel وغير قيمة level إلى "requireAdministrator"
إذهب للقائمة Build واختر WindowsApplication1 Build
الآن إذهب إلى المجلد Release داخل مجلد bin في مجلد المشروع وقم بتشغيل ملف WindowsApplication1.exe
ملاحظة: لا يمكن إيقاف خدمات ويندوز من خلال تشغيل البرنامج من داخل فيجوال ستوديو (أي في وضع Debug)
كود إيقاف خدمة من خدمات الويندوز بتمرير إسم الخدمة
كود :
Private Sub StartStop(ByVal serviceName As String)
Try
Dim service As New ServiceProcess.ServiceController(serviceName)
If (service.Status = ServiceProcess.ServiceControllerStatus.Stopped) Or (service.Status = ServiceProcess.ServiceControllerStatus.StopPending) Then
MsgBox("الخدمة " & serviceName & " ليست قيد التشغيل", MsgBoxStyle.MsgBoxRight + MsgBoxStyle.MsgBoxRtlReading)
Else
service.Stop()
MsgBox("تم إيقاف الخدمة " & serviceName, MsgBoxStyle.MsgBoxRight + MsgBoxStyle.MsgBoxRtlReading)
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub26-05-14, 12:25 PM
لتنفيذ ما تريده و بكل دقة يجب عليك أن تستخدم ServiceController Class مع System.Management
لأن أي خطأ هنا ربما يؤدي الي مشاكل ...
أولا عليك أن تقوم بتجربة صغيرة قبل أن تصنع برنامجا لإيقاف اي خدمة علي الجهاز و من خلال هذه التجربة الصغيرة
عليك استيراد جميع الخدمات الموجودة علي الجهاز ب الاضافة الي معرفة الهدف من كل خدمة و هنا أنت سوف تحتاج الي System.Management
عموما الملاحظ أنك تريد إيقاف خدمة الانتي فيروس لكن عليك أن تعلم شيئا و احدا و هو ان إسم الخدمة الخاصة ب الانتي فيروس ربما يختلف من جهاز الي أخر و هذا حسب نوع الانتي فيروس الموجود في كل جهاز
سأحاول أن اكتب لك مثالا بسيطا لا حقا
أيضا هذا ليس شغل مبتدئين يا أحمد.....
لأن أي خطأ هنا ربما يؤدي الي مشاكل ...
أولا عليك أن تقوم بتجربة صغيرة قبل أن تصنع برنامجا لإيقاف اي خدمة علي الجهاز و من خلال هذه التجربة الصغيرة
عليك استيراد جميع الخدمات الموجودة علي الجهاز ب الاضافة الي معرفة الهدف من كل خدمة و هنا أنت سوف تحتاج الي System.Management
عموما الملاحظ أنك تريد إيقاف خدمة الانتي فيروس لكن عليك أن تعلم شيئا و احدا و هو ان إسم الخدمة الخاصة ب الانتي فيروس ربما يختلف من جهاز الي أخر و هذا حسب نوع الانتي فيروس الموجود في كل جهاز
سأحاول أن اكتب لك مثالا بسيطا لا حقا
أيضا هذا ليس شغل مبتدئين يا أحمد.....

26-05-14, 12:49 PM
جزاكم الله خيراً
أنا لا أحاول إغلاق خدمة الانتى فيروس أنا أريد عمل قائمة بإغلاق خدمات الويندوز الغير ضرورية أثناء الألعاب
بإختصار سأبرمج Game Boost إن شاء الله
هذا سر بينى وبينكم ههههه
أنا لا أحاول إغلاق خدمة الانتى فيروس أنا أريد عمل قائمة بإغلاق خدمات الويندوز الغير ضرورية أثناء الألعاب
بإختصار سأبرمج Game Boost إن شاء الله
هذا سر بينى وبينكم ههههه

26-05-14, 02:25 PM
في اللينك التالي ستجد الفكرة ...و أعتقد ليس صعبا الان أن توقف الخدمة
لكن عليك ان تكون حذرا لأنك تتعامل مع Strings
اللينــــــــــــــــــــــــــــــــك
لكن عليك ان تكون حذرا لأنك تتعامل مع Strings
اللينــــــــــــــــــــــــــــــــك
26-05-14, 08:17 PM
الأخ vbnet تم تطبيق ما ذكرت حرفياً وظهرت رسالة خطأ تحمل نفس مضمون الخطأ الأول
26-05-14, 08:36 PM
أخيراً نجحت .. شكراً جزيلاً 

الصفحات : 1 2