'各API各常量自已加上去Public Sub SCR_Look()
Dim LookScrWnd As Long
Dim Style As Long
Dim LookRect As RECT '将Form3装到小窗口
LookScrWnd = Val(Right(Command$, Len(Command$) - 2)) '取得小屏幕的窗口句柄
Style = GetWindowLong(Form3.hWnd, GWL_STYLE) '取得窗口的样式
Style = Style Or WS_CHILD '在窗口的样式中加入子窗体常数
SetWindowLong Form3.hWnd, GWL_STYLE, Style '改变窗体的样式
SetParent Form3.hWnd, LookScrWnd '设置窗体的父窗体
GetClientRect LookScrWnd, LookRect '取得小屏幕的大小
SetWindowPos Form3.hWnd, HWND_TOP, 0, 0, LookRect.Right, LookRect.Bottom, SWP_NOZORDER Or SWP_NOACTIVATE Or SWP_SHOWWINDOW
'显示窗体并将窗体的大小设置为小屏幕的大小以便覆盖小屏幕
End Sub以下是我用60分买来的
回复人： shuwork(袋鼠) (2002-2-3 23:08:36) 得0分
声明:
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)
如果觉得解决了一些问题，记得给分哦
Dim LookScrWnd As Long
Dim Style As Long
Dim LookRect As RECT '将Form3装到小窗口
LookScrWnd = Val(Right(Command$, Len(Command$) - 2)) '取得小屏幕的窗口句柄
Style = GetWindowLong(Form3.hWnd, GWL_STYLE) '取得窗口的样式
Style = Style Or WS_CHILD '在窗口的样式中加入子窗体常数
SetWindowLong Form3.hWnd, GWL_STYLE, Style '改变窗体的样式
SetParent Form3.hWnd, LookScrWnd '设置窗体的父窗体
GetClientRect LookScrWnd, LookRect '取得小屏幕的大小
SetWindowPos Form3.hWnd, HWND_TOP, 0, 0, LookRect.Right, LookRect.Bottom, SWP_NOZORDER Or SWP_NOACTIVATE Or SWP_SHOWWINDOW
'显示窗体并将窗体的大小设置为小屏幕的大小以便覆盖小屏幕
End Sub以下是我用60分买来的
回复人： shuwork(袋鼠) (2002-2-3 23:08:36) 得0分
声明:
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)
如果觉得解决了一些问题，记得给分哦
(2002-02-05 22:42:42) ZYL910
比较了一下（密码为“1”）！
以下是不同的：[HKEY_USERS\.DEFAULT\Control Panel\desktop]
"ScreenSave_Data"=hex:37,39,00
"ScreenSaveActive"="1"
"ScreenSaveUsePassword"=dword:00000001[HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Explorer\RecentDocs]
"MRUList"="ecbaiolnmkjhgdf"
"e"=hex:74,32,2e,72,65,67,00,1a,00,30,02,00,00,00,00,00,00,00,00,00,00,74,32,\
2e,72,65,67,2e,6c,6e,6b,00,00,00,00(2002-02-05 23:05:40) ZYL910
刚才突然死机了！对话框自己做！
我记得《电脑爱好者》上曾经讲过算法！
先将 密码 与 密码掩码 Xor ，再转成16进制保存！
密码掩码 是 64字节 的，具体的忘了！
算得出！你慢慢试！‘来不及整理
[email protected]
有话好好说，要屏保资料？[email protected] 回复人： visualbaby(好好学习天天向上) (2002-2-6 12:48:59) 得0分
zyl910(910：分儿，我来了！)
dbcontrols(泰山__帮助你使我感到快乐.)
真无聊!!!!
以为分多便是高手呀,风气比分数更重要,没见bardo.ugess等人都不来了吗