请问区域和语言选项 默认账户设置，如何用api实现？

Question

区域和语言选项 默认账户设置 如何用api实现

Answer 1

• 在vb中叫出控制台Item的内容协助工具 内容rundll32.exe最後一个叁数1代表协助工具中TabStrip中的第1个Tab(键盘)若为2表第二个Tab(声音)以此类推Call Shell("rundll32.exe shell32.dll,Control_RunDLL access.cpl,,1",vbNormalFocus)新增移除程式 rundll32.exe最後一个叁数1代表新增移除程式中TabStrip中的第1个Tab安装/移除)Call Shell("rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl,,1",vbNormalFocus)显示器 rundll32.exe最後一个叁数0代表TabStrip中的第1个Tab 背景,若为1则为萤幕保护装置，以此类推)Call Shell("rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,1",vbNormalFocus)使用Flying Windows.scr 当作Screen SaverCall Shell("rundll32.exe desk.cpl,InstallScreenSaver c:\windows\system\Flying Windows.scr", vbNormalFocus)国别设定rundll32.exe最後一个叁数0代表TabStrip中的第1个Tab 国别,若为1则为数字，以此类推)Call Shell("rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,0",vbNormalFocus)JoyStick 设定Call Shell("rundll32.exe shell32.dll,Control_RunDLL joy.cpl", vbNormalFocus)滑鼠Call Shell("rundll32.exe shell32.dll,Control_RunDLL main.cpl @0",vbNormalFocus)键盘Call Shell("rundll32.exe shell32.dll,Control_RunDLL main.cpl @1",vbNormalFocus)印表机Call Shell("rundll32.exe shell32.dll,Control_RunDLL main.cpl @2",vbNormalFocus)FontsCall Shell("rundll32.exe shell32.dll,Control_RunDLL main.cpl @3",vbNormalFocus)输入法Call Shell("rundll32.exe shell32.dll,Control_RunDLL main.cpl @4",vbNormalFocus)电源Call Shell("rundll32.exe shell32.dll,Control_RunDLL main.cpl @5",vbNormalFocus)MS Exchange设定Call Shell("rundll32.exe shell32.dll,Control_RunDLL mlcfg32.cpl",vbNormalFocus)多媒体 rundll32.exe最後一个叁数0代表TabStrip中的第1个Tab 音效,若为1则为影像，以此类推)Call Shell("rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,0",vbNormalFocus)声音Call Shell("rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl @1",vbNormalFocus)数据机Call Shell("rundll32.exe shell32.dll,Control_RunDLL modem.cpl",vbNormalFocus)网路Call Shell("rundll32.exe shell32.dll,Control_RunDLL netcpl.cpl",vbNormalFocus)拨号网路Call Shell("rundll32.exe rnaui.dll,RnaWizard", vbNormalFocus)密码Call Shell("rundll32.exe shell32.dll,Control_RunDLL password.cpl",vbNormalFocus)系统 rundll32.exe最後一个叁数0代表TabStrip中的第1个Tab 一般,若为1则为装置管理员，以此类推)Call Shell("rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,0",vbNormalFocus)新增硬体 精灵Call Shell("rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl @1",vbNormalFocus)新增印表机 精灵Call Shell("rundll32.exe shell32.dll,SHHelpShortcuts_RunDLL AddPrinter",vbNormalFocus)日期/时间 之日期时间Call Shell("rundll32.exe shell32.dll,Control_RunDLL timedate.cpl",vbNormalFocus)日期/时间 之时区Call Shell("rundll32.exe shell32.dll,Control_RunDLL timedate.cpl,,/f",vbNormalFocus)Microsoft Mail 邮局Call Shell("rundll32.exe shell32.dll,Control_RunDLL wgpocpl.cpl",vbNormalFocus)开启档案Call Shell("rundll32.exe shell32.dll,OpenAs_RunDLL d:\path\filename.ext",vbNormalFocus)复制磁碟Call Shell("rundll32 diskcopy.dll,DiskCopyRunDll", vbNormalFocus)Internet(ie4)Call Shell("rundll32.exe shell32.dll,Control_RunDLL inetcpl.cpl,,0",vbNormalFocus)32位元ODBCCall Shell("rundll32.exe shell32.dll,Control_RunDLL odbccp32.cpl",vbNormalFocus)拨号网路Call Shell("undll32.exe shell32.dll,Control_RunDLL telephon.cpl users", vbNormalFocus)

  
  

• 这是用命令调用，我的意思是用api函数。不出现界面操作，直接用函数修改。

•