[原创][震撼] 刚写了好东西,窗口嵌入桌面,超漂亮,超有创意
前段时间写了个自动填表的,得到了个精华帖
,兴趣一来,又写个好东西跟大家分享.
dtiV9lRQ.rar启动后把前台窗口最小化,看看你的桌面,有什么效果...
前段时间写了个自动填表的,得到了个精华帖
,兴趣一来,又写个好东西跟大家分享.启动后把前台窗口最小化,看看你的桌面,有什么效果...
,兴趣一来,又写个好东西跟大家分享.
2007-03-10 21:13
2007-03-10 21:33
2007-03-10 21:37
2007-03-11 20:07
??
在我的电脑下什么也没看到,那几个API我也不会用.
请楼主帮忙注释一下吧,谢谢
Private Sub Form_Load()
Label1.Caption = "本程序是121038做的,潜入桌面程序,做人就要有个目标,比如我的目标就是要为您服务,支持的就顶"
Move 0, 0
Dim bl As Long
bl = GetWindowLongA(hwnd, -20)
bl = bl Or 32 Or 800000
SetWindowLongA hwnd, -20, bl
SetLayeredWindowAttributes hwnd, 0, 120, 2
bl = FindWindowA("ProgMan", 0)
bl = GetWindow(bl, 5)
SetParent hwnd, bl
End Sub
Private Sub Timer1_Timer()
Label1.Move Label1.Left - 100
If Label1.Left < -Label1.Width Then
Label1.Left = Width
End If
End Sub
看你的桌面....
我先来解释下程序,就解释LOAD部分,相信Timer部分大家看得懂的
bl = GetWindowLongA(hwnd, -20) '获得句柄
bl = bl Or 32 Or 800000 '位或操作
SetWindowLongA hwnd, -20, bl '设置窗口风格(鼠标穿透)
SetLayeredWindowAttributes hwnd, 0, 120, 2 '设置窗口透明
bl = FindWindowA("ProgMan", 0) '查找桌面句柄
bl = GetWindow(bl, 5) '寻找窗口
SetParent hwnd, bl '设置父窗口
我再详细解释下,其实程序是这样的.先设置自身窗口的风格,透明什么的,再用API把他设置为鼠标穿透,也就是鼠标点不到窗口,而是点的桌面,然后再把设置成以桌面为父窗口.这样就实现了...
2007-03-14 21:29
2007-03-14 21:33