منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[كود] كود استدعاء msconfig بالفيجوال بيسك - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [كود] كود استدعاء msconfig بالفيجوال بيسك (/showthread.php?tid=45745)



كود استدعاء msconfig بالفيجوال بيسك - alswade - 20-03-23

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


RE: كود استدعاء msconfig بالفيجوال بيسك - asmarsou - 20-03-23

(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



RE: كود استدعاء msconfig بالفيجوال بيسك - alswade - 21-03-23

(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

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