谢谢！知道了。

??

在我的电脑下什么也没看到,那几个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把他设置为鼠标穿透,也就是鼠标点不到窗口,而是点的桌面,然后再把设置成以桌面为父窗口.这样就实现了...