动态桌面蚂蚁爬行和飘雪特效

还有一个是3只蚂蚁在屏幕爬行 恶搞类的

不要被图片误导 他们是分开的 一个下雪 一个蚂蚁爬 看到又下雪又蚂蚁的是我两个都开了。

系统_置桌面背景 (取运行目录 () ＋ “\1.jpg”)
_启动窗口.左边 ＝ -5
_启动窗口.顶边 ＝ -10
_启动窗口.宽度 ＝ 取屏幕宽度 () ＋ 10
_启动窗口.高度 ＝ 取屏幕高度 () ＋ 20
窗口_创建Flash (取窗口句柄 (), 取运行目录 () ＋ “\5.swf”, 取屏幕宽度 () ＋ 10, 取屏幕高度 () ＋ 10, 0, 0)
窗口_置透明颜色 (取窗口句柄 (), 13421772)
窗口_置位置和大小 (0, 0)
ws ＝ GetWindowLong (取窗口句柄 (), #GWL_EXSTYLE)
ws ＝ 位或 (ws, #WS_EX_TRANSPARENT)
ws ＝ 位或 (ws, #WS_EX_LAYERED)
SetWindowLong (取窗口句柄 (), #GWL_EXSTYLE, ws)

炫酷3D、粒子动感特效，畅享全新视觉冲击，一流设计师，精良力作每日更新，趣味交互特效，壁纸也能玩起来。