;Programmer Name:o70078
;Edit Date:2013/06/07
;App Name:PublicView
.386
.model flat,stdcall
option casemap:none
include windows.inc
include kernel32.inc
includelib kernel32.lib
include user32.inc
includelib user32.lib
include scrnsave.inc
includelib scrnsave.lib
include scrnsavw.inc
includelib scrnsavw.lib
include gdi32.inc
includelib gdi32.lib
include gdiplus.inc
includelib gdiplus.lib
include shell32.inc
includelib shell32.lib
include \masm32\Macros\Strings.mac
RGB macro red,green,blue
xor eax,eax
mov ah,blue
shl eax,8
mov ah,green
mov al,red
endm
MTOM MACRO Data1,Data2
PUSH Data2
POP Data1
ENDM
MSUB MACRO Data1,Data2
PUSH EBX
MOV EBX,Data1
SUB EBX,Data2
MOV Data1,EBX
POP EBX
ENDM
MADD MACRO Data1,Data2
PUSH EBX
MOV EBX,Data1
ADD EBX,Data2
MOV Data1,EBX
POP EBX
ENDM
.const
Water STRUCT
ID DWORD ?;編號
WSIZE DWORD ?;大小(或者說和屏幕的距離?)關系到速度,越遠越慢
X DWORD ?
Y DWORD ?
Water ENDS
Num EQU 128
.DATA
Init DB 0 ;是否初次運行
Str1 DB '中國魔法師協會',0
Str2 DB '喵喵喵喵喵喵',0
.DATA?
hdc HDC ?;設備句柄
hInstance DD ? ;工程實例
CommandLine LPSTR ? ;命令行
Waters Water Num DUP (<0,0,0,0>) ;水滴
Brush DD ? ;刷子
ScreenSaveProc PROTO:HWND,:UINT,:WPARAM,:LPARAM
Rnd DWORD ? ;隨機數種子
.code
Main PROC
invoke GetModuleHandle,NULL
MOV [hInstance],EAX
invoke GetCommandLine
MOV [CommandLine],EAX
invoke GetTickCount
MOV [Rnd],EAX
;invoke MessageBox,NULL,$CTA0("此乃試看版(注意:請通過鍵盤按鍵關閉,將無視鼠標)"),$CTA0(""),MB_OK
invoke DialogBoxParam,hInstance,1000,NULL,ScreenSaveProc,NULL
invoke ExitProcess,0
Main ENDP
ScreenSaveProc PROC hWin:HWND,uMsg:UINT,wParam:WPARAM,lParam:LPARAM
LOCAL ps: PAINTSTRUCT;它傳遞給BeginPaint，結束繪制再傳遞給EndPaint
LOCAL RECTs:RECT
PUSHAD
.IF uMsg==WM_INITDIALOG;初始化
invoke SetTimer,[hWin],1002,100,NULL
invoke ShowWindow,[hWin],SW_SHOWMAXIMIZED
invoke GetWindowDC,[hWin];取窗口DC
MOV [hdc],EAX
invoke SetBkColor,[hdc],0;設置背景色為黑
invoke CreateSolidBrush,0;純色刷子
MOV [Brush],EAX
invoke ShowCursor,FALSE;隱藏鼠標
invoke BringWindowToTop,[hWin];窗口最前
invoke GetWindowRect,[hWin],ADDR RECTs;取位置和大小
MOV EAX,[RECTs.right]
MOV EBX,Num
XOR EDX,EDX
INC EAX
DIV EBX;商:EAX
MOV ECX,Num
MOV EBX,0;OFFSET Waters
XOR EDI,EDI
D1:
ADD EBX,OFFSET Waters.X
MOV [EBX],EDI
SUB EBX,OFFSET Waters.X
PUSH EAX
ADD EBX,OFFSET Waters.WSIZE
MOV EAX,[Rnd];取得毫秒數
PUSH EDX
PUSH ECX
XOR EDX,EDX
DIV ECX;除以倒循環次數
MOV ECX,10
XOR EDX,EDX
DIV ECX;除以10
MOV EAX,EDX;取余數
POP ECX
POP EDX
INC EAX
SHL EAX,1
MOV DWORD PTR[EBX],EAX;速度
SUB EBX,OFFSET Waters.WSIZE
POP EAX
ADD EBX,SIZEOF Water
ADD EDI,EAX
LOOP D1
.ELSEIF uMsg==WM_TIMER;計時器
invoke GetWindowRect,[hWin],ADDR RECTs;取位置和大小
MOV ESI,DWORD PTR[RECTs.bottom]
MOV ECX,Num
XOR EBX,EBX
D2:
ADD EBX,OFFSET Waters.ID
INC DWORD PTR[EBX]
INC DWORD PTR[EBX]
.IF DWORD PTR[EBX]>4;文本
MOV DWORD PTR[EBX],0
.ENDIF
SUB EBX,OFFSET Waters.ID
ADD EBX,OFFSET Waters.WSIZE
MOV EDX,[EBX]
SUB EBX,OFFSET Waters.WSIZE
ADD EBX,OFFSET Waters.Y
ADD DWORD PTR[EBX],EDX;移動
.IF DWORD PTR[EBX]>ESI
PUSHAD
PUSH EBX
invoke GetTickCount;取得毫秒數
XOR EDX,EDX
DIV ECX;除以循環次數
MOV ECX,10
XOR EDX,EDX
DIV ECX;除以10
MOV EAX,EDX;取余數
POP EBX
INC EAX
SHL EAX,1
MOV DWORD PTR[EBX],EAX
POPAD
.ENDIF
SUB EBX,OFFSET Waters.Y
ADD EBX,SIZEOF Water
LOOP D2
invoke GetWindowRect,[hWin],ADDR RECTs;取位置和大小
invoke FillRect,[hdc],ADDR RECTs,[Brush];畫矩形(其實是清屏)
RGB 0,100,0
invoke SetTextColor,[hdc],eax;文字顏色
MOV EDI,OFFSET Waters
MOV ECX,Num
DO:
PUSH ECX
PUSH EDI
PUSH DWORD PTR 2;長度
MOV EAX,[EDI]
ADD EAX,6
ADD EAX,OFFSET Str2
PUSH EAX;字符串指針
ADD EDI,12
PUSH DWORD PTR[EDI];Y
SUB EDI,4
PUSH DWORD PTR[EDI];X
PUSH DWORD PTR[hdc]
CALL TextOut
SUB EDI,8
;SUB DWORD PTR[EDI],OFFSET Str2
POP EDI
ADD EDI,SIZEOF Water
POP ECX
LOOP DO
RGB 0,160,0
invoke SetTextColor,[hdc],eax;文字顏色
MOV EDI,OFFSET Waters
MOV ECX,Num
DO1:
PUSH ECX
PUSH EDI
PUSH DWORD PTR 2;長度
MOV EAX,[EDI]
ADD EAX,6
SUB EAX,2
ADD EAX,OFFSET Str2
PUSH EAX;字符串指針
ADD EDI,12
MOV EAX,DWORD PTR[EDI]
ADD EAX,16;下移
PUSH EAX;Y
SUB EDI,4
PUSH DWORD PTR[EDI];X
PUSH DWORD PTR[hdc]
CALL TextOut
SUB EDI,8
;SUB DWORD PTR[EDI],OFFSET Str2
POP EDI
ADD EDI,SIZEOF Water
POP ECX
LOOP DO1
RGB 0,255,0
invoke SetTextColor,[hdc],eax;文字顏色
MOV EDI,OFFSET Waters
MOV ECX,Num
DO2:
PUSH ECX
PUSH EDI
PUSH DWORD PTR 2;長度
MOV EAX,[EDI]
ADD EAX,6
SUB EAX,4
ADD EAX,OFFSET Str2
PUSH EAX;字符串指針
ADD EDI,12
MOV EAX,DWORD PTR[EDI]
ADD EAX,32;下移
PUSH EAX;Y
SUB EDI,4
PUSH DWORD PTR[EDI];X
PUSH DWORD PTR[hdc]
CALL TextOut
SUB EDI,8
;SUB DWORD PTR[EDI],OFFSET Str2
POP EDI
ADD EDI,SIZEOF Water
POP ECX
LOOP DO2
.ELSEIF uMsg==WM_NCHITTEST;鼠標
; .IF BYTE PTR[Init]>1
; JMP Close
; .ENDIF
; ADD BYTE PTR[Init],1
.ELSEIF uMsg==WM_CHAR;鍵盤
JMP Close
.ELSEIF uMsg==WM_KEYUP;鍵盤
JMP Close
.ELSEIF uMsg==WM_KEYDOWN;鍵盤
JMP Close
.ELSEIF uMsg==WM_CLOSE;窗口關閉
Close:
invoke ShowCursor,TRUE;顯示鼠標
invoke DeleteObject,[Brush]
invoke KillTimer,[hWin],1002
invoke ShowWindow,[hWin],SW_HIDE
invoke LoadIcon,[hInstance],100
invoke ShellAbout,[hWin],$CTA0("魔法流星雨"),$CTA0("中國魔法師協會"),EAX
invoke PostQuitMessage,NULL;發送程序結束消息給程序自己
.ELSE
POPAD
MOV EAX,FALSE
RET
.ENDIF
POPAD
MOV EAX,TRUE
RET
ScreenSaveProc ENDP
END Main
|
