.const
	DLG_MAIN equ 100
	IDC_IE equ 1000
.data?
	hInstance dd ?
	stRect RECT <0,0,0,0>
	hWeb dd ?
.CODE
start:
push 0
call GetModuleHandle
mov hInstance,eax
push 0
push offset _web_brower
push 100
push hInstance
call DialogBoxParam
push 0
call ExitProcess

_web_brower:
hWin equ 8h
uMsg equ 0ch
wParam equ 10h
lParam equ 14h


push ebp
mov ebp,esp
pushad

mov eax,[ebp+uMsg]
cmp eax,110h
jne _next
lea esi,stRect
mov (RECT ptr [esi]).left,10
mov (RECT ptr [esi]).top,10
mov (RECT ptr [esi]).right,300
mov (RECT ptr [esi]).bottom,200

;;create web browser
push 0
push 0
call @f
db 'http://hi.baidu.com/charme000',0
@@:
push offset stRect
push 1000
push [ebp+hWin]
call _WebBrower
mov hWeb,eax
jmp _ret
_next:
cmp eax,10h
jne _exit
push 0
push 1
push 7fh
push [ebp+hWin]

push hWeb
call DestroyWindow
push [ebp+lParam]
push [ebp+hWin]
call EndDialog
jmp _ret
_exit:
xor eax,eax
ret
_ret:
mov eax,1
ret

end start