Ошибка в коде, необходимо разобраться!

@kostyan-irk38 · Регистрация: 15.05.2012

Студворк — интернет-сервис помощи студентам

Assembler
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
.386
.model flat,stdcall
option casemap:none
WinMain proto :DWORD,:DWORD,:DWORD,:DWORD
include C:\masm32\include\windows.inc
include C:\masm32\include\user32.inc
include C:\masm32\include\shell32.inc
include C:\masm32\include\kernel32.inc
includelib C:\masm32\lib\user32.lib
includelib C:\masm32\include\shell32.inc
includelib C:\masm32\lib\kernel32.lib
.data
ClassName       db "SimpleWinClass", 0
AppName         db "Запуск процессов", 0
MenuName        db "FirstMenu", 0
ButtonClassName db "button", 0
ButtonText      db "Создать процесс", 0
Button1Text     db "Убить процесс", 0
EditClassName   db "edit",0
TestString      db "О! Можем применять поле типа ""Edit""", 0
ProcName        db "Notepad.exe", 0
s_i             STARTUPINFO <>
p_i             PROCESS_INFORMATION <>
buffer          db 260 dup(0)
buffer1         db " ", 259 dup(0)
check_mutex_name  DB "MyMutex001", 0 
MUTEX_ALL_ACCESS dd 1
QUESTION_PRIME_HWND dd 1
ANSWER_PRIME_HWND dd 2
check_inst_message dd 0
check_inst_message_name dd 0
.data?
hInstance HINSTANCE ?
CommandLine LPSTR ?
hwndButton HWND ?
hwndButton1 HWND ?
hwndEdit HWND ?
hwndEdit1 HWND ?
check_mutex  DD  ?
;main_window DD ?
 
 
.const
EXIT_OK             equ  0
EXIT_ALREADY_EXISTS equ 1
ButtonID equ 1
EditID equ 2
Button1ID equ 3
Edit1ID equ 4
IDM_HELLO equ 1
IDM_CLEAR equ 2
IDM_CLEAR1 equ 3
IDM_GETTEXT equ 4
IDM_GETTEXT1 equ 5
IDM_EXIT equ 6
.code
start:
  invoke GetModuleHandle, NULL
  mov    hInstance,eax
  invoke GetCommandLine
  invoke WinMain, hInstance,NULL,CommandLine, SW_SHOWDEFAULT
  invoke ExitProcess,eax
;____________________________________________________________
WinMain proc hInst:HINSTANCE, hPrevInst: HINSTANCE,CmdLine: LPSTR,CmdShow: DWORD
  LOCAL wc:WNDCLASSEX
  LOCAL msg:MSG
  LOCAL hwnd:HWND
mov check_mutex, 0
invoke OpenMutex, MUTEX_ALL_ACCESS, FALSE, offset check_mutex_name 
.if (!eax)
mov second_instance, TRUE
  Invoke CreateMutex, NULL, TRUE, offset check_mutex_name
  mov check_mutex, eax
.else
.if(check_inst_message)
  invoke SendMessageA, HWND_BROADCAST, check_inst_message, QUESTION_PRIME_HWND, NULL
.endif
  invoke ExitProcess, EXIT_ALREADY_EXISTS
.endif
 
  mov   wc.cbSize,SIZEOF WNDCLASSEX
  mov   wc.style, CS_HREDRAW or CS_VREDRAW
  mov   wc.lpfnWndProc, OFFSET WndProc
  mov   wc.cbClsExtra,NULL
  mov   wc.cbWndExtra,NULL
  push  hInst
  pop   wc.hInstance
  mov   wc.hbrBackground,COLOR_BTNFACE+1
  mov   wc.lpszMenuName,OFFSET MenuName
  mov   wc.lpszClassName,OFFSET ClassName
  invoke LoadIcon,NULL,IDI_APPLICATION
  mov   wc.hIcon,eax
  mov   wc.hIconSm,eax
  invoke LoadCursor,NULL,IDC_ARROW
  mov   wc.hCursor,eax
  invoke RegisterClassEx, addr wc
  INVOKE CreateWindowEx, WS_EX_CLIENTEDGE, ADDR ClassName, ADDR AppName,\
           WS_OVERLAPPEDWINDOW, CW_USEDEFAULT,\
           CW_USEDEFAULT, 300, 250, NULL, NULL,\
           hInst,NULL
mov   hwnd,eax
mov main_window, eax
 mov check_inst_message, 0
invoke RegisterWindowMessageA, offset check_inst_message_name
 .if(eax)
    mov check_inst_message, eax
.endif
 
  
  INVOKE ShowWindow, hwnd,SW_SHOWNORMAL
  INVOKE UpdateWindow, hwnd
  .WHILE TRUE
                INVOKE GetMessage, ADDR msg,NULL,0,0
                .BREAK .IF (!eax)
                INVOKE TranslateMessage, ADDR msg
                INVOKE DispatchMessage, ADDR msg
  .ENDW
  mov     eax,msg.wParam
  ret
.if (check_mutex  !=0)
  invoke ReleaseMutex, check_mutex
.endif
 
WinMain endp
WndProc proc hWnd:HWND, uMsg:UINT, wParam:WPARAM, lParam:LPARAM
mov eax, uMsg
; обработка регистрируемого сообщения
 .if(eax==check_inst_message)               ;если получено зарегистрированное сообщение
  .if(check_inst_message)
   .if(second_instance)                     ;если это второй экземпляр
    .if(w_Param==ANSWER_PRIME_HWND)         ;если в сообщении получен дескриптор окна
     invoke SetForegroundWindow, lParam    ;вывести это окно на первый план
     jmp worked ; На конец процедуры
    .endif
   .else                                    ;если это первый экземпляр
    .if(w_Param==QUESTION_PRIME_HWND)       ;если запрашивается дескриптор окна
     mov eax,hwnd                           ;послать ему дескрип-тор главного окна
     .if(eax == hwnd)
      invoke SendMessageA, HWND_BROADCAST, check_inst_message, ANSWER_PRIME_HWND, HWND
      jmp worked ; На конец процедуры
     .endif
    .endif
   .endif
  .endif
  jmp noworked ; На DefWindowProc
;закрытие приложения
 .elseif(eax==WM_DESTROY)
  invoke PostQuitMessage, EXIT_OK
  jmp worked
 
  .IF uMsg==WM_DESTROY
    invoke PostQuitMessage,NULL
  .ELSEIF uMsg==WM_CREATE
    invoke CreateWindowEx,WS_EX_CLIENTEDGE, ADDR EditClassName,NULL,\
                        WS_CHILD or WS_VISIBLE or WS_BORDER or ES_LEFT or\
                        ES_AUTOHSCROLL,\
                        50,35,200,25,hWnd,EditID,hInstance,NULL
mov  hwndEdit,eax
;~
    invoke SetFocus, hwndEdit
 
invoke CreateWindowEx,WS_EX_CLIENTEDGE, ADDR EditClassName,NULL,\
                        WS_CHILD or WS_VISIBLE or WS_BORDER or ES_LEFT or\
                        ES_AUTOHSCROLL,\
                        50,65,200,25,hWnd,Edit1ID,hInstance,NULL
mov  hwndEdit1,eax
;~
 
 
;command ~    
 
    invoke CreateWindowEx,NULL, ADDR ButtonClassName,ADDR ButtonText,\
                        WS_CHILD or WS_VISIBLE or BS_DEFPUSHBUTTON,\
                        75,95,140,25,hWnd,ButtonID,hInstance,NULL
 mov  hwndButton,eax   
invoke CreateWindowEx,NULL, ADDR ButtonClassName,ADDR Button1Text,\
                        WS_CHILD or WS_VISIBLE or BS_DEFPUSHBUTTON,\
                        75,125,140,25,hWnd,Button1ID,hInstance,NULL
mov  hwndButton1,eax
  .ELSEIF uMsg==WM_COMMAND
    mov eax,wParam
    .IF lParam==0
      .IF ax==IDM_HELLO
        invoke SetWindowText,hwndEdit,ADDR TestString
        invoke SendMessage,hwndEdit,WM_KEYDOWN,VK_END,NULL
        invoke SetWindowText,hwndEdit1,ADDR TestString
        invoke SendMessage,hwndEdit1,WM_KEYDOWN,VK_END,NULL
      .ELSEIF ax==IDM_CLEAR
        invoke SetWindowText,hwndEdit,NULL
.ELSEIF ax==IDM_CLEAR1
        invoke SetWindowText,hwndEdit1,NULL
      .ELSEIF  ax==IDM_GETTEXT
        invoke GetWindowText,hwndEdit,ADDR buffer,512
        invoke MessageBox,NULL,ADDR buffer,ADDR AppName,MB_OK
        invoke CreateProcess, addr buffer, addr buffer1, NULL, NULL, FALSE, 0,\
                  NULL, NULL, addr s_i, addr p_i
       ; invoke SetParent, p_i.hProcess, hhWnd
       ;.if eax == 0
        ;  invoke MessageBox, NULL, ADDR buffer, ADDR AppName, MB_OK
       ; .endif
 
      .ELSEIF  ax==IDM_GETTEXT1
        invoke GetWindowText,hwndEdit1,ADDR buffer1,512
        invoke MessageBox,NULL,ADDR buffer1,ADDR AppName,MB_OK
        invoke TerminateProcess, p_i.hProcess, NULL
          invoke CloseHandle, p_i.hThread 
          invoke CloseHandle, p_i.hProcess
      .ELSE
        invoke DestroyWindow,hWnd
      .ENDIF
    .ELSEIF ax==ButtonID
        shr eax,16
        .IF ax==BN_CLICKED
          invoke SendMessage, hWnd, WM_COMMAND,IDM_GETTEXT, 0
    .ENDIF
  .ELSEIF ax==Button1ID
        shr eax,16
        .IF ax==BN_CLICKED
          invoke SendMessage, hWnd, WM_COMMAND,IDM_GETTEXT1, 0     
.ENDIF
.ENDIF      
;.ENDIF
   .ENDIF
  .ELSE
noworked:
    invoke DefWindowProc, hWnd, uMsg,wParam,lParam
    ret
  ;.ENDIF
 
  xor    eax,eax
worked:
  ret
 
WndProc endp
 
end start

________________________________________ ______________________

Выдается ошибка на строке 237 unmatched block nesting .if-.repeat-.while
помогите разобраться в циклах....

Добавлено через 43 секунды
В конце программы ошибка

@Mikl___ · 28.10.2013, 12:22

kostyan-irk38,
используй тэги [аsm] и [/аsm]

Assembler
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
; masm windows gui #
.386
.model flat,stdcall
option casemap:none
WinMain proto :DWORD,:DWORD,:DWORD,:DWORD
include C:\masm32\include\windows.inc
include C:\masm32\include\user32.inc
include C:\masm32\include\shell32.inc
include C:\masm32\include\kernel32.inc
includelib C:\masm32\lib\user32.lib
includelib C:\masm32\lib\shell32.lib
includelib C:\masm32\lib\kernel32.lib
.data
ClassName db "SimpleWinClass", 0
AppName db "Запуск процессов", 0
MenuName db "FirstMenu", 0
ButtonClassName db "button", 0
ButtonText db "Создать процесс", 0
Button1Text db "Убить процесс", 0
EditClassName db "edit",0
TestString db "О! Можем применять поле типа ""Edit""", 0
ProcName db "Notepad.exe", 0
s_i STARTUPINFO <>
p_i PROCESS_INFORMATION <>
buffer db 260 dup(0)
buffer1 db " ", 259 dup(0)
check_mutex_name DB "MyMutex001", 0 
MUTEX_ALL_ACCESS dd 1
QUESTION_PRIME_HWND equ 1
ANSWER_PRIME_HWND equ 2
check_inst_message dd 0
check_inst_message_name dd 0
.data?
hInstance HINSTANCE ?
CommandLine LPSTR ?
hwndButton HWND ?
hwndButton1 HWND ?
hwndEdit HWND ?
hwndEdit1 HWND ?
check_mutex DD ?
main_window DD ?
second_instance dd ?
 
 
.const
EXIT_OK equ 0
EXIT_ALREADY_EXISTS equ 1
ButtonID equ 1
EditID equ 2
Button1ID equ 3
Edit1ID equ 4
IDM_HELLO equ 1
IDM_CLEAR equ 2
IDM_CLEAR1 equ 3
IDM_GETTEXT equ 4
IDM_GETTEXT1 equ 5
IDM_EXIT equ 6
.code
start:
invoke GetModuleHandle, NULL
mov hInstance,eax
invoke GetCommandLine
invoke WinMain, hInstance,NULL,CommandLine, SW_SHOWDEFAULT
invoke ExitProcess,eax
;___________________________________________________________ _
WinMain proc hInst:HINSTANCE, hPrevInst: HINSTANCE,CmdLine: LPSTR,CmdShow: DWORD
LOCAL wc:WNDCLASSEX
LOCAL msg:MSG
LOCAL hwnd:HWND
mov check_mutex, 0
invoke OpenMutex, MUTEX_ALL_ACCESS, FALSE, offset check_mutex_name 
.if (!eax)
mov second_instance, TRUE
Invoke CreateMutex, NULL, TRUE, offset check_mutex_name
mov check_mutex, eax
.else
.if(check_inst_message)
invoke SendMessageA, HWND_BROADCAST, check_inst_message, QUESTION_PRIME_HWND, NULL
.endif
invoke ExitProcess, EXIT_ALREADY_EXISTS
.endif
 
mov wc.cbSize,SIZEOF WNDCLASSEX
mov wc.style, CS_HREDRAW or CS_VREDRAW
mov wc.lpfnWndProc, OFFSET WndProc
mov wc.cbClsExtra,NULL
mov wc.cbWndExtra,NULL
push hInst
pop wc.hInstance
mov wc.hbrBackground,COLOR_BTNFACE+1
mov wc.lpszMenuName,OFFSET MenuName
mov wc.lpszClassName,OFFSET ClassName
invoke LoadIcon,NULL,IDI_APPLICATION
mov wc.hIcon,eax
mov wc.hIconSm,eax
invoke LoadCursor,NULL,IDC_ARROW
mov wc.hCursor,eax
invoke RegisterClassEx, addr wc
INVOKE CreateWindowEx, WS_EX_CLIENTEDGE, ADDR ClassName, ADDR AppName,\
WS_OVERLAPPEDWINDOW, CW_USEDEFAULT,\
CW_USEDEFAULT, 300, 250, NULL, NULL,\
hInst,NULL
mov hwnd,eax
mov main_window, eax
mov check_inst_message, 0
invoke RegisterWindowMessageA, offset check_inst_message_name
.if(eax)
mov check_inst_message, eax
.endif
 
 
INVOKE ShowWindow, hwnd,SW_SHOWNORMAL
INVOKE UpdateWindow, hwnd
.WHILE TRUE
INVOKE GetMessage, ADDR msg,NULL,0,0
.BREAK .IF (!eax)
INVOKE TranslateMessage, ADDR msg
INVOKE DispatchMessage, ADDR msg
.ENDW
mov eax,msg.wParam
ret
.if (check_mutex !=0)
invoke ReleaseMutex, check_mutex
.endif
 
WinMain endp
WndProc proc hWnd:HWND, uMsg:UINT, wParam:WPARAM, lParam:LPARAM
mov eax, uMsg
; обработка регистрируемого сообщения
.if(eax==check_inst_message) ;если получено зарегистрированное сообщение
.if(check_inst_message)
.if(second_instance) ;если это второй экземпляр
.if(wParam==ANSWER_PRIME_HWND) ;если в сообщении получен дескриптор окна
invoke SetForegroundWindow, lParam ;вывести это окно на первый план
jmp worked ; На конец процедуры
.endif
.else ;если это первый экземпляр
.if(wParam==QUESTION_PRIME_HWND) ;если запрашивается дескриптор окна
mov eax,hWnd ;послать ему дескрип-тор главного окна
.if(eax == hWnd)
invoke SendMessageA, HWND_BROADCAST, check_inst_message, ANSWER_PRIME_HWND, HWND
jmp worked ; На конец процедуры
.endif
.endif
.endif
.endif
jmp noworked ; На DefWindowProc
;закрытие приложения
.elseif(eax==WM_DESTROY)
invoke PostQuitMessage, EXIT_OK
jmp worked
 
    .IF uMsg==WM_DESTROY
invoke PostQuitMessage,NULL
    .ELSEIF uMsg==WM_CREATE
invoke CreateWindowEx,WS_EX_CLIENTEDGE, ADDR EditClassName,NULL,\
WS_CHILD or WS_VISIBLE or WS_BORDER or ES_LEFT or\
ES_AUTOHSCROLL,\
50,35,200,25,hWnd,EditID,hInstance,NULL
mov hwndEdit,eax
;~
invoke SetFocus, hwndEdit
 
invoke CreateWindowEx,WS_EX_CLIENTEDGE, ADDR EditClassName,NULL,\
WS_CHILD or WS_VISIBLE or WS_BORDER or ES_LEFT or\
ES_AUTOHSCROLL,\
50,65,200,25,hWnd,Edit1ID,hInstance,NULL
mov hwndEdit1,eax
;~
 
 
;command ~ 
 
invoke CreateWindowEx,NULL, ADDR ButtonClassName,ADDR ButtonText,\
WS_CHILD or WS_VISIBLE or BS_DEFPUSHBUTTON,\
75,95,140,25,hWnd,ButtonID,hInstance,NULL
mov hwndButton,eax 
invoke CreateWindowEx,NULL, ADDR ButtonClassName,ADDR Button1Text,\
WS_CHILD or WS_VISIBLE or BS_DEFPUSHBUTTON,\
75,125,140,25,hWnd,Button1ID,hInstance,NULL
mov hwndButton1,eax
    .ELSEIF uMsg==WM_COMMAND
mov eax,wParam
        .IF lParam==0
            .IF ax==IDM_HELLO
invoke SetWindowText,hwndEdit,ADDR TestString
invoke SendMessage,hwndEdit,WM_KEYDOWN,VK_END,NULL
invoke SetWindowText,hwndEdit1,ADDR TestString
invoke SendMessage,hwndEdit1,WM_KEYDOWN,VK_END,NULL
            .ELSEIF ax==IDM_CLEAR
invoke SetWindowText,hwndEdit,NULL
            .ELSEIF ax==IDM_CLEAR1
invoke SetWindowText,hwndEdit1,NULL
            .ELSEIF ax==IDM_GETTEXT
invoke GetWindowText,hwndEdit,ADDR buffer,512
invoke MessageBox,NULL,ADDR buffer,ADDR AppName,MB_OK
invoke CreateProcess, addr buffer, addr buffer1, NULL, NULL, FALSE, 0,\
NULL, NULL, addr s_i, addr p_i
; invoke SetParent, p_i.hProcess, hhWnd
;.if eax == 0
; invoke MessageBox, NULL, ADDR buffer, ADDR AppName, MB_OK
; .endif
 
            .ELSEIF ax==IDM_GETTEXT1
invoke GetWindowText,hwndEdit1,ADDR buffer1,512
invoke MessageBox,NULL,ADDR buffer1,ADDR AppName,MB_OK
invoke TerminateProcess, p_i.hProcess, NULL
invoke CloseHandle, p_i.hThread 
invoke CloseHandle, p_i.hProcess
            .ELSE
invoke DestroyWindow,hWnd
            .ENDIF
            .ELSEIF ax==ButtonID
shr eax,16
                .IF ax==BN_CLICKED
invoke SendMessage, hWnd, WM_COMMAND,IDM_GETTEXT, 0
                .ENDIF
            .ELSEIF ax==Button1ID
shr eax,16
                .IF ax==BN_CLICKED
invoke SendMessage, hWnd, WM_COMMAND,IDM_GETTEXT1, 0 
                .ENDIF
            .ENDIF 
;.ENDIF
        .ENDIF
    .ELSE
noworked:
invoke DefWindowProc, hWnd, uMsg,wParam,lParam
ret
    .ENDIF
 
xor eax,eax
worked:
ret
 
WndProc endp
 
end start

Разницу найди сам! Программа скомпелируется, но будет ли работать ХЗ

@kostyan-irk38 · 28.10.2013, 12:24 **[ТС]**

Ок, спасибо!

Новые блоги и статьи Все статьи Все блоги /
http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Первый деплой lagorue 16.01.2026 Не спеша развернул своё 1ое приложение в kubernetes. А дальше мне интересно создать 1фронтэнд приложения и 2 бэкэнд приложения развернуть 2 деплоя в кубере получится 2 сервиса и что-бы они. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит: токи, напряжения и их 1 и 2 производные при t = 0;. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Изучаю kubernetes lagorue 13.01.2026 А пригодятся-ли мне знания kubernetes в России?	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .

@kostyan-irk38 0 / 0 / 0 Регистрация: 15.05.2012 Сообщений: 20
	28.10.2013, 12:24 [ТС]
	Ок, спасибо! 0