模拟Vista透明窗体 V1.6 (超酷！附图)

wzc53320

模拟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)

2007-3-1 01:34 上传

点击文件名下载附件

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

HuAnGkUn

吸附＋重绘＋透明

camingo

不能自动模拟吗？

wzc53320

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

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

123

好玩，以后研究研究。

123

找到了个设置透明窗体的源代码
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

下载看看

missan

呵呵，下来试试