[alswade]

كود استدعاء msconfig بالفيجوال بيسك
عاوز كود استدعاء هذا الامر

[asmarsou]

(20-03-23, 09:19 PM)alswade كتب : كود استدعاء msconfig بالفيجوال بيسك
عاوز كود استدعاء هذا الامر

 جرب ما يلي

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim p As Process

       Try

           'instance a new process
           p = New Process

           'set the filename to open
           p.StartInfo.FileName = ("C:\WIndows\System32\msconfig.exe")

           'open the process in the normal window style
           p.StartInfo.WindowStyle = ProcessWindowStyle.Normal

           'use the OS shell to open the file
           p.StartInfo.UseShellExecute = True

           p.StartInfo.CreateNoWindow = False

           'start the process
           p.Start()


       Catch exc As Exception

           MessageBox.Show(exc.Message, " Error", MessageBoxButtons.OK, MessageBoxIcon.Error)

       End Try
   End Sub

[alswade]

(20-03-23, 09:29 PM)asmarsou كتب :

(20-03-23, 09:19 PM)alswade كتب : كود استدعاء msconfig بالفيجوال بيسك
عاوز كود استدعاء هذا الامر

 جرب ما يلي

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim p As Process

       Try

           'instance a new process
           p = New Process

           'set the filename to open
           p.StartInfo.FileName = ("C:\WIndows\System32\msconfig.exe")

           'open the process in the normal window style
           p.StartInfo.WindowStyle = ProcessWindowStyle.Normal

           'use the OS shell to open the file
           p.StartInfo.UseShellExecute = True

           p.StartInfo.CreateNoWindow = False

           'start the process
           p.Start()


       Catch exc As Exception

           MessageBox.Show(exc.Message, " Error", MessageBoxButtons.OK, MessageBoxIcon.Error)

       End Try
   End Sub

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