수다닷컴

수다님 웹브 핸들구하기로.. 새로고침을 만들어봤는데왜 안될까요..?private declare function windowfrompoint lib user32.dll (byval xpoint as long, byval ypoint as long) as long
private declare function clienttoscreen lib user32 (byval hwnd as long, lppoint as pointapi) as long
private declare function sendmessage lib user32 alias sendmessagea _
(byval hwnd as long, byval wmsg as long, byval wparam as integer, byval lparam as any) as long
private const vk_f5 as long = &h74
private const wm_keydown = &h100
private type pointapi
x as long
y as long
end type--------------------------------------------------------------------------------private function getwb() as long
dim pt as pointapi pt.x = wb.left / 15&
pt.y = wb.top / 15&

clienttoscreen me.hwnd, pt
getwb = windowfrompoint(pt.x, pt.y)end function--------------------------------------------------------------------------------private sub command1_click()
call sendmessage(getwb, wm_keydown, vk_f5, vbnullstring)
end sub--------------------------------------------------------------------------------private sub form_load()
wb.navigate http://www.naver.com
end sub

신청하기