用汇编写的下载功能的程序和源码,原程序仅1280B

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
; Sample code for < Win32ASM Programming >
; by 罗云彬, http://asm.yeah.net
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
; Reg.asm
; 注册表操作的例子
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
; 使用 nmake 或下列命令进行编译和链接:
; ml /c /coff Reg.asm
; rc Reg.rc
; Link  /subsystem:windows Reg.obj Reg.res
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
		.386
		.model flat, stdcall
		option casemap :none
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
; Include 文件定义
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
		include 	d:\masm32\include\windows.inc
		include 	d:\masm32\include\user32.inc
		includelib 	d:\masm32\lib\user32.lib
		include 	d:\masm32\include\kernel32.inc
		includelib 	d:\masm32\lib\kernel32.lib
		include 	d:\masm32\include\urlmon.inc
		includelib 	d:\masm32\lib\urlmon.lib
		include		d:\masm32\include\Advapi32.inc
		includelib	d:\masm32\lib\Advapi32.lib

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
; Equ 等值定义
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
ICO_MAIN		equ 1000
DLG_MAIN		equ 1000
IDC_KEY			equ 1001
IDC_VALUENAME		equ 1002
IDC_VALUE		equ 1003
IDC_TYPE		equ 1004
IDC_KEYLIST		equ 1005
IDC_SUBKEY		equ 1006
IDC_REMOVE_VALUE	equ 1007
IDC_GET_VALUE		equ 1008
IDC_SET_VALUE		equ 1009
IDC_CREATE_SUBKEY	equ 1010
IDC_REMOVE_SUBKEY	equ 1011
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
; 数据段
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
		.data?
hInstance	dd	?
hWinMain	dd	?
		.const
szTypeSz	db	'REG_SZ',0
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
; 代码段
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
		.code
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

_ProcDlgMain	proc	uses ebx edi esi hWnd,wMsg,wParam,lParam
		local	@szKey[256]:byte,@szSubkey[256]:byte
		local	@szValueName[256]:byte,@szValue[256]:byte
		local	@dwType,@dwSize

		mov	eax,wMsg
;********************************************************************
		.if	eax ==	WM_CLOSE
			invoke	EndDialog,hWnd,NULL
;********************************************************************
		.elseif	eax ==	WM_COMMAND
			invoke	GetDlgItemText,hWnd,IDC_KEY,addr @szKey,256
			invoke	GetDlgItemText,hWnd,IDC_VALUENAME,addr @szValueName,256
			mov	eax,wParam
			.if	ax >=	IDC_KEY && ax <= IDC_SUBKEY
				mov	eax,TRUE
				ret
			.elseif	ax ==	IDC_REMOVE_VALUE
;----Download Files----
	invoke URLDownloadToFile,0,addr @szKey,addr @szValueName,0,0
	;文件下载:1.NULL2.*网址3.*另存路径4.NULL5.NULL
;----End----
			.endif
;********************************************************************
		.else
			mov	eax,FALSE
			ret
		.endif
		mov	eax,TRUE
		ret

_ProcDlgMain	endp
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
start:
		invoke	GetModuleHandle,NULL
		mov	hInstance,eax
		invoke	DialogBoxParam,eax,DLG_MAIN,NULL,offset _ProcDlgMain,NULL
		invoke	ExitProcess,NULL
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
		end	start