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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كيف اخلي البرنامج يشتغل بدون نت فروم ورك و طريقة اختيار النت فروم ورك hassan 10 5,001 25-05-17, 08:04 AM
آخر رد: hatem555
  كيف يمكن ان اعمل هذا rabeh.ram 5 132 24-05-17, 12:36 PM
آخر رد: rabeh.ram
  كيف يمكن عمل هذا الاستخراج rabeh.ram 2 55 19-05-17, 04:31 PM
آخر رد: rabeh.ram
  [VB.NET] اريد كود حفظ العمل على البرنامج ؟؟ عامر الجبوري 4 94 16-05-17, 12:54 PM
آخر رد: عامر الجبوري
  يظهر خطاء بعد تنصيب البرنامج ساعدوني samawi 5 121 15-05-17, 04:08 AM
آخر رد: samawi
  [SQL] التاريخ في البرنامج العواد الصغير 7 193 14-05-17, 06:17 PM
آخر رد: العواد الصغير
  كيف أضيف أداة تقرأ ملفات PDF إلى فيجوال 2010 محمد بن عطية 2 101 09-05-17, 07:59 PM
آخر رد: safalo
  كيف يمكن برمجة هذا rabeh.ram 2 85 08-05-17, 03:13 PM
آخر رد: rabeh.ram
  اخطاء في البرنامج zinab ali 1 50 08-05-17, 12:44 AM
آخر رد: zinom
  [VB.NET] كيفية فتح البرنامج اكتر من مرة بشروط معينة الماجيك مسعد 6 130 07-05-17, 04:15 AM
آخر رد: الماجيك مسعد

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


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