【正文】 窗口關(guān)閉時刪除定時器 .if ftime invoke KillTimer,hWnd,ftime m。 創(chuàng)建后備緩沖區(qū)設(shè)備描述表（HDC） mov hdcTemp, eax invoke CreateDIBSection, hdcTemp, ADDR bmInfo, DIB_RGB_COLORS, ADDR mTemp, 0, 0 mov hBitmapTemp, eax invoke SelectObject, hdcTemp, eax invoke GetObject, hBitmapTemp, sizeof BITMAP, ADDR bitmapTemp invoke bkSetcolor, mTemp, bkcolor 。 選取背景顏色 invoke SelectColor, offset bkcolor .if eax invoke InvalidateRect, hWnd, NULL, TRUE .endif .elseif eax == IDM_ABOUT 。 生成速度改變時重新設(shè)置定時器 .if ftime invoke KillTimer,hWnd,ftime invoke SetTimer,hWnd,ftime,speed,NULL .endif .endif invoke InvalidateRect, hWnd, NULL, TRUE .endif .elseif eax == IDM_RNDPARAM 。 退出 invoke DestroyWindow, hWnd .elseif eax == IDM_SYSPARAM 。 暫停 / 繼續(xù) .if ftime invoke KillTimer,hWnd,ftime mov ftime, 0 .else mov ftime, 100 invoke SetTimer,hWnd,ftime,speed,NULL .endif .elseif eax == IDM_SAVEIMG 。 刪除設(shè)備描述表 invoke ReleaseDC,hWnd,hDc .elseif uMsg == WM_COMMAND movzx eax, WORD PTR wParam .if eax == IDM_RESTART 。 獲取設(shè)備描述表 invoke GetDC,hWnd mov hDc,eax 。 創(chuàng)建后備緩沖區(qū)設(shè)備描述表（HDC） mov hdcTemp, eax invoke CreateDIBSection, hdcTemp, ADDR bmInfo, DIB_RGB_COLORS, ADDR mTemp, 0, 0 mov hBitmapTemp, eax invoke SelectObject, hdcTemp, eax invoke GetObject, hBitmapTemp, sizeof BITMAP, ADDR bitmapTemp invoke bkSetcolor, mTemp, bkcolor 。 恢復(fù)隨機(jī)數(shù)種子 mov eax, rn mov tn, eax invoke initSeed, seed 。 客戶區(qū)窗口寬度 .if edx 16 mov edx, 16 .endif mov yClient, edx 。 ... ... invoke StretchBlt, hDc, 0, 0, xClient, yClient, hdcTemp, 0, 0, xClient, yClient, SRCCOPYinvoke EndPaint,hWnd,addr stPs .elseif uMsg == WM_SIZE invoke DeleteDC, hdcTemp invoke DeleteObject, hBitmapTemp 。 PAINT消息完成客戶區(qū)的更新或失效區(qū)域的繪制 invoke BeginPaint,hWnd,addr stPs mov hDc,eax 。 返回 FALSEAbRet: ret 。 “關(guān)于”對話框過程About PROC hDlg:DWORD, uMsg:DWORD, wParam:DWORD, lParam:DWORD .if uMsg == WM_INITDIALOG mov eax, TRUE jmp AbRet .elseif uMsg == WM_COMMAND 。 限制移位的范圍 .if eax 10000 mov eax, 10000 .endif .if eax != seed mov seed, eax inc seedxch .endif invoke getIPs, hDlg, IDC_EDIT02 mov astep, eax invoke getIPs, hDlg, IDC_EDIT03 mov speed, eax invoke IsDlgButtonChecked, hDlg, IDC_RADIO2 .if eax mov eax, 1 .endif .if eax != smode mov smode, eax inc seedxch .endifinvoke IsDlgButtonChecked, hDlg, IDC_RADIO4 .if eax mov eax, 1 .else invoke IsDlgButtonChecked, hDlg, IDC_RADIO5 .if eax mov eax, 2 .else invoke IsDlgButtonChecked, hDlg, IDC_RADIO6 .if eax mov eax, 3 .endif .endif .endif mov mf, eax .if mfamp。 限制移位的范圍 .if eax SDWORD PTR 0 mov eax, 0 .elseif eax 28 mov eax, 28 .endif mov rs, eax invoke EndDialog, hDlg, wParam mov eax, TRUE jmp ItRet .elseif wParam == IDCANCEL invoke EndDialog, hDlg, wParam mov eax, TRUE jmp ItRet .endif .endif ItRet0: xor eax, eax ItRet: retRandProc endp。 將內(nèi)存設(shè)備位圖寫到文件writeDIB proc fname$:DWORD LOCAL hFile$:HFILE LOCAL i$:DWORD, w$:DWORD, wbs$:DWORD, p$:DWORDinvoke CreateFile, fname$, GENERIC_WRITE, 0, NULL, CREATE_ALWAYS, 0, NULL .if eax == INVALID_HANDLE_VALUE mov eax, TRUE ret .endif mov hFile$, eaxmov eax, xClient mov ecx, yClient mov , eax mov , ecx shl eax, 2 mul ecx mov , 0 mov w$, eax add eax, 54 mov , eaxinvoke WriteFile, hFile$, OFFSET bmFile, SIZEOF BITMAPFILEHEADER, ADDR wbs$, NULL invoke WriteFile, hFile$, OFFSET bmInfo, SIZEOF BITMAPINFOHEADER, ADDR wbs$, NULL invoke WriteFile, hFile$, mTemp, w$, ADDR wbs$, NULL invoke CloseHandle, hFile$xor eax, eax retwriteDIB endp。 初始化ofnfileInitialize proc uses edi hwnd:HWND lea edi, ofn mov ecx, SIZEOF OPENFILENAME xor eax, eax rep stosb mov , SIZEOF OPENFILENAME mov eax, hwnd mov , eax mov , MAX_PATH mov , MAX_PATH retfileInitialize endp。 獲取對話框中指定編輯框的整數(shù)getIPs proc hDlg:HWND, uID$:DWORD LOCAL v$:DWORD invoke GetDlgItem, hDlg, uID$ invoke GetWindowText, eax, OFFSET strtemp, 12 invoke getV10, OFFSET strtemp, ADDR v$ lea edx, v$ mov eax, [edx] retgetIPs endp。939。amp。039。 選取背景顏色SelectColor proc color$:DWORD LOCAL c$:DWORD LOCAL cc:CHOOSECOLOR mov , sizeof CHOOSECOLOR mov , NULL mov , NULL mov eax, color$ mov eax, [eax] lea edx, c$ mov [edx], eax mov [edx+2], al shr eax, 16 mov [edx+0], al mov eax, c$ mov , eax lea eax, crCustColors mov , eax mov , CC_RGBINIT or CC_FULLOPEN mov , 0 mov , NULL mov , NULL invoke ChooseColor, ADDR cc .if eax mov eax, lea edx, c$ mov [edx], eax mov [edx+2], al shr eax, 16 mov [edx+0], al mov edx, c$ mov eax, color$ mov [eax], edx mov eax, TRUE .endif retSelectColor endp。 垂直方向上的越界檢查（也做回繞處理） movsx edx, [ebx]. .if edx SDWORD PTR 0 mov edx, yClient dec edx mov [ebx]., dx .elseif edx = yClient mov edx, 0 mov [ebx]., dx .endif 。 向下行走一個像素的距離 .elseif eax == 4 inc [ebx]. dec [ebx]. .elseif eax == 5 dec [ebx]. dec [ebx]. .elseif eax == 6 dec [ebx]. inc [ebx]. .else inc [ebx]. inc [ebx]. .endif 。 向上行走一個像素的距離 .elseif eax == 2 dec [ebx]. 。 rnd()為：產(chǎn)生0,1,2,3的隨機(jī)數(shù)發(fā)生器 and eax, 3 .if eax == 0 inc [ebx]. 。 mov [edi], ebx retdrawLine endp。 繪制整條直線 .while ecx mov [edi], ebx add esi, edx add edi, incx .if esi = SDWORD PTR 0 add edi, sub esi, eax .endif dec ecx .endw .else shl eax, 1 mov esi, eax mov ecx, edx sub esi, edx shl edx, 1 。 計算兩個方向的步長 mov ebx, 4 .if (eax SDWORD PTR 0) neg ebx neg eax .elseif !eax mov ebx, e