|
分享源码
界面截图: |
- |
是否带模块: |
- |
备注说明: |
- |
来这么久了 没发过什么东东 今天突然对d2d 感兴趣 就随便写了一个 桌面飞苍蝇的 程序 苍蝇头没有根据方向转向 有兴趣 的可以下载完善一下 窗口程序集名 | 保 留 | 保 留 | 备 注 | 程序集1 | | | | 变量名 | 类 型 | 数组 | 备 注 | 图片x | | | 图片x增加 | 逻辑型 | | 图片y增加 | 逻辑型 | | 图片y | | | bs1 | 整数型 | | bs2 | 整数型 | | bs1j | 逻辑型 | | bs2j | 逻辑型 | | bs10 | 整数型 | | bs20 | 整数型 | | bs1j0 | 逻辑型 | | bs2j0 | 逻辑型 | | bs11 | 整数型 | | bs21 | 整数型 | | bs1j1 | 逻辑型 | | bs2j1 | 逻辑型 | | bs12 | 整数型 | | bs22 | 整数型 | | bs1j2 | 逻辑型 | | bs2j2 | 逻辑型 | | 图片x0 | | | 图片x增加0 | 逻辑型 | | 图片y增加0 | 逻辑型 | | 图片y0 | | | 图片x1 | | | 图片x增加1 | 逻辑型 | | 图片y增加1 | 逻辑型 | | 图片y1 | | | 图片x2 | | | 图片x增加2 | 逻辑型 | | 图片y增加2 | 逻辑型 | | 图片y2 | | | pmkd | 整数型 | | pmgd | 整数型 | | 主程序 ()返回 (0 ) XInitXCGUI ({ }) pmkd = 取屏幕宽度 ()pmgd = 取屏幕高度 ()HWD = XWnd_Create (0, 0, pmkd, pmgd, L (“d2d测试”, ), 0, #xc_window_style_center )XWnd_ShowWindow (HWD, #SW_SHOW )窗口句柄 = XWnd_GetHWND (HWD )窗口_置透明度 (窗口句柄, 0, #深灰, 真)XWnd_EnableDragWindow (HWD, 真)xskz2d [1 ]. 创建窗口模式 (窗口句柄, pmkd, pmgd )图片x = 0 图片x0 = 到整数 (取屏幕宽度 () ÷ 11 )图片x1 = 到整数 (取屏幕宽度 () ÷ 5 )图片x2 = 到整数 (取屏幕宽度 () ÷ 20 )图片y = 0 图片y0 = 到整数 (取屏幕高度 () ÷ 3 )图片y1 = 到整数 (取屏幕高度 () ÷ 7 )图片y2 = 到整数 (取屏幕高度 () ÷ 11 )线程_启动 (&sx2d, 80, )XRunXCGUI ()XExitXCGUI () 判断循环首 (真)xskz2d [1 ]. 填充 ( #深灰 )ymkz2d. 建位图页面 (xskz2d [1 ], 取运行目录 () + “\cy.bmp”, )ymkz2d. 置顶点关键色 ()判断 (bs1 ≤ 1 )bs1j = 真 判断 (bs1 ≥ 200 )bs1j = 假 判断 (bs2 ≤ 1 )bs2j = 真 判断 (bs2 ≥ 80 )bs2j = 假 判断 (bs1j )bs1 = bs1 + 1 bs1 = bs1 - 1 判断 (bs2j )bs2 = bs2 + 1 bs2 = bs2 - 1 判断 (图片x ≤ 0 )图片x增加 = 真 判断 (图片x ≥ pmkd )图片x增加 = 假 判断 (图片y ≤ 0 )图片y增加 = 真 判断 (图片y ≥ pmgd )图片y增加 = 假 判断 (图片x增加 )图片x = 图片x + bs1 图片x = 图片x - bs2 判断 (图片y增加 )图片y = 图片y + bs2 图片y = 图片y - bs1 判断 (bs10 ≤ 1 )bs1j0 = 真 判断 (bs10 ≥ 200 )bs1j0 = 假 判断 (bs20 ≤ 1 )bs2j0 = 真 判断 (bs20 ≥ 80 )bs2j0 = 假 判断 (bs1j0 )bs10 = bs10 + 2 bs10 = bs10 - 2 判断 (bs2j0 )bs20 = bs20 + 2 bs20 = bs20 - 2 判断 (图片x0 ≤ 0 )图片x增加0 = 真 判断 (图片x0 ≥ pmkd )图片x增加0 = 假 判断 (图片y0 ≤ 0 )图片y增加0 = 真 判断 (图片y0 ≥ pmgd )图片y增加0 = 假 判断 (图片x增加0 )图片x0 = 图片x0 + bs10 图片x0 = 图片x0 - bs20 判断 (图片y增加0 )图片y0 = 图片y0 + bs20 图片y0 = 图片y0 - bs10 判断 (bs11 ≤ 1 )bs1j1 = 真 判断 (bs11 ≥ 200 )bs1j1 = 假 判断 (bs21 ≤ 1 )bs2j1 = 真 判断 (bs21 ≥ 80 )bs2j1 = 假 判断 (bs1j1 )bs11 = bs11 + 3 bs11 = bs11 - 3 判断 (bs2j1 )bs21 = bs21 + 3 bs21 = bs21 - 3 判断 (图片x1 ≤ 0 )图片x增加1 = 真 判断 (图片x1 ≥ pmkd )图片x增加1 = 假 判断 (图片y1 ≤ 0 )图片y增加1 = 真 判断 (图片y1 ≥ pmgd )图片y增加1 = 假 判断 (图片x增加1 )图片x1 = 图片x1 + bs11 图片x1 = 图片x1 - bs21 判断 (图片y增加1 )图片y1 = 图片y1 + bs21 图片y1 = 图片y1 - bs11 判断 (bs12 ≤ 1 )bs1j2 = 真 判断 (bs12 ≥ 200 )bs1j2 = 假 判断 (bs22 ≤ 1 )bs2j2 = 真 判断 (bs22 ≥ 80 )bs2j2 = 假 判断 (bs1j2 )bs12 = bs12 + 4 bs12 = bs12 - 4 判断 (bs2j2 )bs22 = bs22 + 4 bs22 = bs22 - 4 判断 (图片x2 ≤ 0 )图片x增加2 = 真 判断 (图片x2 ≥ pmkd )图片x增加2 = 假 判断 (图片y2 ≤ 0 )图片y增加2 = 真 判断 (图片y2 ≥ pmgd )图片y增加2 = 假 判断 (图片x增加2 )图片x2 = 图片x2 + bs12 图片x2 = 图片x2 - bs22 判断 (图片y增加2 )图片y2 = 图片y2 + bs22 图片y2 = 图片y2 - bs12 ymkz2d.透空块复制 (xskz2d [1].取后台页面 (), 图片x2, 图片y, )ymkz2d. 透空块复制 (xskz2d [1 ]. 取后台页面 (), 图片x1, 图片y0, )ymkz2d. 透空块复制 (xskz2d [1 ]. 取后台页面 (), 图片x0, 图片y1, )ymkz2d. 透空块复制 (xskz2d [1 ]. 取后台页面 (), 图片x, 图片y2, )xskz2d [1 ]. 交换页面 (假, 假, 真) 程序_延时 (sj, )判断循环尾 () 源码下载
桌面飞苍蝇学习源码(利用了d2d_基本不占用cpu).zip
(1.35 MB, 下载次数: 91)
|
评分
-
查看全部评分
|