启动画面（弹出窗口，RGE最适合）

一箭烂YiJL

0.序
这个是我的"伪 3D Map"在 v0.4 阶段的东西，如果认为不适合在这里发布，版主请移至 RGE 专区。
主要功能：弹出一个启动画面窗口（无框边位图，透明度）
支援格式：bmp，而且不能透明背景（VX/XP 可以先加载至 Bitmap 类，再存为 bmp 或者制作 hBitmap 结构）
（RGE 最适合使用）

1.开始
图（伪3D Map）：

经过序的介绍后，就要说如何应用。专门给脚本加载过长的游戏使用。
RGE：在 main RGE.init （生成主窗口）的游戏，在最前放进脚本页。
VX/XP：先要给 Game.exe 去掉 ShowWindow（反汇编），然后在最前放进脚本页，以及自己在 main 调用ShowWindow。ps2：XP 请有心人帮助弄范例（而且尤其关注 XP 编码（转换））。
ps3：请放置 Splash.bmp！
在每一个加载阶段也可以切换窗口文字（内容），例如脚本页：

Splash (启动画面脚本)

操作：Splash.redraw("正在就加载精灵类")

▼ Sprite

。。。。。。（精灵类父类）

操作：Splash.redraw("正在就加载游戏物件")

▼ 游戏物件

。。。。。。（游戏物件）

操作：Splash.release（结束启动画面）

mian

2.脚本

1. 
   
2. #==============================================================================
   
3. # ■ Splash by YiJL
   
4. #------------------------------------------------------------------------------
   
5. # 　启动画面。
   
6. #   
   
7. #   - Splash.init
   
8. #     初始化
   
9. #
   
10. #   - Splash.redraw(str)
    
11. #     改变显示文字
    
12. #
    
13. #   - Splash.release
    
14. #     释放窗口
    
15. #
    
16. #==============================================================================
    
17. 
    
18. module Splash
    
19.   #--------------------------------------------------------------------------
    
20.   # ● Win32API
    
21.   #--------------------------------------------------------------------------
    
22.   M2W = Win32API.new("kernel32", "MultiByteToWideChar",  "ilpipi" , "i")
    
23.   CreateWindowEx = Win32API.new("user32", "CreateWindowExW", "lpplllllllll", "l")
    
24.   ShowWindow = Win32API.new("user32", "ShowWindow", "ll", "l")
    
25.   LoadImage = Win32API.new("user32", "LoadImageW", "lpllll", "l")
    
26.   GetCurrentProcess = Win32API.new("kernel32", "GetCurrentProcess", "v", "l")
    
27.   SelectObject = Win32API.new("gdi32", "SelectObject", "ll", "l")
    
28.   DeleteObject = Win32API.new("gdi32", "DeleteObject", "l", "l")
    
29.   GetDC = Win32API.new("user32", "GetDC", "l", "l")
    
30.   ReleaseDC = Win32API.new("user32", "ReleaseDC", "ll", "l")
    
31.   DestroyWindow = Win32API.new("user32", "DestroyWindow", "l", "l")
    
32.   GetSystemMetrics = Win32API.new("user32", "GetSystemMetrics", "l", "l")
    
33.   TextOut = Win32API.new("gdi32", "TextOutW", "lllpl", "l")
    
34.   CreatePatternBrush = Win32API.new("gdi32", "CreatePatternBrush", "l", "l")
    
35.   CreateFont = Win32API.new("gdi32", "CreateFontW", "lllllllllllllp", "l")
    
36.   FillRect = Win32API.new("user32", "FillRect", "lpl", "l")
    
37.   SetBkMode = Win32API.new("gdi32", "SetBkMode", "ll", "l")
    
38.   Sleep = Win32API.new("kernel32", "Sleep", "l", "v")
    
39.   SetLWndAttri = Win32API.new("user32", "SetLayeredWindowAttributes", "llll", "l")
    
40.   PeekMessage = Win32API.new("user32", "PeekMessageW", "pllll", "l")
    
41.   #--------------------------------------------------------------------------
    
42.   # ● 常量
    
43.   #--------------------------------------------------------------------------
    
44.   BMPW = 600                 # 位图长度
    
45.   BMPH = 360                 # 位图高度
    
46.   BMPP = "Splash.bmp"        # 位图路径
    
47.   FONT = "Microsoft YaHei"   # 显示字体
    
48.   WAIT = 1                   # 等待时间(s)
    
49.   TXTX = 30                  # 字体显示 x 坐标
    
50.   TXTY = 210                 # 字体显示 y 坐标
    
51.   FNTS = 24                  # 字体大小
    
52.   #--------------------------------------------------------------------------
    
53.   # ● 初始化
    
54.   #--------------------------------------------------------------------------
    
55.   def self.init
    
56.     if @hSplashWnd.nil?
    
57.       hInstance = GetCurrentProcess.call
    
58.       @hSplashWnd = CreateWindowEx.call(0x80000, wchar("#32771"), wchar("Splash"),
    
59.       0x80000000, (GetSystemMetrics.call(0) - BMPW) / 2,
    
60.       (GetSystemMetrics.call(1) - BMPH) / 2, BMPW, BMPH, 0, 0, hInstance, 0)
    
61.       ShowWindow.call(@hSplashWnd, 1)
    
62.       SetLWndAttri.call(@hSplashWnd, 0, 220, 2)
    
63.       hDC = GetDC.call(@hSplashWnd)
    
64.       @hBitmap = LoadImage.call(hInstance, wchar(BMPP), 0, BMPW, BMPH, 0x10)
    
65.       @hFont = CreateFont.call(FNTS, 0, 0, 0, 400, 0, 0, 0, 0, 0, 0, 0, 0, wchar(FONT))
    
66.       @hBrush = CreatePatternBrush.call(@hBitmap)
    
67.       FillRect.call(hDC, [0, 0, BMPW, BMPH].pack("l*"), @hBrush)
    
68.       SetBkMode.call(hDC, 1)
    
69.       SelectObject.call(hDC, @hFont)
    
70.       str = " "
    
71.       TextOut.call(hDC, TXTX, TXTY, wchar(str), str.split(//u).size)
    
72.       ReleaseDC.call(@hSplashWnd, hDC)
    
73.       msg = " " * 28
    
74.       time = Time.now
    
75.       while Time.now - time < WAIT
    
76.         # 防止无响应
    
77.         PeekMessage.call(msg, @hSplashWnd, 0, 0, 0)
    
78.         Sleep.call(500)
    
79.       end
    
80.     end
    
81.   end
    
82.   #--------------------------------------------------------------------------
    
83.   # ● 重画
    
84.   #--------------------------------------------------------------------------
    
85.   def self.redraw(str)
    
86.     unless @hSplashWnd.nil?
    
87.       hDC = GetDC.call(@hSplashWnd)
    
88.       FillRect.call(hDC, [0, 0, BMPW, BMPH].pack("l*"), @hBrush)
    
89.       SetBkMode.call(hDC, 1)
    
90.       SelectObject.call(hDC, @hFont)
    
91.       TextOut.call(hDC, TXTX, TXTY, wchar(str), str.split(//u).size)
    
92.       ReleaseDC.call(@hSplashWnd, hDC)
    
93.       msg = " " * 28
    
94.       time = Time.now
    
95.       while Time.now - time < WAIT
    
96.         # 防止无响应
    
97.         PeekMessage.call(msg, @hSplashWnd, 0, 0, 0)
    
98.         Sleep.call(500)
    
99.       end
    
100.     end
     
101.   end
     
102.   #--------------------------------------------------------------------------
     
103.   # ● 释放
     
104.   #--------------------------------------------------------------------------
     
105.   def self.release
     
106.     unless @hSplashWnd.nil?
     
107.       DeleteObject.call(@hFont)
     
108.       DeleteObject.call(@hBitmap)
     
109.       DeleteObject.call(@hBrush)
     
110.       DestroyWindow.call(@hSplashWnd)
     
111.       hSplashWnd = nil
     
112.     end
     
113.   end
     
114.   #--------------------------------------------------------------------------
     
115.   # ● unicode 编码
     
116.   #--------------------------------------------------------------------------
     
117.   def self.wchar(str)
     
118.     length = M2W.call(65001, 0, str, -1, 0, 0) << 1
     
119.     buffer = " " * length
     
120.     M2W.call(65001, 0, str, -1, buffer, length)
     
121.     return buffer
     
122.   end
     
123. end
     
124. 
     
125. Splash.init

复制代码

3.范例
VX： 启动画面.zip (948.11 KB, 下载次数: 2152)

2011-10-12 21:39 上传

点击文件名下载附件

（感谢月夜神音的编辑支援）
XP：waiting for 有心人中。。

Front

仔细一看是我没有把ShowWindow去掉...求箭烂大叔反汇编软件...Explorer不好用

Front

VX 用的话~会和Game.exe一起显示出来.

poiuy12348609

請問va支持嗎?

yangff

一箭烂YiJL 发表于 2011-10-14 22:46
果然-v-（尤其是支持 PNG），自 XP 引入了 GDI+ ，Win2000 用户的话要自己装咯。
嗯，最初写这个脚本的时 ...

libPng=v=
或者自行静态反汇编RGE的dll

一箭烂YiJL

yangff 发表于 2011-10-14 22:32
嗯
UpdateLayeredWindow 没有任何问题……WIN2000确实不支持=v=
效果比SetLayeredWindowAttributes 好。

果然-v-（尤其是支持 PNG），自 XP 引入了 GDI+ ，Win2000 用户的话要自己装咯。
嗯，最初写这个脚本的时候考虑到这个函数的兼容问题= =....
似乎我还真不该用 CreatePatternBrush 和 FillRect。
VX 和 XP 要做 png 加载做 tagBITMAP 还算容易，RGE 在 init 之前就麻烦了，
或许还需要外加一个图像格式转换插件。

yangff

一箭烂YiJL 发表于 2011-10-14 22:04
是指 SetLayeredWindowAttributes ？

UpdateLayeredWindow 我试过的，但我怀疑半透明问题和能在 HBITMA ...

嗯
UpdateLayeredWindow 没有任何问题……WIN2000确实不支持=v=
效果比SetLayeredWindowAttributes 好。
支持半透明，可以传递Png，实现简单，就是不能用WM_PAINT这个比较讨厌……
带上WS_EX_LAYERED样式实现比较简单的说……

1.         public void SetBits(Bitmap bitmap)
   
2.         {
   
3.             //if (!haveHandle) return;
   
4.             if (!Bitmap.IsCanonicalPixelFormat(bitmap.PixelFormat) || !Bitmap.IsAlphaPixelFormat(bitmap.PixelFormat))
   
5.                 throw new ApplicationException("图片必须是32位带Alhpa通道的图片。");
   
6.             IntPtr oldBits = IntPtr.Zero;
   
7.             IntPtr screenDC = Win32.GetDC(IntPtr.Zero);
   
8.             IntPtr hBitmap = IntPtr.Zero;
   
9.             IntPtr memDc = Win32.CreateCompatibleDC(screenDC);
   
10.             try {
    
11.                 Win32.Point topLoc = new Win32.Point(Left, Top);
    
12.                 Win32.Size bitMapSize = new Win32.Size(bitmap.Width, bitmap.Height);
    
13.                 Win32.BLENDFUNCTION blendFunc = new Win32.BLENDFUNCTION();
    
14.                 Win32.Point srcLoc = new Win32.Point(0, 0);
    
15.                 hBitmap = bitmap.GetHbitmap(Color.FromArgb(0));
    
16.                 oldBits = Win32.SelectObject(memDc, hBitmap);
    
17.                 blendFunc.BlendOp = Win32.AC_SRC_OVER;
    
18.                 blendFunc.SourceConstantAlpha = 255;
    
19.                 blendFunc.AlphaFormat = Win32.AC_SRC_ALPHA;
    
20.                 blendFunc.BlendFlags = 0;
    
21.                 Win32.UpdateLayeredWindow(Handle, screenDC, ref topLoc, ref bitMapSize, memDc, ref srcLoc, 0, ref blendFunc, Win32.ULW_ALPHA);
    
22.             }
    
23.             finally
    
24.             {
    
25.                 if (hBitmap != IntPtr.Zero)
    
26.                 {
    
27.                     Win32.SelectObject(memDc, oldBits);
    
28.                     Win32.DeleteObject(hBitmap);
    
29.                 }
    
30.                 Win32.ReleaseDC(IntPtr.Zero, screenDC);
    
31.                 Win32.DeleteDC(memDc);
    
32.             }
    
33.         }
    

复制代码

一箭烂YiJL

yangff 发表于 2011-10-14 20:22
不建议用这个api
LZ可以去看看UpdateLayeredWindow这个API我相信效果会比LZ现在用的好很多 ...

不建议用这个api

是指 SetLayeredWindowAttributes ？

UpdateLayeredWindow 我试过的，但我怀疑半透明问题和能在 HBITMAP ->(CreatePatternBrush) HBRUSH ->(FillRect) HDC 其中。（另外你说的 UpdateLayeredWindow 是要有 GDI+ 支持的那个么？）

yangff

不建议用这个api
LZ可以去看看UpdateLayeredWindow这个API我相信效果会比LZ现在用的好很多

退屈￡无聊

翻着手册勉强看懂了一点点- -……
API的DC是我永远的伤……