当前位置:编程学习 > VB >>

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

http://www.autoitx.com/attachment.php?aid=MTcwMTd8M2MyMGRmZWV8MTMyMDAyMDMzOHxjOWU2ODNkQUhMVnVSS0tSNDI0NTBwUDlMMkNmWEJ1djA5L05HV3MzcHQ0bUNMNA%3D%3D&noupdate=yes

区域和语言选项--高级 中,选中“将所有设置应用于当前账户和默认用户配置文件”后确定。
这个用哪个api函数实现 。求指点。 --------------------编程问答-------------------- 在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 Saver
Call 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)

Fonts
Call 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位元ODBC
Call Shell("rundll32.exe shell32.dll,Control_RunDLL odbccp32.cpl",vbNormalFocus)

拨号网路
Call Shell("undll32.exe shell32.dll,Control_RunDLL telephon.cpl users", vbNormalFocus)


--------------------编程问答--------------------
引用 1 楼 veron_04 的回复:
在vb中叫出控制台Item的内容


协助工具 内容rundll32.exe最後一个叁数1代表协助工具中TabStrip中的第1个Tab(键盘)
若为2表第二个Tab(声音)以此类推
Call Shell("rundll32.exe shell32.dll,Control_RunDLL access.cpl,,1",vbNormalFocus)

新增移除程式 rundll32.ex……

这是用命令调用,我的意思是用api函数。不出现界面操作,直接用函数修改。 --------------------编程问答-------------------- 有人知道吗
?
补充:VB ,  API
CopyRight © 2022 站长资源库 编程知识问答 zzzyk.com All Rights Reserved
部分文章来自网络,