البرنامج لا يعمل بدون المستخدم المسؤول

اخواني الاعزاء ممكن تكون المشكلة في الرجستي

اذا واحد عنده خبره بالريجستي ممكن يساعدني

سيكون أحسن لو نقلت الوضائف المتعلقة بالنظام إلى windows service يعمل باسم المستخدم SYSTEM, أما واجهة المستخدم و الوظائف الأخرى المتعلقة بالاتصال و تهيئة windows service فتبقى على مستوى التطبيق. بهذه الطريقة يمكن عمل ما تريد مهما كانت محدودية حساب مستخدم ويندوز. هذه الطريقة هي المعتمدة في البرامج التجارية مثل محاربات الفيروسات و الفايروالز و غيرها...

بالتوفيق :)

شكرا استاذ محمد رضى على الرد

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

فكره جميلة ولكن لا اعلم كيف اطبق الطريقة

على ما اعتقد انهو عن طريق الرجستي او مكان اخر

هل تعرف كود او طريقة استاذ محمد رضى او الاعضاء اذا عندهم فكرة

هو ليس التطبيق الذي سيعمل على حساب SYSTEM, أنت ستقوم بتقسيم المشروع إلى قسمين الأول هو التطبيق الذي سيظهر للمستخدم في أي حساب ويندوز و يظهر له واجهة المستخدم و لكن العمل و الوضائف التي سيطلب المستخدم تنفيذها سيقوم التطبيق بتوصيلها إلى windows service الذي يستطيع القيام بها لأنه يعمل على حساب SYSTEM.

بالنسبة لكيفية تطوير ويندوز سيرفيس فيمكنك البحث و هناك العديد من الدروس في الموضوع :

http://www.codeguru.com/vb/gen/vb_system/services/article.php/c4825/

http://www.vbdotnetheaven.com/UploadFile/mahesh/Winservvb11172005233242PM/Winservvb.aspx

http://www.devarticles.com/c/a/VB.Net/Creating-A-Windows-Service-in-VB.NET/

بالتوفيق :)

استاذ محمد رضى الموضوع ليس له علاقة windows service

انا املك برنامج يتحكم في تعطيل اجهزة الكمبيوتر كما في الصورة

وكما نعرف فان المستخدم المسؤول الذي يتحكم في تعطيل الاجهزة

انا اريد تعطيل اجهزة الكمبيوتر عن طريق المستخدم المحدود

بما أنك تبحث عن الحل الأسهل للقيام بالعمل المطلوب, إليك هذه الطريقة التي تحتم على مستخدم حساب ويندوز محدود القيام بعملية رفع إلى مستوى حساب مدير النظام. هذه الطريقة تحتاج إلى ويندوز فيستا فما فوق...

        ' التعرف على نوعية حساب المستخدم الحالي الذي تعمل عليه التطبيق
        Dim admin As Boolean = New Security.Principal.WindowsPrincipal(Security.Principal.WindowsIdentity.GetCurrent()).IsInRole(Security.Principal.WindowsBuiltInRole.Administrator)
        ' إذا لم يكن المدير
        If Not admin Then
            ' طلب القيام بعملية الرفع إلى حساب المدير
            Dim r As MsgBoxResult = MsgBox("أنت تعمل بحساب ويندوز محدود, للقيام بالعملية المطلوبة, يجب القيام بعملية رفع إلى حساب المدير." & vbCrLf & "هل تريد المتابعة؟", MsgBoxStyle.Question Or MsgBoxStyle.YesNo)
            ' إذا اختار نعم
            If r = MsgBoxResult.Yes Then
                ' تحديد بيانات التنفيذ في حساب المدير
                Dim si As New ProcessStartInfo()
                si.FileName = Application.ExecutablePath
                si.WorkingDirectory = Environment.CurrentDirectory
                ' لطلب الرفع من نظام التشغيل
                si.Verb = "runas"
                si.UseShellExecute = True
                Application.Exit()
                Process.Start(si)
            End If
        End If

بالتوفيق :)

اخي اشكرك على الرد لكن لا اعلم ماذا اقول لك انك تحاول مساعدتي وانا اشكرك :happy:

لكن انا اريد استعماله في xp هل من طريق مشابهة للكود

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