تقييم الموضوع :
  • 1 أصوات - بمعدل 5
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] كيف يمكن تمكين أداة من العمل بالوضع الآمن خلال عمل البرنامج
#1
السلام عليكم ورحمة الله وبركاته

يوجد لدي برنامج من خلاله استطيع اطفاء service معينة أو تشغيلها ...

لكن هذا الزر يحتاج للعمل تحت وضع run as administrator ، ولكني لا اريد تفعيلها من البداية مع البرنامج ولكني اريد تفعيلها فقط عند الضغط على هذا الزر ، كيف افعل هذا ؟
قال رسول الله صلى الله عليه وسلم ( من قال لا إله إلا الله دخل الجنة ) حديث صحيح.
قال رسول الله صلى الله عليه وسلم ( كلمتان خفيفتان على اللسان ثقيلتان في الميزان حبيبتان للرحمن : سبحان الله وبحمده سبحان الله العظيم ) حديث صحيح.
الرد }}}}
تم الشكر بواسطة:
#2
هذا الكود يغلق البرنامج ثم يعيد بدئه كمسؤول:
PHP كود :
Dim isEleveted As Boolean
        Dim identity 
As Security.Principal.WindowsIdentity Security.Principal.WindowsIdentity.GetCurrent()
        
Dim principal As New Security.Principal.WindowsPrincipal(identity)
        
isEleveted principal.IsInRole(Security.Principal.WindowsBuiltInRole.Administrator)
        If 
Not isEleveted Then
            
If MsgBox("Do you want to run as an administrator?"MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
                Dim P 
As Process Process.GetCurrentProcess
                Dim SF 
As New Diagnostics.ProcessStartInfo
                SF
.FileName Application.ExecutablePath
                SF
.Verb "runas"
                
P.StartInfo SF
                P
.Start()
            
End If
            
Application.Exit()
        
End If 

كما يمكنك إضافة ملف صغير بجانب برنامجك ينفذ هذا الأمر فقط و يبدأ كمسؤول عندما يأمره برنامجك بذلك.
الرد }}}}
تم الشكر بواسطة: سعود , عبد الله
#3
اخي علي الحداد :

المشكلة انه يوجد في البرنامج مربع نص فيه خاصية السحب والإلقاء ، عند تفعيل الأمر ( تشغيل كمسؤول ) مع البرنامج في البداية يتم تعطيل الإلقاء في هذا الوضع ، لذلك أريد أن يعمل وضع المسؤول فقط مع الزر ، هل يمكن فعل ذلك ؟
قال رسول الله صلى الله عليه وسلم ( من قال لا إله إلا الله دخل الجنة ) حديث صحيح.
قال رسول الله صلى الله عليه وسلم ( كلمتان خفيفتان على اللسان ثقيلتان في الميزان حبيبتان للرحمن : سبحان الله وبحمده سبحان الله العظيم ) حديث صحيح.
الرد }}}}
تم الشكر بواسطة:
#4
في البداية أنشئ Console Application و ليكن هذا كوده:
PHP كود :
Module Module1

    Sub Main
()
        
Dim args As ObjectModel.ReadOnlyCollection(Of String) = My.Application.CommandLineArgs
        
If args.Count 0 Then
            Dim argsStr 
As String() = New String(args.Count 1) {}
            
args.CopyTo(argsStr0)
            
Dim txt As String Strings.Join(argsStr" ")
            
MsgBox(txt'''Now do whatever you want with txt
        End If
    End Sub
End Module 

الآن ضع الملف التنفيذي لهذا الـConsoleApplication بجانب الملف التنفيذي لمشروعك
و في حدث الإفلات في مشروعك ضع الكود:
PHP كود :
Dim isEleveted As Boolean
        Dim identity 
As Security.Principal.WindowsIdentity Security.Principal.WindowsIdentity.GetCurrent()
        
Dim principal As New Security.Principal.WindowsPrincipal(identity)
        
isEleveted principal.IsInRole(Security.Principal.WindowsBuiltInRole.Administrator)
        If 
Not isEleveted Then
            MsgBox
("To do this action you will need the administrator authorities."MsgBoxStyle.OkOnly)
            
Dim P As New Process
            Dim SF 
As New Diagnostics.ProcessStartInfo
            SF
.FileName Application.StartupPath "\ConsoleApplication1"
            
SF.Verb "runas"
            
SF.WindowStyle ProcessWindowStyle.Hidden
            SF
.Arguments "The text dropped on the TextBox"
            
P.StartInfo SF
            P
.Start()
        
End If 

جرب الكود.. ثم غير ما يلزم في الـConsoleApplication
الرد }}}}
تم الشكر بواسطة: سعود


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  هل يوجد طريقة لارسال رسائل واتساب من البرنامج باستخدام vb.net 2010 ? Dr.Sherif Alazizi 15 441 12-01-17, 11:54 PM
آخر رد: Basil Abdallah
  [سؤال] ربط البرنامج بعدة اجهزة ابو يوسف النواوي 2 3 126 12-01-17, 03:52 AM
آخر رد: Basil Abdallah
  منع تسجيل بيانات علي جدول الحركات بقاعدة بيانات sql خلال فترة زمنية (اقفال الفترة ا) السيد الجوهري 4 151 09-01-17, 07:22 PM
آخر رد: السيد الجوهري
  زيادة السنين في أداة التاريخ DateTimePicker أسامة السالمي 2 112 06-01-17, 09:12 PM
آخر رد: أسامة السالمي
  [سؤال] تسجيل دخول الفيس من خلال تطبيق ابو روضة 3 131 03-01-17, 05:40 AM
آخر رد: ابو روضة
  [سؤال] مشكلة تهنيج البرنامج ابو روضة 2 161 30-12-16, 04:47 PM
آخر رد: ابو روضة
  كيف يمكن تحريك مربعات النص على التقرير السيد الجوهري 0 41 30-12-16, 09:49 AM
آخر رد: السيد الجوهري
  مساعدة لو سمحتو (طريقة تحريك صورة من خلال احداثيات موجودة في ملف نصي بدون ازرار) marten363 3 94 27-12-16, 08:20 PM
آخر رد: مساعدة
  [سؤال] كيف اخلي البرنامج يشتغل بدون نت فروم ورك و طريقة اختيار النت فروم ورك hassan 9 4,311 27-12-16, 01:25 PM
آخر رد: Basil Abdallah
  كيف يمكن جعل ListView تظهر فيها الملفات CLARO 1 57 22-12-16, 06:11 PM
آخر رد: silverlight

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم