• 쇼핑몰
  • 커뮤니티
  • 북마크

vb6.0/vba




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

하나를하더라도최선을
2019.09.29 23:21 1,163 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

등록된 댓글이 없습니다.