<

[vba] 웹 브라우저(Web browser) / InternetExplorer 를 이용한 네이버 검색 > vb6.0/vba

본문 바로가기

vb6.0/vba

[vb6.0/vba] [vba] 웹 브라우저(Web browser) / InternetExplorer 를 이용한 네이버 검색

회원사진
하나를하더라도최선을
2019-09-29 23:21 5,172 0

본문

93212966061dab9c7783a922405bac10_1569766869_1205.png



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("query").Value = "http://program1472.com/"
        .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
 

댓글목록0

등록된 댓글이 없습니다.
게시판 전체검색