2000 Magazine", -03/2000// За матеріалами сайту http:citforum.ru
11. Джеффрі Р. Шапіро. Windows 2000 Server. Біблія користувача - Вільямс, - 2001.
12. Гаррі М. Брелсфорд. Секрети Windows 2000 Server - Вільямс, -2000. p> 13. Гусєва. Мережі та міжмережеві комунікації. Windows 2000 - Діалог Міфи, - 2002. br clear=all>
Додаток А
Оригінальний текст програми
.386
. model flat, stdcall
option casemap: none
include/Masm32/include/windows.inc
include/Masm32/include/user32.inc
include/Masm32/include/kernel32.inc
include/Masm32/include/wsock32.inc
include/Masm32/include/gdi32.inc
includelib/Masm32/lib/wsock32.lib
includelib/masm32/lib/user32.lib
includelib/Masm32/lib/kernel32.lib
includelib/Masm32/lib/gdi32.lib
WndProc PROTO : DWORD,: DWORD,: DWORD,: DWORD
. data
dlgname db "WINSOCK", 0
szTitle db "Ip Dialog ", 0
wsaError db "Error initializing winsock!", 13,10
szName db "Computer Name:% s", 0
szFont db "MS Sans Serif ", 0
. data?
wsa WSADATA
hStatic dd?
hFont dd?
hInstance dd?
buffer db 24 dup (?)
buffer2 db 128 dup (?) <В
. code
start:
invoke GetModuleHandle, NULL
mov hInstance, eax
invoke WSAStartup, 101h, addr wsa
. if eax == NULL
invoke DialogBoxParam, hInstance, ADDR dlgname, 0, ADDR WndProc, 0
invoke ExitProcess, 0
. endif
invoke MessageBox, NULL, offset wsaError, offset szTitle, MB_OK + MB_ICONSTOP
invoke ExitProcess, 1
В
WndProc proc hWin: DWORD, uMsg: DWORD, wParam: DWORD, lParam: DWORD
. if uMsg == WM_INITDIALOG
invoke LoadIcon, hInstance, 101
invoke SendMessage, hWin, WM_SETICON, TRUE, eax
invoke GetDlgItem, hWin, 2000
mov hStatic, eax
invoke gethostname, offset buffer, sizeof buffer
invoke wsprintf, addr buffer2, addr szName, addr buffer
invoke SetDlgItemText, hWin, 3000, addr buffer2
invoke gethostbyname, addr buffer
mov eax, [eax +12]
mov eax, [eax]
mov eax, [eax]
invoke inet_ntoa, eax
invoke SetDlgItemText, hWin, 2000, eax
invoke WSACleanup
xor eax, eax
ret
. elseif uMsg == WM_CTLCOLORSTATIC
mov eax, lParam
. if eax == hStatic
invoke CreateFont, 16,16,0,0,400,0,0,0, OEM_CHARSET,
OUT_TT_PRECIS, CLIP_DEFAULT_PRECIS,
DEFAULT_QUALITY, DEFAULT_PITCH or FF_SWISS,
ADDR szFont
mov hFont, eax
invoke SelectObject, wParam, hFont
invoke GetSysColor, COLOR_MENU
invoke SetBkColor, wParam, eax
invoke SetTextColor, wParam, Blue
invoke GetStockObject, HOLLOW_BR...
