vb6.0/vba [vba] 웹 브라우저(Web browser) / InternetExplorer 를 이용한 네이버 검색
페이지 정보
본문
Dim IE As Object
Sub program1472_com()
On Error GoTo ErrPass
If IE Is Nothing Then _
Set IE = CreateObject("InternetExplorer.Application")
With IE
If Not .Visible Then .Visible = True
.Navigate2 "https://www.naver.com/"
Do While .Busy = True Or .ReadyState <> 4
DoEvents
Loop
Application.Wait Now + TimeValue("0:00:01")
.document.all("search_btn").Click
Do While .Busy = True Or .ReadyState <> 4
DoEvents
Loop
Application.Wait Now + TimeValue("0:00:01")
Debug.Print .LocationURL
End With
Exit Sub
ErrPass:
Set IE = Nothing
program1472_com
End Sub
- 이전글[vba] vba를 이용한 롯데택배 로그인 및 로그아웃 19.10.02
- 다음글[vba] 사진(이미지) 클릭시 확대 / 축소하기 19.09.29
댓글목록
등록된 댓글이 없습니다.