发表评论(0)作者：, 平台：, 阅读：14491, 日期：2000-03-12

修改屏保口令

声明：

Private Declare Function PwdChangePassword Lib "mpr" Alias "

PwdChangePasswordA" _

(ByVal lpcRegkeyname As String, ByVal hwnd As Long, ByVal uiReserved1 As

_

Long, ByVal uiReserved2 As Long) As Long

使用：

' 出现修改屏幕保护口令的窗口

Call PwdChangePassword("SCRSAVE", Me.hwnd, 0, 0)