open control pannel

Added on 10/2/2000

Compatibilities:
Script
Required Xtras:
Buddy API

This item has not yet been rated

Author: MediaMacros (website)

This opens control pannels. Call like this... openControlPannel(whatPannel) Possible values are... Mouse, keyboard, printer, fonts, display, bakgrounds, screenSaver, appearance, international, mmedia, modem, ports, system, timedate, accessability, install/uninstall, internet, network, dial, ups. Any other panel can be opened by using the panel name with the .cpl extension.

on openControlPannel whatPannel
  case whatPannel of
    "mouse" :
      baRunProgram( "control.exe main.cpl @0" , "normal" , false )
    "keyboard" :
      baRunProgram( "control.exe main.cpl @1" , "normal" , false )
    "printer" :
      baRunProgram( "control.exe main.cpl @2" , "normal" , false )
    "fonts" :
      baRunProgram( "control.exe main.cpl @3" , "normal" , false )
    "display" :
      baRunProgram( "control.exe desk.cpl Display,3" , "normal" , false )
    "backgrounds" :
      baRunProgram( "control.exe desk.cpl Display,0" , "normal" , false )
    "ScreenSaver" :
      baRunProgram( "control.exe desk.cpl Display,1" , "normal" , false )
    "Appearance" :
      baRunProgram( "control.exe desk.cpl Display,2" , "normal" , false )
    "International" :
      baRunProgram( "control.exe intl.cpl ", "normal" , false )
    "MMedia" :
      baRunProgram( "control.exe mmsys.cpl ", "normal" , false )
    "Modem" :
      baRunProgram( "control.exe modem.cpl ", "normal" , false )
    "Ports" :
      baRunProgram( "control.exe ports.cpl ", "normal" , false )
    "System" :
      baRunProgram( "control.exe sysdm.cpl ", "normal" , false )
    "TimeDate" :
      baRunProgram( "control.exe timedate.cpl ", "normal" , false )
    "Accessability" :
      baRunProgram( "control.exe access.cpl ", "normal" , false )
    "Install/Uninstall" :
      baRunProgram( "control.exe appwiz.cpl ", "normal" , false )
    "Internet" :
      baRunProgram( "control.exe inetcpl.cpl ", "normal" , false )
    "Network" :
      baRunProgram( "control.exe ncpa.cpl ", "normal" , false )
    "Dial" :
      baRunProgram( "control.exe telephon.cpl ", "normal" , false )
    "UPS" :
      baRunProgram( "control.exe ups.cpl ", "normal" , false )
    otherwise :
      baRunProgram( "control.exe " & whatPannel &" ", "normal" , false )
  end case
end

on getBehaviorDescription me
  describe = "This opens control pannels.  Call like this..." & return & "openControlPannel(whatPannel)" & return & "Possible values are..." & return & "Mouse, keyboard, printer, fonts, display, bakgrounds, screenSaver, appearance, international, mmedia, modem, ports, system, timedate, accessability, install/uninstall, internet, network, dial, ups." & return & "Any other panel can be opened by using the panel name with the .cpl extension."
  return describe
end

Upload Provided by ABCUpload ASP

Contact

MMI
22 West Court Sq
Suite 2C
Newnan, GA 30263
USA

Fax - (206) 339-5833

Send e-mail