크롤링_crawling 7

winhttp 크롤링 vba 기본 code

첫번째 방법 Sub 검색() 'winhttp5.1 참조 안함 Set WinHttp = CreateObject("WinHttp.WinHttpRequest.5.1") Set doc = CreateObject("htmlfile") 주소 = "주소입력" WinHttp.Open "GET", 주소, FALSE WinHttp.Send doc.body.innerhtml = WinHttp.ResponseText ....... end sub 두번째 방법 Sub 모든종목가져오기() 'winhttp 5.1 참조함 Dim winhttp As New WinHttpRequest 주소 = " 주소입력" winhttp.Open "GET", 주소 winhttp.send 결과 = winhttp.responseText Set json = ..

크롤링_crawling 2023.04.03

selenium 엔카 크롤링 (bot 감지 실행 안됨)

Dim driver As New Selenium.ChromeDriver 'sub안에서 실행하면 끝날때 자동 종료 되기 때문에 밖에서 실행시켜놓는다. ------------------------------------------------------------------------- Sub 브라우저실행() driver.Get " http://www.encar.com/dc/dc_carsearchlist.do?carType=kor&searchType=model&TG.R=A#!%7B%22action%22%3A%22(And.Hidden.N._.(C.CarType.Y._.(C.Manufacturer.%EC%A0%9C%EB%84%A4%EC%8B%9C%EC%8A%A4._.(C.ModelGroup.G80._.Model.G..

크롤링_crawling 2023.04.01

selenium 셀레니움 기본 크롬오픈 최소화

Sub slenium() 'selenium type library 도구 -참조할것 Dim driver As New WebDriver ' WebDriver형식의 변수 선언 strURL = "https://www.naver.com" ' 읽어올 페이지의 URL 설정 driver.Start "Chrome" ' 브라우저를 크롬으로 실행 / 크롬, 익스플로러, 파이어폭스 등 브라우저를 지정해 실행할 수 있다. driver.Wait (500) ' 0.5초 대기 driver.Get strURL ' 앞서 정의한 URL로 페이지 연결 '요소 선택 driver.Close Set driver = Nothing ' 메모리 초기화 End Sub ---------------------------------------------- ..

크롤링_crawling 2023.04.01

크롤링 Selenium 설치

크롤링을 하기전 준비작업 셀레니움 설치 https://github.com/florentbr/SeleniumBasic 깃허브를 통해 SeleniumBasic v2.0.9.0 을 다운로드 우측 SeleniumBasic을 클릭하여 다운로드 - 다운로드 후 next 또는 finish 버튼 클릭 하여 완료 이제 마지막으로 ChromeDriver를 설치하면 완료됩니다. 셀레니움 베이직을 설치하면 아래 두 개의 경로중 한 곳에 설치됩니다. C:\Users\[사용자명]\AppData\Local\SeleniumBasic - 저의 경우 노트북에는 이곳에 설치되었네욤 C:\Program Files\SeleniumBasic 설치경로에 들어가면 Chromedriver.exe 가 설치되어 있는데, 설치된 날짜가 현재보다 한참 전..

크롤링_crawling 2023.03.31