20-03-23, 09:19 PM
20-03-23, 09:29 PM
(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 Sub21-03-23, 01:38 AM
(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
جزاك الله خير وبارك الله فيك وجعلها الله في ميزان حسناتك