无忧启动论坛

标题: 模拟Vista透明窗体 V1.6 (超酷！附图) [打印本页]

作者: wzc53320 时间: 2007-2-27 22:37
标题: 模拟Vista透明窗体 V1.6 (超酷！附图)
模拟Vista透明窗体 V1.6

软件类型：免费软件
适用平台：Win2K/WinXp/Win2003/VISTA
软件说明:

本小软件用来模拟Vista透明窗体,让VISTA系统无法启用Aero玻璃效果的朋友过把瘾.XP系统也可使用。要模拟Vista透明窗体，刷新查找活动窗口（或拖放右上角的图标进行搜索）.但请注意选择要模拟的窗口.可自定义外部透明皮肤，修改皮肤配置文件,可用hotoshop修改外部透明皮肤.

1.点击“刷新”按钮查找桌面上可模拟的活动窗口（或拖放右上角的图标进行搜索）。
2.完成第一步后，点击“应用”按钮。
3.可选择不同的透明窗体样式，确定后点击应用按钮。
4.添加关闭参数--模拟Vista窗体退出时可以关闭被加载的程序。
5.请注意选择要模拟的窗口。剩下的您自己好好研究了。

V1.6更新：减少内存的消耗，皮肤的修改更容易，更灵活的换肤操作。。。

如果您觉得本LZ设计的软件还可以，想支持原创软件，就帮忙顶一下^_^:victory:

下载地址：
http://WZC53320.ys168.com
http://u8.sh.com/?WZC53320

模拟Vista窗体V1.6.rar (239.7 KB, 下载次数: 64)

[ 本帖最后由 wzc53320 于 2007-3-11 10:49 PM 编辑 ]

作者: HuAnGkUn 时间: 2007-2-27 22:53
吸附＋重绘＋透明

作者: camingo 时间: 2007-2-27 23:46
不能自动模拟吗？

作者: wzc53320 时间: 2007-2-28 00:08

原帖由 camingo 于 2007-2-27 11:46 PM 发表
不能自动模拟吗？

下一版本，考虑增加这方面的功能。

作者: 123 时间: 2007-2-28 21:08
好玩，以后研究研究。

1.JPG (36.21 KB, 下载次数: 21)

作者: 123 时间: 2007-2-28 21:15
找到了个设置透明窗体的源代码
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Private Const WS_EX_LAYERED = &H80000
Private Const GWL_EXSTYLE = (-20)
Private Const LWA_ALPHA = &H2
Private Const LWA_COLORKEY = &H1

Private Sub Form_Load()

Dim rtn As Long
rtn = GetWindowLong(hwnd, GWL_EXSTYLE)
rtn = rtn Or WS_EX_LAYERED
SetWindowLong hwnd, GWL_EXSTYLE, rtn
SetLayeredWindowAttributes hwnd, 0, 200, LWA_ALPHA

End Sub
把hwnd改成目标窗口的句柄就可以把目标窗口变成透明的。
SetLayeredWindowAttributes的第三个参数是透明度（0～255）

作者: sddylyd 时间: 2007-2-28 21:21
下载看看

作者: missan 时间: 2007-4-7 19:08
呵呵，下来试试

欢迎光临无忧启动论坛 (http://wuyou.net/)