📄 controlpanel.lst

📁 在vb中镶入汇编、VC
💻 LST
📖 第 1 页 / 共 4 页
字号:
上一页 1 2 34
	call	DWORD PTR [eax+316]
	fnclex
	mov	DWORD PTR _unnamed_var1$[ebp], eax
	cmp	DWORD PTR _unnamed_var1$[ebp], 0
	jge	SHORT $L351
	push	316					; 0000013cH
	push	OFFSET FLAT:___vba@001AF9AC
	push	DWORD PTR _unnamed_var1$[ebp]
	push	DWORD PTR _unnamed_var1$[ebp]
	call	___vbaHresultCheckObj
	mov	DWORD PTR -64+[ebp], eax
	jmp	SHORT $L352
$L351:
	and	DWORD PTR -64+[ebp], 0
$L352:
	lea	ecx, DWORD PTR _unnamed_var1$[ebp]
	call	@__vbaFreeObj

; 183  :     Next

	jmp	SHORT $L194
$L180:

; 184  : End Sub

	mov	DWORD PTR __$SEHRec$[ebp+16], 0
$L192:
	push	$L358
	jmp	SHORT $L353
$L191:
	lea	ecx, DWORD PTR _unnamed_var1$[ebp]
	call	@__vbaFreeObj
	ret	0
$L353:
$L356:
	ret	0
$L358:
	mov	eax, DWORD PTR _Me$[ebp]
	mov	eax, DWORD PTR [eax]
	push	DWORD PTR _Me$[ebp]
	call	DWORD PTR [eax+8]
	mov	eax, DWORD PTR __$SEHRec$[ebp+16]
	mov	ecx, DWORD PTR __$SEHRec$[ebp]
	mov	DWORD PTR fs:__except_list, ecx
	pop	edi
	pop	esi
	pop	ebx
	leave
	ret	4
$L181:
	call	___vbaErrorOverflow
?cbSelectAll_Click@frmControlPanel@@AAGXXZ ENDP		; frmControlPanel::cbSelectAll_Click
text$1	ENDS
PUBLIC	?cbSelectNone_Click@frmControlPanel@@AAGXXZ	; frmControlPanel::cbSelectNone_Click
;	COMDAT CONST
; File D:\VB Utility\Compiler\ControlPanel.frm
CONST	SEGMENT
$S211	DB	05H, 00H
	DB	08H, 00H
	DD	FLAT:$L210
	DB	00H, 00H, 00H, 00H
	DD	FLAT:$L209
CONST	ENDS
;	COMDAT ?cbSelectNone_Click@frmControlPanel@@AAGXXZ
text$1	SEGMENT
_Me$ = 8
_idxListMember$ = -24
_unnamed_var1$ = -28
_unnamed_var1$ = -32
_unnamed_var1$ = -36
_unnamed_var1$ = -40
_unnamed_var1$ = -44
_unnamed_var1$ = -48
__$SEHRec$ = -20
?cbSelectNone_Click@frmControlPanel@@AAGXXZ PROC NEAR	; frmControlPanel::cbSelectNone_Click, COMDAT

; 186  : Private Sub cbSelectNone_Click()

	push	ebp
	mov	ebp, esp
	sub	esp, 12					; 0000000cH
	push	OFFSET FLAT:___vbaExceptHandler
	mov	eax, DWORD PTR fs:__except_list
	push	eax
	mov	DWORD PTR fs:__except_list, esp
	push	44					; 0000002cH
	pop	eax
	call	___vbaChkstk
	push	ebx
	push	esi
	push	edi
	mov	DWORD PTR __$SEHRec$[ebp+8], esp
	mov	DWORD PTR __$SEHRec$[ebp+12], OFFSET FLAT:$S211
	mov	eax, DWORD PTR _Me$[ebp]
	and	eax, 1
	mov	DWORD PTR __$SEHRec$[ebp+16], eax
	mov	eax, DWORD PTR _Me$[ebp]
	and	al, -2					; fffffffeH
	mov	DWORD PTR _Me$[ebp], eax
	mov	eax, DWORD PTR _Me$[ebp]
	mov	eax, DWORD PTR [eax]
	push	DWORD PTR _Me$[ebp]
	call	DWORD PTR [eax+4]

; 187  :     Dim idxListMember As Long
; 188  :     For idxListMember = 0 To lstProjectMembers.ListCount - 1

	mov	eax, DWORD PTR _Me$[ebp]
	mov	eax, DWORD PTR [eax]
	push	DWORD PTR _Me$[ebp]
	call	DWORD PTR [eax+784]
	push	eax
	lea	eax, DWORD PTR _unnamed_var1$[ebp]
	push	eax
	call	___vbaObjSet
	mov	DWORD PTR _unnamed_var1$[ebp], eax
	lea	eax, DWORD PTR _unnamed_var1$[ebp]
	push	eax
	mov	eax, DWORD PTR _unnamed_var1$[ebp]
	mov	eax, DWORD PTR [eax]
	push	DWORD PTR _unnamed_var1$[ebp]
	call	DWORD PTR [eax+216]
	fnclex
	mov	DWORD PTR _unnamed_var1$[ebp], eax
	cmp	DWORD PTR _unnamed_var1$[ebp], 0
	jge	SHORT $L364
	push	216					; 000000d8H
	push	OFFSET FLAT:___vba@001AF9AC
	push	DWORD PTR _unnamed_var1$[ebp]
	push	DWORD PTR _unnamed_var1$[ebp]
	call	___vbaHresultCheckObj
	mov	DWORD PTR -60+[ebp], eax
	jmp	SHORT $L365
$L364:
	and	DWORD PTR -60+[ebp], 0
$L365:
	mov	ax, WORD PTR _unnamed_var1$[ebp]
	sub	ax, 1
	jo	$L199
	movsx	eax, ax
	mov	DWORD PTR _unnamed_var1$[ebp], eax
	mov	DWORD PTR _unnamed_var1$[ebp], 1
	and	DWORD PTR _idxListMember$[ebp], 0
	lea	ecx, DWORD PTR _unnamed_var1$[ebp]
	call	@__vbaFreeObj
	jmp	SHORT $L213
$L212:

; 189  :         lstProjectMembers.Selected(idxListMember) = False

	mov	eax, DWORD PTR _idxListMember$[ebp]
	add	eax, DWORD PTR _unnamed_var1$[ebp]
	jo	$L199
	mov	DWORD PTR _idxListMember$[ebp], eax
$L213:
	mov	eax, DWORD PTR _idxListMember$[ebp]
	cmp	eax, DWORD PTR _unnamed_var1$[ebp]
	jg	SHORT $L198
	mov	eax, DWORD PTR _Me$[ebp]
	mov	eax, DWORD PTR [eax]
	push	DWORD PTR _Me$[ebp]
	call	DWORD PTR [eax+784]
	push	eax
	lea	eax, DWORD PTR _unnamed_var1$[ebp]
	push	eax
	call	___vbaObjSet
	mov	DWORD PTR _unnamed_var1$[ebp], eax
	push	0
	mov	ecx, DWORD PTR _idxListMember$[ebp]
	call	@__vbaI2I4
	push	eax
	mov	eax, DWORD PTR _unnamed_var1$[ebp]
	mov	eax, DWORD PTR [eax]
	push	DWORD PTR _unnamed_var1$[ebp]
	call	DWORD PTR [eax+316]
	fnclex
	mov	DWORD PTR _unnamed_var1$[ebp], eax
	cmp	DWORD PTR _unnamed_var1$[ebp], 0
	jge	SHORT $L366
	push	316					; 0000013cH
	push	OFFSET FLAT:___vba@001AF9AC
	push	DWORD PTR _unnamed_var1$[ebp]
	push	DWORD PTR _unnamed_var1$[ebp]
	call	___vbaHresultCheckObj
	mov	DWORD PTR -64+[ebp], eax
	jmp	SHORT $L367
$L366:
	and	DWORD PTR -64+[ebp], 0
$L367:
	lea	ecx, DWORD PTR _unnamed_var1$[ebp]
	call	@__vbaFreeObj

; 190  :     Next

	jmp	SHORT $L212
$L198:

; 191  : End Sub

	mov	DWORD PTR __$SEHRec$[ebp+16], 0
$L210:
	push	$L373
	jmp	SHORT $L368
$L209:
	lea	ecx, DWORD PTR _unnamed_var1$[ebp]
	call	@__vbaFreeObj
	ret	0
$L368:
$L371:
	ret	0
$L373:
	mov	eax, DWORD PTR _Me$[ebp]
	mov	eax, DWORD PTR [eax]
	push	DWORD PTR _Me$[ebp]
	call	DWORD PTR [eax+8]
	mov	eax, DWORD PTR __$SEHRec$[ebp+16]
	mov	ecx, DWORD PTR __$SEHRec$[ebp]
	mov	DWORD PTR fs:__except_list, ecx
	pop	edi
	pop	esi
	pop	ebx
	leave
	ret	4
$L199:
	call	___vbaErrorOverflow
?cbSelectNone_Click@frmControlPanel@@AAGXXZ ENDP	; frmControlPanel::cbSelectNone_Click
text$1	ENDS
PUBLIC	?cbContinue_Click@frmControlPanel@@AAGXXZ	; frmControlPanel::cbContinue_Click
EXTRN	___vba@001B0C6C:BYTE
;	COMDAT CONST
; File D:\VB Utility\Compiler\ControlPanel.frm
CONST	SEGMENT
$S221	DB	01H, 00H
	DB	08H, 00H
	DD	FLAT:$L220
CONST	ENDS
;	COMDAT ?cbContinue_Click@frmControlPanel@@AAGXXZ
text$1	SEGMENT
_Me$ = 8
_unnamed_var1$ = -24
__$SEHRec$ = -20
?cbContinue_Click@frmControlPanel@@AAGXXZ PROC NEAR	; frmControlPanel::cbContinue_Click, COMDAT

; 193  : Private Sub cbContinue_Click()

	push	ebp
	mov	ebp, esp
	sub	esp, 12					; 0000000cH
	push	OFFSET FLAT:___vbaExceptHandler
	mov	eax, DWORD PTR fs:__except_list
	push	eax
	mov	DWORD PTR fs:__except_list, esp
	push	16					; 00000010H
	pop	eax
	call	___vbaChkstk
	push	ebx
	push	esi
	push	edi
	mov	DWORD PTR __$SEHRec$[ebp+8], esp
	mov	DWORD PTR __$SEHRec$[ebp+12], OFFSET FLAT:$S221
	mov	eax, DWORD PTR _Me$[ebp]
	and	eax, 1
	mov	DWORD PTR __$SEHRec$[ebp+16], eax
	mov	eax, DWORD PTR _Me$[ebp]
	and	al, -2					; fffffffeH
	mov	DWORD PTR _Me$[ebp], eax
	mov	eax, DWORD PTR _Me$[ebp]
	mov	eax, DWORD PTR [eax]
	push	DWORD PTR _Me$[ebp]
	call	DWORD PTR [eax+4]

; 194  :     msTerminationMode = "Next Module"

	mov	edx, OFFSET FLAT:___vba@001B0C6C
	mov	ecx, DWORD PTR _Me$[ebp]
	add	ecx, 56					; 00000038H
	call	@__vbaStrCopy

; 195  :     Me.Hide

	mov	eax, DWORD PTR _Me$[ebp]
	mov	eax, DWORD PTR [eax]
	push	DWORD PTR _Me$[ebp]
	call	DWORD PTR [eax+692]
	fnclex
	mov	DWORD PTR _unnamed_var1$[ebp], eax
	cmp	DWORD PTR _unnamed_var1$[ebp], 0
	jge	SHORT $L379
	push	692					; 000002b4H
	push	OFFSET FLAT:___vba@001A0B98
	push	DWORD PTR _Me$[ebp]
	push	DWORD PTR _unnamed_var1$[ebp]
	call	___vbaHresultCheckObj
	mov	DWORD PTR -36+[ebp], eax
	jmp	SHORT $L216
$L379:
	and	DWORD PTR -36+[ebp], 0
$L216:

; 196  : End Sub

	mov	DWORD PTR __$SEHRec$[ebp+16], 0
$L220:
	mov	eax, DWORD PTR _Me$[ebp]
	mov	eax, DWORD PTR [eax]
	push	DWORD PTR _Me$[ebp]
	call	DWORD PTR [eax+8]
	mov	eax, DWORD PTR __$SEHRec$[ebp+16]
	mov	ecx, DWORD PTR __$SEHRec$[ebp]
	mov	DWORD PTR fs:__except_list, ecx
	pop	edi
	pop	esi
	pop	ebx
	leave
	ret	4
?cbContinue_Click@frmControlPanel@@AAGXXZ ENDP		; frmControlPanel::cbContinue_Click
text$1	ENDS
PUBLIC	?cbFinishCompile_Click@frmControlPanel@@AAGXXZ	; frmControlPanel::cbFinishCompile_Click
EXTRN	___vba@001B0D40:BYTE
;	COMDAT CONST
; File D:\VB Utility\Compiler\ControlPanel.frm
CONST	SEGMENT
$S229	DB	01H, 00H
	DB	08H, 00H
	DD	FLAT:$L228
CONST	ENDS
;	COMDAT ?cbFinishCompile_Click@frmControlPanel@@AAGXXZ
text$1	SEGMENT
_Me$ = 8
_unnamed_var1$ = -24
__$SEHRec$ = -20
?cbFinishCompile_Click@frmControlPanel@@AAGXXZ PROC NEAR ; frmControlPanel::cbFinishCompile_Click, COMDAT

; 198  : Private Sub cbFinishCompile_Click()

	push	ebp
	mov	ebp, esp
	sub	esp, 12					; 0000000cH
	push	OFFSET FLAT:___vbaExceptHandler
	mov	eax, DWORD PTR fs:__except_list
	push	eax
	mov	DWORD PTR fs:__except_list, esp
	push	16					; 00000010H
	pop	eax
	call	___vbaChkstk
	push	ebx
	push	esi
	push	edi
	mov	DWORD PTR __$SEHRec$[ebp+8], esp
	mov	DWORD PTR __$SEHRec$[ebp+12], OFFSET FLAT:$S229
	mov	eax, DWORD PTR _Me$[ebp]
	and	eax, 1
	mov	DWORD PTR __$SEHRec$[ebp+16], eax
	mov	eax, DWORD PTR _Me$[ebp]
	and	al, -2					; fffffffeH
	mov	DWORD PTR _Me$[ebp], eax
	mov	eax, DWORD PTR _Me$[ebp]
	mov	eax, DWORD PTR [eax]
	push	DWORD PTR _Me$[ebp]
	call	DWORD PTR [eax+4]

; 199  :     msTerminationMode = "Finish Compile"

	mov	edx, OFFSET FLAT:___vba@001B0D40
	mov	ecx, DWORD PTR _Me$[ebp]
	add	ecx, 56					; 00000038H
	call	@__vbaStrCopy

; 200  :     Me.Hide

	mov	eax, DWORD PTR _Me$[ebp]
	mov	eax, DWORD PTR [eax]
	push	DWORD PTR _Me$[ebp]
	call	DWORD PTR [eax+692]
	fnclex
	mov	DWORD PTR _unnamed_var1$[ebp], eax
	cmp	DWORD PTR _unnamed_var1$[ebp], 0
	jge	SHORT $L387
	push	692					; 000002b4H
	push	OFFSET FLAT:___vba@001A0B98
	push	DWORD PTR _Me$[ebp]
	push	DWORD PTR _unnamed_var1$[ebp]
	call	___vbaHresultCheckObj
	mov	DWORD PTR -36+[ebp], eax
	jmp	SHORT $L224
$L387:
	and	DWORD PTR -36+[ebp], 0
$L224:

; 201  : End Sub

	mov	DWORD PTR __$SEHRec$[ebp+16], 0
$L228:
	mov	eax, DWORD PTR _Me$[ebp]
	mov	eax, DWORD PTR [eax]
	push	DWORD PTR _Me$[ebp]
	call	DWORD PTR [eax+8]
	mov	eax, DWORD PTR __$SEHRec$[ebp+16]
	mov	ecx, DWORD PTR __$SEHRec$[ebp]
	mov	DWORD PTR fs:__except_list, ecx
	pop	edi
	pop	esi
	pop	ebx
	leave
	ret	4
?cbFinishCompile_Click@frmControlPanel@@AAGXXZ ENDP	; frmControlPanel::cbFinishCompile_Click
text$1	ENDS
PUBLIC	?cbSkipLink_Click@frmControlPanel@@AAGXXZ	; frmControlPanel::cbSkipLink_Click
EXTRN	___vba@001B0D00:BYTE
;	COMDAT CONST
; File D:\VB Utility\Compiler\ControlPanel.frm
CONST	SEGMENT
$S237	DB	01H, 00H
	DB	08H, 00H
	DD	FLAT:$L236
CONST	ENDS
;	COMDAT ?cbSkipLink_Click@frmControlPanel@@AAGXXZ
text$1	SEGMENT
_Me$ = 8
_unnamed_var1$ = -24
__$SEHRec$ = -20
?cbSkipLink_Click@frmControlPanel@@AAGXXZ PROC NEAR	; frmControlPanel::cbSkipLink_Click, COMDAT

; 203  : Private Sub cbSkipLink_Click()

	push	ebp
	mov	ebp, esp
	sub	esp, 12					; 0000000cH
	push	OFFSET FLAT:___vbaExceptHandler
	mov	eax, DWORD PTR fs:__except_list
	push	eax
	mov	DWORD PTR fs:__except_list, esp
	push	16					; 00000010H
	pop	eax
	call	___vbaChkstk
	push	ebx
	push	esi
	push	edi
	mov	DWORD PTR __$SEHRec$[ebp+8], esp
	mov	DWORD PTR __$SEHRec$[ebp+12], OFFSET FLAT:$S237
	mov	eax, DWORD PTR _Me$[ebp]
	and	eax, 1
	mov	DWORD PTR __$SEHRec$[ebp+16], eax
	mov	eax, DWORD PTR _Me$[ebp]
	and	al, -2					; fffffffeH
	mov	DWORD PTR _Me$[ebp], eax
	mov	eax, DWORD PTR _Me$[ebp]
	mov	eax, DWORD PTR [eax]
	push	DWORD PTR _Me$[ebp]
	call	DWORD PTR [eax+4]

; 204  :     msTerminationMode = "Skip to Link"

	mov	edx, OFFSET FLAT:___vba@001B0D00
	mov	ecx, DWORD PTR _Me$[ebp]
	add	ecx, 56					; 00000038H
	call	@__vbaStrCopy

; 205  :     Me.Hide

	mov	eax, DWORD PTR _Me$[ebp]
	mov	eax, DWORD PTR [eax]
	push	DWORD PTR _Me$[ebp]
	call	DWORD PTR [eax+692]
	fnclex
	mov	DWORD PTR _unnamed_var1$[ebp], eax
	cmp	DWORD PTR _unnamed_var1$[ebp], 0
	jge	SHORT $L395
	push	692					; 000002b4H
	push	OFFSET FLAT:___vba@001A0B98
	push	DWORD PTR _Me$[ebp]
	push	DWORD PTR _unnamed_var1$[ebp]
	call	___vbaHresultCheckObj
	mov	DWORD PTR -36+[ebp], eax
	jmp	SHORT $L232
$L395:
	and	DWORD PTR -36+[ebp], 0
$L232:

; 206  : End Sub

	mov	DWORD PTR __$SEHRec$[ebp+16], 0
$L236:
	mov	eax, DWORD PTR _Me$[ebp]
	mov	eax, DWORD PTR [eax]
	push	DWORD PTR _Me$[ebp]
	call	DWORD PTR [eax+8]
	mov	eax, DWORD PTR __$SEHRec$[ebp+16]
	mov	ecx, DWORD PTR __$SEHRec$[ebp]
	mov	DWORD PTR fs:__except_list, ecx
	pop	edi
	pop	esi
	pop	ebx
	leave
	ret	4
?cbSkipLink_Click@frmControlPanel@@AAGXXZ ENDP		; frmControlPanel::cbSkipLink_Click
text$1	ENDS
PUBLIC	?chkGenerateListing_Click@frmControlPanel@@AAGXXZ ; frmControlPanel::chkGenerateListing_Click
;	COMDAT CONST
; File D:\VB Utility\Compiler\ControlPanel.frm
CONST	SEGMENT
$S244	DB	01H, 00H
	DB	08H, 00H
	DD	FLAT:$L243
CONST	ENDS
;	COMDAT ?chkGenerateListing_Click@frmControlPanel@@AAGXXZ
text$1	SEGMENT
_Me$ = 8
__$SEHRec$ = -20
?chkGenerateListing_Click@frmControlPanel@@AAGXXZ PROC NEAR ; frmControlPanel::chkGenerateListing_Click, COMDAT

; 208  : Private Sub chkGenerateListing_Click()

	push	ebp
	mov	ebp, esp
	sub	esp, 12					; 0000000cH
	push	OFFSET FLAT:___vbaExceptHandler
	mov	eax, DWORD PTR fs:__except_list
	push	eax
	mov	DWORD PTR fs:__except_list, esp
	push	8
	pop	eax
	call	___vbaChkstk
	push	ebx
	push	esi
	push	edi
	mov	DWORD PTR __$SEHRec$[ebp+8], esp
	mov	DWORD PTR __$SEHRec$[ebp+12], OFFSET FLAT:$S244
	mov	eax, DWORD PTR _Me$[ebp]
	and	eax, 1
	mov	DWORD PTR __$SEHRec$[ebp+16], eax
	mov	eax, DWORD PTR _Me$[ebp]
	and	al, -2					; fffffffeH
	mov	DWORD PTR _Me$[ebp], eax
	mov	eax, DWORD PTR _Me$[ebp]
	mov	eax, DWORD PTR [eax]
	push	DWORD PTR _Me$[ebp]
	call	DWORD PTR [eax+4]

; 209  :     SetGenerateListing

	mov	eax, DWORD PTR _Me$[ebp]
	mov	eax, DWORD PTR [eax]
	push	DWORD PTR _Me$[ebp]
	call	DWORD PTR [eax+1804]

; 210  : End Sub

	mov	DWORD PTR __$SEHRec$[ebp+16], 0
$L243:
	mov	eax, DWORD PTR _Me$[ebp]
	mov	eax, DWORD PTR [eax]
	push	DWORD PTR _Me$[ebp]
	call	DWORD PTR [eax+8]
	mov	eax, DWORD PTR __$SEHRec$[ebp+16]
	mov	ecx, DWORD PTR __$SEHRec$[ebp]
	mov	DWORD PTR fs:__except_list, ecx
	pop	edi
	pop	esi
	pop	ebx
	leave
	ret	4
?chkGenerateListing_Click@frmControlPanel@@AAGXXZ ENDP	; frmControlPanel::chkGenerateListing_Click
text$1	ENDS
END
上一页 1 2 34
💿 文件大小 59 K
👤 上传用户 chengshengwu123
📂 所属分类其他
🏷️ 相关标签

#汇编
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -