تقييم الموضوع :
  • 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
الرد }}}}
تم الشكر بواسطة: سعود


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تحديد مسار البرنامج atefkhalf2004 8 97 منذ 11 ساعة مضت
آخر رد: atefkhalf2004
  [VB.NET] هل يمكن الاستغناء عن التايمر واستخدام شئ بديل يكون افضل ؟ !! الماجيك مسعد 7 105 أمس, 06:58 AM
آخر رد: silverlight
  [سؤال] كيف اجعل البرنامج يحفظ بيانات؟ The Light Fire 9 137 05-12-16, 12:58 AM
آخر رد: ali.alfoly
  [نقاش] الى كل خبير ومبتدأ نقاش بخصوص جعل البرنامج نسخة تجريبية 0theghost0 1 157 30-11-16, 11:21 PM
آخر رد: awidan76
  [نقاش] اسئلكم بالله / تسعيرة هذا البرنامج مصمم على فيجول استديو 2013 عزف الخواطر 3 125 30-11-16, 06:42 PM
آخر رد: عزف الخواطر
  [سؤال] مشكلة في إعادة تنفيذ البرنامج wael khlak 1 56 21-11-16, 11:48 PM
آخر رد: السرور
  هل يمكن انشاء صفحة متصفح Mohamed20 2 133 20-11-16, 12:38 AM
آخر رد: myalsailamy
  خطا عند تشغيل البرنامج makky 10 146 19-11-16, 03:17 AM
آخر رد: أبو عمر
  كيف يمكن اضافة مجموعة حقول الي datagridview والتعديل عليها مباشرتا dark1459 2 72 15-11-16, 10:30 PM
آخر رد: السرور
  كيف يمكن عمل هذا الترتيب rabeh.ram 10 203 15-11-16, 03:11 AM
آخر رد: rabeh.ram

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


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