01-05-20, 07:30 AM
01-05-20, 02:57 PM
كود :
'إغلاق الجهاز
Process.Start("Shutdown", "/s")
' إعادة تشغيل
Process.Start("Shutdown", "/r")
'تسجيل الخروج
Process.Start("Shutdown", "/l")01-05-20, 08:19 PM
السلام عليكم ورحمه الله وبركاته
لفتح الكونترول بانل
استخدمي هذا الكود
كود :
Dim control As New Process
control.StartInfo.FileName = "cmd.exe"
control.StartInfo.RedirectStandardInput = True
control.StartInfo.RedirectStandardOutput = True
control.StartInfo.CreateNoWindow = True
control.StartInfo.UseShellExecute = False
control.Start()
control.StandardInput.WriteLine("start control")
control.StandardInput.Flush()
control.StandardInput.Close()
Console.WriteLine(control.StandardOutput.ReadToEnd())لفتح شئ معين في الكنترول بانل
كود :
'Add/Remove Programs
Process.Start("AppWiz.cpl")
'Display Properties
Process.Start("Desk.cpl")
'Internet Properties
Process.Start("Inetcpl.cpl")
'Regional Settings Properties
Process.Start("Intl.cpl")
'Joystick
Process.Start("Joy.cpl")
'Mouse Properties
Process.Start("Main.cpl")
'Multimedia Properties
Process.Start("Mmsys.cpl")
'Modem Properties
Process.Start("Modem.cpl")
'Password Properties
Process.Start("Password.cpl")
'System Properties
Process.Start("Sysdm.cpl")
'Desktop Themes
Process.Start("Themes.cpl")
'Date/Time Properties
Process.Start("Timedate.cpl")
'MS Workgroup Post Office
Process.Start("Wgpocpl.cpl")
'Network Properties
Process.Start("Netcpl.cpl")