VB如何实现窗口无限抖动

来源：百度知道 编辑：UC知道 时间：2024/06/15 15:31:59
我需要的就是运行一个程序之后，你当前选择的窗口就开始无限的抖动，抖动的效果类似与QQ窗口的抖动，但是幅度要大，时间无限。抖动的也要随着抖动变换窗口的位置，进程隐藏起来。
我看了http://zhidao.baidu.com/question/41651173.html
我也动作制作了，效果不好，并且这个窗口也只是VB的单独的窗口。
我需要的是用户当前选择的窗口进行无限抖动。
1楼的回答抖动效果不是特别好，还没有达到我的效果。

我是想程序运行之后隐藏自己，也就是没有窗口出现，进程隐藏起来。但是运行之后，只要当前用户选择到一个窗口，比如IE的窗口，就会不停的抖动，和QQ窗口抖动类似，但是抖动的幅度要大，并且抖动的时候还会自己乱移动。

下面窗口基本可以满足你的要求。
说明：1、本程序运行后隐藏自己，但没有隐藏进程(在XP下很难做到，所以放弃)；
2、如果想加大抖动幅度,请修改jd值 即可。

'====窗框代码====
Option Explicit

Private Type POINT
x As Long
y As Long
End Type

Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type

Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Private Declare Function GetForegroundWindow Lib "user32" () As Long
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Declare Function MoveWindow Lib "user32" (ByVal hwnd As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As Long
Dim r As RECT, mPOINT As POINT,