在VB中设置常用的外部设备
，下例中设置该参数的值为0;参数lpvParam的值为：vbNullString ;参数fuWinIni的值如前所述;然后在VB中用下面的语句就可使健盘的延时时间变为约250毫秒。
SystemParametersInfo SPI_SETKEYBOARDDELAY, 0,
vbNullString,
SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)
要设置健盘的重复速度，参数uAction的值为：
---- SPI_SETKEYBOARDSPEED（值为11）;参数uParam的值的范围从0（每秒重复约2.5次）到31（每秒重复约30次），下例中设置该参数的值为31;参数lpvParam的值为：vbNullString ;参数fuWinIni的值如前所述;然后在VB中用下面的语句就可使健盘的重复速度变为每秒重复约30次。
SystemParametersInfo SPI_SETKEYBOARDSPEED, 31,
vbNullString,
SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)
---- 2.1.2 设置鼠标的双击时间及按钮配置
---- 要设置鼠标的双击时间，参数uAction的值为：SPI_SETDOUBLECLICKTIME（值为23）;参数uParam的值的范围从100毫秒900毫秒，下例中设置该参数的值为900毫秒;参数lpvParam的值为：vbNullString ;参数fuWinIni的值如前所述;然后在VB中用下面的语句就可使鼠标的双击时间变为约900毫秒。
SystemParametersInfo SPI_SETDOUBLECLICKTIME, 900,
vbNullString,
SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)
---- 要设置鼠标的按钮配置，参数uAction的值为：SPI_SETMOUSEBUTTONSWAP（值为11）;参数uParam的值的可为True（习惯用右手）或False（习惯用右手），下例中设置该参数的值为True（习惯用右手）;参数lpvParam的值为：vbNullString ;参数fuWinIni的值如前所述;然后在VB中用下面的语句就可使鼠标的按钮配置设置为习惯用右手。
SystemParametersInfo SPI_SETMOUSEBUTTONSWAP,
True,vbNullString,
SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)
---- 2.1.3 设置屏幕保护程序的启用状态及等待时间
---- 要设置屏幕保护程序的启用状态，参数uAction的值为：SPI_SETSCREENSAVEACTIVE（值为23）;参数uParam的值的可为True（启用屏幕保护程序）或False（不启用屏幕保护程序），下例中设置该参数的值为True（启用屏幕保护程序）;参数lpvParam的值为：0& ;参数fuWinIni的值如前所述;然后在VB中用下面的语句就可使屏幕保护程序的为启用状态。
SystemParametersInfo SPI_SETSCREENSAVEACTIVE,True,
0&, SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)
---- 要设置屏幕保护程序的等待时间，参数uAction的值为：
SPI_SETSCREENSAVEACTIVEOUT（值为23）;参数uParam的值为屏幕保护程序的等待时间，单位为秒，下例中设置等待时间为240秒（4分钟）;参数lpvParam的值为：0& ;参数fuWinIni的值如前所述;然后在VB中用下面的语句就可使屏幕保护程序的等待时间变为约240秒（4分钟）。
SystemParametersInfo SPI_SETSCREENSAVEACTIVEOUT,240,0&,
SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)
---- 2.1 调用其它 API函数来设置打印机和显示器
---- 2.2.1 设置系统的默认打印机
---- 要设置系统的默认打印机，我们首先必需知道系统安装了哪些打印机驱动程序，利用VB所提供的Printers集合对象可列举出系统已安装的打印机，方法如下：
Dim i As Integer
For i = 0 To Printers.Count - 1
print Printers(i).DeviceName & ","
&Printers(i).DriverName & "," & Printers(i).Port
Next
---- 要把已安装的某个打印机设置为系统的默认打印机，须在Win.ini中的[windows]节区中写入”Device”Value，然后用通知当前的应用程序，使刚才的设置起作用。
---- 具体方法如下：
Device=打印机名称，驱动程序名称，输出端口
SendMessage HWND_BROADCAST, WM_WININICHANGE,
32
SystemParametersInfo SPI_SETKEYBOARDDELAY, 0,
vbNullString,
SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)
要设置健盘的重复速度，参数uAction的值为：
---- SPI_SETKEYBOARDSPEED（值为11）;参数uParam的值的范围从0（每秒重复约2.5次）到31（每秒重复约30次），下例中设置该参数的值为31;参数lpvParam的值为：vbNullString ;参数fuWinIni的值如前所述;然后在VB中用下面的语句就可使健盘的重复速度变为每秒重复约30次。
SystemParametersInfo SPI_SETKEYBOARDSPEED, 31,
vbNullString,
SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)
---- 2.1.2 设置鼠标的双击时间及按钮配置
---- 要设置鼠标的双击时间，参数uAction的值为：SPI_SETDOUBLECLICKTIME（值为23）;参数uParam的值的范围从100毫秒900毫秒，下例中设置该参数的值为900毫秒;参数lpvParam的值为：vbNullString ;参数fuWinIni的值如前所述;然后在VB中用下面的语句就可使鼠标的双击时间变为约900毫秒。
SystemParametersInfo SPI_SETDOUBLECLICKTIME, 900,
vbNullString,
SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)
---- 要设置鼠标的按钮配置，参数uAction的值为：SPI_SETMOUSEBUTTONSWAP（值为11）;参数uParam的值的可为True（习惯用右手）或False（习惯用右手），下例中设置该参数的值为True（习惯用右手）;参数lpvParam的值为：vbNullString ;参数fuWinIni的值如前所述;然后在VB中用下面的语句就可使鼠标的按钮配置设置为习惯用右手。
SystemParametersInfo SPI_SETMOUSEBUTTONSWAP,
True,vbNullString,
SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)
---- 2.1.3 设置屏幕保护程序的启用状态及等待时间
---- 要设置屏幕保护程序的启用状态，参数uAction的值为：SPI_SETSCREENSAVEACTIVE（值为23）;参数uParam的值的可为True（启用屏幕保护程序）或False（不启用屏幕保护程序），下例中设置该参数的值为True（启用屏幕保护程序）;参数lpvParam的值为：0& ;参数fuWinIni的值如前所述;然后在VB中用下面的语句就可使屏幕保护程序的为启用状态。
SystemParametersInfo SPI_SETSCREENSAVEACTIVE,True,
0&, SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)
---- 要设置屏幕保护程序的等待时间，参数uAction的值为：
SPI_SETSCREENSAVEACTIVEOUT（值为23）;参数uParam的值为屏幕保护程序的等待时间，单位为秒，下例中设置等待时间为240秒（4分钟）;参数lpvParam的值为：0& ;参数fuWinIni的值如前所述;然后在VB中用下面的语句就可使屏幕保护程序的等待时间变为约240秒（4分钟）。
SystemParametersInfo SPI_SETSCREENSAVEACTIVEOUT,240,0&,
SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)
---- 2.1 调用其它 API函数来设置打印机和显示器
---- 2.2.1 设置系统的默认打印机
---- 要设置系统的默认打印机，我们首先必需知道系统安装了哪些打印机驱动程序，利用VB所提供的Printers集合对象可列举出系统已安装的打印机，方法如下：
Dim i As Integer
For i = 0 To Printers.Count - 1
print Printers(i).DeviceName & ","
&Printers(i).DriverName & "," & Printers(i).Port
Next
---- 要把已安装的某个打印机设置为系统的默认打印机，须在Win.ini中的[windows]节区中写入”Device”Value，然后用通知当前的应用程序，使刚才的设置起作用。
---- 具体方法如下：
Device=打印机名称，驱动程序名称，输出端口
SendMessage HWND_BROADCAST, WM_WININICHANGE,
32