الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كيف توقف عمل خدمات الويندوس

مغلق
بدأه Abu Sabreen في 28 مايو 2005 · 2 رد · 432 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

اخواني عندي سؤال هو كيفية ايقاف اي من خدمات الويندوس

وتحديديا خدمة المسينجر

لقد جربت كود وضعه احد الاخوة في المنتدى ولم ينفع

نعم هو يوقف الخدمة ولكن لا يمكن ارجاعها

فهل يساعدني احد

من دروسي :

درس مبسط لفهم ال VB6.... Resource File

تعلم تصميم اداة ال Active X خطوة بخطوة (الجزء الأول)

الطريقة المثلى للتعامل مع مسجل النظام( VB6..... (Registry

من برامجي :

Abo Sabreen Messenger v2.1 العملاق

--------------------------------------------------

مفكرة الإسلام؛ طالع أخبار العالم وأخبار المجاهدين بعيدا عن التعتيم الاعلامي.

#2

اين المبرمجين؟

من دروسي :

درس مبسط لفهم ال VB6.... Resource File

تعلم تصميم اداة ال Active X خطوة بخطوة (الجزء الأول)

الطريقة المثلى للتعامل مع مسجل النظام( VB6..... (Registry

من برامجي :

Abo Sabreen Messenger v2.1 العملاق

--------------------------------------------------

مفكرة الإسلام؛ طالع أخبار العالم وأخبار المجاهدين بعيدا عن التعتيم الاعلامي.

#3

لكي لا نعقد الأمر ربما أسهل طريقة هي الwmi

يمكنك باستعمال الدالة التالية ايقاف أي خدمة حتى لكمبيوتر آخر في الشبكة اذا كانت لك الصلاحيات طبعا

Function StopService (ServiceName)
       servername = "localhost"
       set wmi = getobject("winmgmts://" & servername)
        wql = "select state from win32_service " _
               & "where displayname='"& ServiceName & "'"
         set results = wmi.execquery(wql)
         for each service in results
            if service.state = "Running" then
             service.stopService
            end if
          next
End Function

هذا الموضوع مغلق.

مواضيع مشابهة