一、需求分析
由于sysInfo扫描的内容比较多，打算为它增加一点动画效果，提醒用户程序正在运行，耐心等待。
二、构建测试窗口
测试窗口上放置有一个按钮，按钮上的初始文字是“开始扫描”；并使用状态栏，状态栏初始状态不显示文字。
;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
; 文 件 名：marquee.asm (GUI程序)
; 功 能: 文字动画
; 开发环境：Win10 PRO + MASM32 v22
; 作 者：PurpleEndurer,广西河池
;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
.586
.MODEL FLAT,STDCALL
OPTION CASEMAP:NONE
INCLUDE \masm32\include\windows.inc
INCLUDE \masm32\include\kernel32.inc
INCLUDELIB \masm32\lib\kernel32.lib
INCLUDE \masm32\include\user32.inc
INCLUDELIB \masm32\lib\user32.lib
include \MASM32\INCLUDE\shell32.inc
includelib \MASM32\LIB\shell32.lib
include \masm32\include\comctl32.inc
includelib \masm32\lib\comctl32.lib
;ssssssssssssssssssssssss
;.const
;ssssssssssssssssssssssss
c_MainWinStyle equ NULL
c_statusBarStyle equ SBARS_SIZEGRIP or WS_CHILD or WS_VISIBLE
c_BtnStyle equ WS_CHILD or WS_VISIBLE or BS_DEFPUSHBUTTON
c_BtnID equ 198
c_statusBarID equ 199
c_TimerID equ 1000
;ssssssssssssssssssssssss
;PROTO
;ssssssssssssssssssssssss
WinMain proto :HINSTANCE, :HINSTANCE, :LPSTR, :DWORD
WndProc proto :HWND, :UINT, :WPARAM, :LPARAM
ResizeMainWnd proto
Marquee proto
statusBarMarquee proto
btnMarquee proto
;ssssssssssssssssssssssss
.DATA
;ssssssssssssssssssssssss
g_szClassName label byte
g_szAppInfo db "文字动画 作者：PurpleEndurer, 广西河池", 0
g_szBtnClsName db "button", 0
g_szScan_btn db "开始扫描", 0 ;_btn 用于按钮
g_szStop_btn db "点击停止", 0
g_szLoopTxt_btn db "点击停止", 0
g_szScanning_Sb db "—正在扫描……", 0; _Sb用于状态栏
g_szScanOver_Sb db "扫描完成", 0 ;
g_dwLoop_Sb dword 0
g_hInstance HANDLE ?
g_hwndMain HANDLE ?
g_hStatusBar HANDLE ?
g_hBtn HANDLE ?
;ssssssssssssssssssssssss
.CODE
;ssssssssssssssssssssssss
start:
invoke GetModuleHandle, NULL
mov g_hInstance, eax
invoke WinMain, g_hInstance, NULL, NULL, SW_SHOWDEFAULT
invoke ExitProcess, eax
invoke InitCommonControls
;======================================================
WinMain proc hInst:HINSTANCE, hPrevInst:HINSTANCE, CmdLine:LPSTR, CmdShow:DWORD
;======================================================
LOCAL wc:WNDCLASSEX
LOCAL msg:MSG
mov wc.cbSize,SIZEOF WNDCLASSEX
mov wc.style, CS_HREDRAW or CS_VREDRAW
mov wc.lpfnWndProc, OFFSET WndProc
mov wc.cbClsExtra, NULL
mov wc.cbWndExtra, NULL
push hInst
pop wc.hInstance
mov wc.hbrBackground, COLOR_WINDOW+1
mov wc.lpszMenuName, NULL ;OFFSET MenuName
mov wc.lpszClassName, OFFSET g_szClassName
invoke LoadIcon,NULL,IDI_APPLICATION ;invoke LoadIcon, hInst, IDI_ICON
mov wc.hIcon, eax
mov wc.hIconSm, eax
invoke LoadCursor, NULL, IDC_ARROW
mov wc.hCursor, eax
invoke RegisterClassEx, addr wc
INVOKE CreateWindowEx, c_MainWinStyle, ADDR g_szClassName,ADDR g_szAppInfo,\
WS_OVERLAPPEDWINDOW,CW_USEDEFAULT, CW_USEDEFAULT,500,400,NULL,NULL, hInst,NULL
mov g_hwndMain, eax
INVOKE ShowWindow, g_hwndMain, SW_SHOWNORMAL
INVOKE UpdateWindow, g_hwndMain
.WHILE TRUE
INVOKE GetMessage, ADDR msg,NULL,0,0
.BREAK .IF (!eax)
INVOKE TranslateMessage, ADDR msg
INVOKE DispatchMessage, ADDR msg
.ENDW
mov eax, msg.wParam
ret
WinMain endp
;======================================================
WndProc proc uses ebx hWnd:HWND, uMsg:UINT, wParam:WPARAM, lParam:LPARAM
;======================================================
mov eax, uMsg
.IF eax==WM_CREATE
;创建状态栏
invoke CreateStatusWindow, c_statusBarStyle, NULL, hWnd, c_statusBarID
mov g_hStatusBar, eax
;创建按钮
invoke CreateWindowEx, NULL, ADDR g_szBtnClsName, ADDR g_szScan_btn,\
c_BtnStyle, 75,70,140,25, hWnd, c_BtnID, g_hInstance, NULL
mov g_hBtn, eax
.ELSEIF eax==WM_COMMAND
mov eax,wParam
.if ax==c_BtnID
shr eax,16
.IF ax==BN_CLICKED
;用户点击按钮
.if g_dwLoop_Sb==0
;进行扫描状态
invoke SetTimer, hWnd, c_TimerID, 1000, NULL
mov eax, OFFSET g_szStop_btn
.else
;退出扫描状态
invoke KillTimer, hWnd, c_TimerID
mov g_dwLoop_Sb, 0
invoke SendMessage, g_hStatusBar, SB_SETTEXT, 0, OFFSET g_szScanOver_Sb
invoke RedrawWindow, g_hStatusBar, NULL, NULL, RDW_INTERNALPAINT
mov eax, OFFSET g_szScan_btn
.endif
invoke SendMessage, g_hBtn ,WM_SETTEXT, 0, eax
.ENDIF
.endif
.ELSEIF eax==WM_TIMER
;定时调用Marquee函数
invoke Marquee
.ELSEIF eax==WM_SIZE
invoke ResizeMainWnd
.ELSEIF eax==WM_DESTROY
invoke PostQuitMessage,NULL
.ELSE
invoke DefWindowProc,hWnd,uMsg,wParam,lParam
ret
.ENDIF
xor eax,eax
ret
WndProc endp
;======================================================
ResizeMainWnd proc
;======================================================
invoke MoveWindow, g_hStatusBar, 0, 0, 0, 0, TRUE
ret
ResizeMainWnd endp
END start三、在状态栏显示字符动画
记得以前DOS时代使用冠群金辰的杀毒软件kill，在扫描时会显示一个扫描形状的字符动画，当时觉得很有意思，映像深刻，这次就把这种效果用在状态栏上。
实现的方法就是当用户点扫描使用定时器定时刷新状态栏的文字。其中的扫描动态效果就是将依次状态栏文字的首字依次更新为—（编码：0AAA1h）、＼（编码：0DCA3h）、｜（编码：0FCA3h）、／（编码：0AFA3h）。
代码如下：
;======================================================
Marquee proc
;======================================================
invoke statusBarMarquee
ret
Marquee endp
;======================================================
statusBarMarquee proc uses eax
;======================================================
inc g_dwLoop_Sb
.if g_dwLoop_Sb > 4
mov g_dwLoop_Sb, 1
.endif
mov eax, offset g_szScanning_Sb
.if g_dwLoop_Sb==1
mov word ptr [eax], 0DCA3h;'＼'
.elseif g_dwLoop_Sb==2
mov word ptr [eax], 0FCA3h;'｜'
.elseif g_dwLoop_Sb==3
mov word ptr [eax], 0AFA3h;'／'
.elseif g_dwLoop_Sb==4
mov word ptr [eax], 0AAA1h;'—'
.endif
invoke SendMessage, g_hStatusBar, SB_SETTEXT, 0, OFFSET g_szScanning_Sb
invoke RedrawWindow, g_hStatusBar, NULL, NULL, RDW_INTERNALPAINT
ret
statusBarMarquee endp四、按钮跑马灯
窗口上的按钮初始文字是“开始扫描”，当我们点击按钮进入扫描状态时，我们将按钮文字改成“点击停止”并跑马灯。原理也是使用定时器，定期更新按钮上的文字。
代码如下：
;======================================================
Marquee proc
;======================================================
invoke btnMarquee
invoke statusBarMarquee
ret
Marquee endp
;======================================================
btnMarquee proc uses eax ;ebx
;======================================================
mov eax, offset g_szLoopTxt_btn
;保存按钮文本首字
push word ptr [eax] ;mov bx, word ptr [eax]
inc eax
inc eax
; 按钮文字前移
.while byte ptr [eax]!=0
push word ptr [eax]
pop word ptr [eax-2]
inc eax
inc eax
.endw
;把按钮文本首字放到末尾
pop word ptr [eax-2] ;mov word ptr [eax-2], bx
invoke SendMessage, g_hBtn ,WM_SETTEXT, 0, OFFSET g_szLoopTxt_btn
invoke RedrawWindow, g_hBtn, NULL, NULL, RDW_INTERNALPAINT
ret
btnMarquee endp
五、程序运行效果
如下：
六、改进思路
文字动画在DOS的CGI时代还是颇具吸引力的，放到GUI时代复古一下也是一种怀念。
如果我们追求GUI的效果，可以对状态栏进行子类化，为它创建一个进度条。对按钮子类化，显示gif图片。
七、附记
进入Windows时代，Kill就像UCDOS一样淡出视野了。刚才为了确认无误，bing查了一下，冠群金辰的网站还在，只是内容很久没更新了。
不经意间顺带看到一篇关于火绒的文章，才知道火绒的几位创始人都出自瑞星……
