Сам себе Iczelion

Y_Mur
#193: Ваш вариант можно немного подправить, если использовать
%~dpn1.asm, %~dpn1.obj и т.д. почитайте об этом в help к команде for. Это же действует и на параметры bat файлов

 

Незнаю как с остальными компиляторами ,) с фасм самое то что нужно , непонятный слишком синтаксис.
только Авира антивирь ругается если не делать секцию .data и эвристическая проверка хотябы на среднем уровне включена.

Если можно напишите пожалуйста самый простейший пример как может на fasm выглядеть
Например в masm есть такой файл
masm32\m32lib\readdisk.asm
там функция

Код (Text):

1. read_disk_file proc lpfname:DWORD,lpMem:DWORD,lpLen:DWORD
2.  
3. comment * -----------------------------------------------------
4.         the return value is zero on error else non-zero
5.  
6.         lpMem has the memory address written to it
7.         lpLen has the file length written to it
8.  
9.         the memory address written to lpMem must be
10.         deallocated using GlobalFree()
11.         ----------------------------------------------------- *
12.     LOCAL hFile :DWORD
13.     LOCAL fl    :DWORD
14.     LOCAL hMem  :DWORD
15.     LOCAL bRead :DWORD
16.  
17.     mov hFile, FUNC(CreateFile,lpfname,GENERIC_READ,FILE_SHARE_READ,NULL,OPEN_EXISTING,NULL,NULL)
18.     cmp hFile, INVALID_HANDLE_VALUE
19.     jne @F
20.     xor eax, eax                                    ; return zero on error
21.     ret
22.   @@:
23.     mov fl, FUNC(GetFileSize,hFile,NULL)            ; get the file length
24.     add fl, 32                                      ; add some spare bytes
25.     mov hMem, alloc(fl)                             ; allocate a buffer of that size
26.     invoke ReadFile,hFile,hMem,fl,ADDR bRead,NULL   ; read file into buffer
27.     invoke CloseHandle,hFile                        ; close the handle
28.  
29.     mov eax, lpMem                                  ; write memory address to
30.     mov ecx, hMem                                   ; address of variable
31.     mov [eax], ecx                                  ; passed on the stack
32.  
33.     mov eax, lpLen                                  ; write byte count to
34.     mov ecx, bRead                                  ; address of variable
35.     mov [eax], ecx                                  ; passed on the stack
36.  
37.     mov eax, 1                                      ; non zero value returned on success
38.     ret
39.  
40. read_disk_file endp

Всё понятно до CloseHandle
дальше вообще не пойму , для чего в masm квадратные скобки, и что происходит с параметрами

например: mov [eax], ecx ;passed on the stack
это как будет на fasm ?

 

точно так же, основная разница между фасмом и масмом при работе с символическими именами переменных

 

Mikl___ - Все демонстрационные файлы не открываются. В процессах появляются названия , а окно не создаётся. Установил XP на VMware - всё работает на чистой системе.
Что может мешать на основной?
Антивирусы - Avast и Outpost.
На виртуалке установил Outpost - всё работает значит дело не в нём.
Где косяк?

 

Mikl___
На эмуляторе XP SP2, на основной системе XP SP3 - устанавливались с одного диска.
На эмуляторе работают все примеры и с экспериментами, и без экспериментов над PE-заголовком.
На основной работает только первый урок, с MessageBox. Остальные - окно не рисуется.

 

Mikl___
Взгляни, я просто скопировал ( заменил из твоего примера Iczelion-овские строки ), или так не пойдёт, нужно всё заменять?
2.imp файл создал с помощью программы scan, которую посоветовал kero.

 

Код (Text):

1. .386
2. .model flat,stdcall
3. option casemap:none
4.  
5. include H:\masm32\include\windows.inc
6. ;nclude H:\masm32\include\user32.inc
7. includelib H:\masm32\lib\user32.lib ; calls to functions in user32.lib and kernel32.lib
8. ;include H:\masm32\include\kernel32.inc
9. includelib H:\masm32\lib\kernel32.lib
10.  
11. include 2.imp
12.  
13. WinMain proto :DWORD,:DWORD,:DWORD,:DWORD
14.  
15. ;extern _imp__DefWindowProcA@16:dword;стандартная обработка сообщения     /
16. ;extern _imp__DispatchMessageA@4:dword;отправка сообщения                /
17. ;extern _imp__GetMessageA@16:dword;получение сообщения                    /
18. ;extern _imp__LoadCursorA@8:dword;получить указатель на ресурс курсора   /
19. ;extern _imp__PostQuitMessage@4:dword;выход из программы                 /
20. extern _imp__RegisterClassA@4:dword;регистрация класса окна             /
21. ;extern _imp__MessageBoxA@16:dword
22. ;extern _imp__IsDialogMessageA@8:dword
23. ;extern _imp__SetDlgItemTextA@12:dword
24. ;extern _imp__TranslateMessage@4:dword
25. ;extern _imp__CreateDialogParamA@20:dword
26. ;extern _imp__SendMessageA@16:dword
27. ;extern _imp__GetDlgItemTextA@16:dword
28. ;extern _imp__CreateWindowExA@48:dword
29.  
30. .DATA                           ; initialized data
31.  
32. ClassName db "SimpleWinClass",0 ; Имя нашего класса окна
33. AppName db "Our First Window",0 ; Имя нашего окна
34.  
35. cbSize      dd SIZEOF WNDCLASSA
36.     style           dd CS_HREDRAW or CS_VREDRAW; Стиль нашего окна
37.     lpfnWndProc     dd offset WndProc;Адрес процедуры обработки событий
38.     cbClsExtra      dd 0        ;Эта хрень нам не нужна
39.     cbWndExtra      dd 0        ;и эта тоже
40.     hInstance       dd 400000h  ;Адрес нашей проги в памяти (Windows всегда её грузит по этому адресу)
41.     hIcon           dd 10003h   ;Иконка окна по умолчанию
42.     hCursor         dd 10011h   ;Курсор окна по умолчанию (здесь указан ID обычной стрелки)
43.     hbrBackground   dd COLOR_BTNFACE+1  ;Фон нашего окна
44.     lpszMenuName    dd NULL;Меню у нас отсутствует
45.     lpszClassName   dd offset ClassName; У
46.  
47. .DATA?                  ; Hеиницилизиpуемые данные
48.  
49. ;hInstance HINSTANCE ?   ; Хэндл нашей пpогpаммы
50. CommandLine LPSTR ?
51. hwnd HWND ?
52. msg MSG <>
53.  
54.  
55. .CODE                ; Здесь начинается наш код
56.  
57. start:
58. ;invoke GetModuleHandle, NULL ; Взять хэндл пpогpаммы
59.                              ; Под Win32, hmodule==hinstance mov hInstance,eax
60. ;mov hInstance,eax
61.  
62. ;invoke GetCommandLine   ; Взять командную стpоку. Вы не обязаны
63.            ;вызывать эту функцию ЕСЛИ ваша пpогpамма не обpабатывает командную стpоку.
64. ;mov CommandLine,eax
65. ;invoke WinMain, hInstance,NULL,CommandLine, SW_SHOWDEFAULT  ; вызвать основную функцию
66. ;invoke ExitProcess, eax ; Выйти из пpогpаммы.
67.                         ; Возвpащаемое значение, помещаемое в eax, беpется из WinMain'а.
68.  
69. ;WinMain proc hInst:HINSTANCE,hPrevInst:HINSTANCE,CmdLine:LPSTR,CmdShow:DWORD
70. ;    LOCAL wc:WNDCLASSEX      ; создание локальных пеpеменных в стеке
71.  ;   LOCAL msg:MSG
72. ;    LOCAL hwnd:HWND
73.  
74.     xor ebx,ebx
75.     lea edi,cbSize
76.     assume edi:ptr WNDCLASSA
77.     push edi
78.     call _imp__RegisterClassA@4
79.     mov ecx,CW_USEDEFAULT
80.     push ebx       
81.     push [edi].hInstance
82.     push ebx   
83.     push ebx   
84.     push ecx   
85.     push ecx   
86.     push ecx   
87.     push ecx   
88.     push WS_OVERLAPPEDWINDOW + WS_VISIBLE
89.     push [edi].lpszClassName       
90.     push [edi].lpszClassName
91.     push ebx
92.     call _imp__CreateWindowExA@48
93.  
94.   ;  mov   wc.cbSize,SIZEOF WNDCLASSEX   ; заполнение стpуктуpы wc
95.    ; mov   wc.style, CS_HREDRAW or CS_VREDRAW
96.  ;   mov   wc.lpfnWndProc, OFFSET WndProc
97.  ;   mov   wc.cbClsExtra,NULL
98.  
99.   ;  mov   wc.cbWndExtra,NULL
100.  ;   push  hInstance
101.   ;  pop   wc.hInstance
102.   ;  mov   wc.hbrBackground,COLOR_WINDOW+1
103.  
104.   ;  mov   wc.lpszMenuName,NULL
105.   ;  mov   wc.lpszClassName,OFFSET ClassName
106.   ;  invoke LoadIcon,NULL,IDI_APPLICATION
107.   ;  mov   wc.hIcon,eax
108.  
109.  ;   mov   wc.hIconSm,eax
110.   ;  invoke LoadCursor,NULL,IDC_ARROW
111.   ;  mov   wc.hCursor,eax
112.   ;  invoke RegisterClassEx, addr wc  ; pегистpация нашего класса окна
113.   ;  invoke CreateWindowEx,NULL,\
114.    ;             ADDR ClassName,\
115.    ;             ADDR AppName,\
116.    ;             WS_OVERLAPPEDWINDOW,\
117.    ;             CW_USEDEFAULT,\
118.    ;             CW_USEDEFAULT,\
119.    ;             CW_USEDEFAULT,\
120.    ;             CW_USEDEFAULT,\
121.    ;             NULL,\
122.    ;             NULL,\
123.   ;              hInst,\
124.   ;              NULL
125.     mov   hwnd,eax
126.  
127.  ;   invoke ShowWindow, hwnd,CmdShow ; отобpазить наше окно на десктопе
128.  ;   invoke UpdateWindow, hwnd ; обновить клиентскую область
129.  
130.     .WHILE TRUE   ; Enter message loop
131.        invoke GetMessage,ADDR msg,NULL,0,0
132.     .BREAK .IF (!eax)
133.        invoke TranslateMessage, ADDR msg
134.        invoke DispatchMessage, ADDR msg
135.     .ENDW
136.      mov     eax,msg.wParam ; сохpанение возвpащаемого значения в eax
137.      ret
138.  
139. ;WinMain endp
140.  
141. WndProc proc hWnd:HWND, uMsg:UINT, wParam:WPARAM, lParam:LPARAM
142.  
143.     .IF uMsg==WM_DESTROY            ; если пользователь закpывает окно
144.         invoke PostQuitMessage,NULL ; выходим из пpогpаммы
145.     .ELSE
146.         invoke DefWindowProc,hWnd,uMsg,wParam,lParam ; Дефаултная функция обpаботки окна
147.         ret
148.     .ENDIF
149.     xor eax,eax
150.  
151.     ret
152. WndProc endp
153.  
154.  
155. end start

 

Косяк нашёл - установочный пакет SP3 глючный. Качаю новый с Микрософта....

 

Mikl__
Запускаю bat из #17 для lesson03.asm. Получаю lesson03.exe размером 896 б., 2 секции.
Меняю в /MERGE:.data на .rdata - уже 848 б., 1 секция. Но всё-таки не 536, как в архиве.
Как Вы добились такого размера?
И ещё вопрос: можно ли убрать warning-и?

 

Mikl___
Спасибо, получилось. Правда, пока 564, а не 536. Буду разбираться...
Кстати, polink1 warning-ами не ругается!

 

Извините, а нет примерчика тут на чтение строки REG_SZ / EXPAND_SZ из реестра, ну хотя бы в MsgBox на экран вывести? Я видел как типы данных получаются и как дворд кажись,
сам сколько крутил эти коды ничего не получается - wsprintf вообще убил...
Походу я вилосипед изобретаю, такую фигню никаких уроков не могу нагуглить!
моё - http://slil.ru/28230433