control.txt

来自「Script C被设计成一种解释执行的、C语言风格的脚本语言。它用来完成bat批」· 文本 代码 · 共 187 行

string WindowsDirectory = "c:\windows\";

//for NT:
string SystemDirectory = "c:\windows\system32\";

//for 9X:
//string SystemDirectory = "c:\windows\system\";

function FolderOptions()
begin  
  Open("rundll32.exe",SystemDirectory+"SHELL32.DLL,Options_RunDLL 0");
end

function InstallScreenSaver(string filename)
begin
  Open("rundll32.exe",SystemDirectory+"desk.cpl,InstallScreenSaver "+filename);
end

function ImageView_Fullscreen(string filename)
begin
  Open("rundll32.exe",SystemDirectory+"shimgvw.dll,ImageView_Fullscreen "+filename);
end

function OpenAs(string filename)
begin
  Open("rundll32.exe",SystemDirectory+"shell32.dll,OpenAs_RunDLL "+filename);
end

function ControlPanel()
begin
  Open("rundll32.exe",SystemDirectory+"shell32.dll,Control_RunDLL");
end

function AccessibilityOptions()
begin
  Open("rundll32.exe",SystemDirectory+"shell32.dll,Control_RunDLL access.cpl,,5");
end

function AddNewHardware()
begin
  Open("rundll32.exe",SystemDirectory+"shell32.dll,Control_RunDLL sysdm.cpl @1");
end

function AddRemovePrograms()
begin
  Open("rundll32.exe",SystemDirectory+"shell32.dll,Control_RunDLL appwiz.cpl,,1");
end

function WindowsSetup()
begin
  Open("rundll32.exe",SystemDirectory+"shell32.dll,Control_RunDLL appwiz.cpl,,2");
end

function StartupDisk()
begin
  Open("rundll32.exe",SystemDirectory+"shell32.dll,Control_RunDLL appwiz.cpl,,3");
end

function DateTime()
begin
  Open("rundll32.exe",SystemDirectory+"shell32.dll,Control_RunDLL timedate.cpl,,0");
end

function DesktopThemes()
begin
  Open("rundll32.exe",SystemDirectory+"shell32.dll,Control_RunDLL THEMES.CPL");
end

function ApplyThemesFile(string filename)
begin
  ShellExecute(0,"Apply Settings", filename, "/s","",0);
end

function OpenThemesFile(string filename)
begin
  ShellExecute(0,"Apply Settings", filename, "","",0);
end

function DialUpNetworking(string ConnectionName)
begin
  Open("rundll32.exe",SystemDirectory+"rnaui.dll,RnaRunImport "+ConnectionName);
end

function DirectXProperties()
begin
  Open("rundll32.exe",SystemDirectory+"shell32.dll,Control_RunDLL directx.cpl,,0");
end

function DisplayProperties()
begin
  Open("rundll32.exe",SystemDirectory+"shell32.dll,Control_RunDLL desk.cpl,,0");
end

function Fonts()
begin
  Open("rundll32.exe",SystemDirectory+"shell32.dll,Control_RunDLL main.cpl @3");
end

function GamingOptions()
begin
  Open("rundll32.exe",SystemDirectory+"shell32.dll,Control_RunDLL joy.cpl");
end

function InternetOptions()
begin
  ShellExecute(0,"", "INETCPL.CPL","");
end

function KeyboardProperties()
begin
  Open("rundll32.exe",SystemDirectory+"shell32.dll,Control_RunDLL main.cpl @1");
end

function MailAndFax()
begin
  Open("rundll32.exe",SystemDirectory+"shell32.dll,Control_RunDLL mlcfg32.cpl");
end

function Modem()
begin
  Open("rundll32.exe",SystemDirectory+"shell32.dll,Control_RunDLL MODEM.CPL");
end

function MouseProperties()
begin
  Open("rundll32.exe",SystemDirectory+"shell32.dll,Control_RunDLL main.cpl @0");
end

function Network()
begin
  Open("rundll32.exe",SystemDirectory+"shell32.dll,Control_RunDLL NETCPL.CPL");
end

function PasswordsProperties()
begin
  Open("rundll32.exe",SystemDirectory+"shell32.dll,Control_RunDLL PASSWORD.CPL");
end

function PowerOptions()
begin
  Open("rundll32.exe",SystemDirectory+"shell32.dll,Control_RunDLL POWERCFG.CPL");
end

function Printers()
begin
  Open("rundll32.exe",SystemDirectory+"shell32.dll,Control_RunDLL main.cpl @2");
end

function RegionalSettings()
begin
  Open("rundll32.exe",SystemDirectory+"shell32.dll,Control_RunDLL intl.cpl,,0");
end

function Run(string filename)
begin
  Open("rundll32.exe",SystemDirectory+"url.dll,FileProtocolHandler "+filename);
end

function SoundsAndMultimedia()
begin
  Open("rundll32.exe",SystemDirectory+"shell32.dll,Control_RunDLL mmsys.cpl,,0");
end

function SystemProxperties()
begin
  Open("rundll32.exe",SystemDirectory+"shell32.dll,Control_RunDLL sysdm.cpl,,0");
end

function TaskbarAndStartMenuProperties()
begin
  Open("rundll32.exe",SystemDirectory+"SHELL32.DLL,Options_RunDLL 1");
end

function Telephony()
begin
  Open("rundll32.exe",SystemDirectory+"SHELL32.DLL,Control_RunDLL TELEPHON.CPL");
end

function Users()
begin
  ShellExecute(0,"", "INETCPL.CPL", "Users","",0);
end

function WindowsUpDateAutoUpdate()
begin
  Open("rundll32.exe",SystemDirectory+"SHELL32.DLL,Control_RunDLL WUAUCPL.CPL");
end