;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
|
QQ好友和群
QQ空间
腾讯微博
腾讯朋友
收藏
淘帖
顶
踩
