VBA를 이용한 네이버 자동 로그인 이후

VBA
작성자
VBA이동머신
작성일
2021-07-22 21:28
조회
44
엑셀버전 : 엑셀2016

운영체제 : 윈도우10

안녕하세요

VBA를 이용해서, 오빠두 선생님이 알려주신대로 네이버 자동 로그인을 구현해봤습니다.

그런데, 로그인 이후에 "자주 사용하는 기기라면 등록해 주세요." 라는 창이 뜨면서 등록함/등록안함을 선택할 수 있는데요.

여기서 '등록안함'을 클릭하고 싶은데, 어떻게 해야할지 모르겠어요 ㅠㅠ

추가로, 다른 분 블로그에서도 다른 코드를 이용해서 자동로그인을 했는데, 여기서도 '등록안함'을 클릭하고 싶어요!

 

오빠두선생님이 알려주신 기존 코드와 제가 퍼온 코드에서, 로그인 이후 '등록안함'을 클릭하고 싶습니다! 도와주세요~

  • 오빠두선생님이 알려주신 기존 코드
    Sub NaverLogin(LoginID As String, LoginPW As String) 'Txt ID,PW 값을 넣음
    '1초를 기다리는 이유는 HTML 언어값을 불러올 때, VBA에서는 바로 불러오지 못하기에 최소 1초가 필요
     
    Dim MyBrowser As InternetExplorer
    Dim MyURL As String
    Dim HTMLDoc As HTMLDocument
    Dim txtID As IHTMLElement
    Dim txtPW As IHTMLElement
    Dim btnLogin As IHTMLElement
     
    On Error GoTo Err_Clear
     
    MyURL = "https://nid.naver.com/nidlogin.login?mode=form&url=https%3A%2F%2Fwww.naver.com&locale=ko_KR&svctype=1"
    '로그인 페이지 주소
     
    Set MyBrowser = New InternetExplorer
    '새로운 인터넷 창을 잡아줌
     
    MyBrowser.Silent = True '팝업창 안생기게
    MyBrowser.Visible = True '인터넷 익스플로러 창이 보이게 됌
    MyBrowser.Navigate MyURL 'MyURL로 이동하세요~
     
    Wait_Browser MyBrowser '실행한 익스플로러창이 준비될때까지 기다림
     
    Set HTMLDoc = MyBrowser.Document
    Set HTMLDoc2 = MyURL2.Document
    '해당 URL의 HTML언어를 문서형태로 불러오기
     
    Set txtID = HTMLDoc.getElementById("id")
    'ID값이 id인것을 찾게 되면, 그 텍스트 박스를 가져옴
    txtID.Value = LoginID
     
    SendKeys "{tab}"
     
    Set txtPW = HTMLDoc.getElementById("pw")
    'ID값이 pw인것을 찾게 되면, 그 텍스트 박스를 가져옴
    txtPW.Value = LoginPW
    '로그인 버튼을 찾기 위해, doc 중 class와 type을 찾아와야함
     
     
    For Each btnLogin In HTMLDoc.getElementsByClassName("btn_global")
     If btnLogin.Type = "submit" Then btnLogin.Click: Exit For
    Next
     
     
    'ClassName이 btn_global인 여러개의 값들 중에서, 그 값의 type이 submit인 경우
    '그 로그인 버튼을 클릭하고 exit for를 통해 For each 함수를 벗어나기
    '변수 하나하나를 불러와서 조건에 맞게 Loop를 돌리게 됌
     
     
    Err_Clear:
    If Err <> 0 Then
    Err.Clear
    Resume Next
    End If
    End Sub
  • 블로그에서 퍼온 코드
  • Sub NaverLogin()
     
    Dim IE As Object
    Set IE = CreateObject("internetexplorer.application")
     
    IE.Visible = True
    IE.Navigate "https://nid.naver.com/nidlogin.login?mode=form&url=https%3A%2F%2Fwww.naver.com&locale=ko_KR&svctype=1"
     
     
    Application.Wait Now + TimeSerial(0, 0, 2)
    SendKeys "{tab}", True
     
    With IE.Document.all
        .Item("id").Value = [b2]
        .Item("pw").Value = [c2]
        .Item("log.login").Click
     
    End With
     
     
    End Sub

 

전체 3

전체 3,474
번호 카테고리 제목 작성자 작성일 추천 조회
3461 문서서식
New 셀 병합 자동줄맞춤 문의 (2)
짱구는내친구 | 2021.07.25 | 추천 0 | 조회 34
짱구는내친구 2021.07.25 0 34
3460 문서서식
New 조건부서식 활용 (4) 답변완료
돌채 | 2021.07.25 | 추천 0 | 조회 40
돌채 2021.07.25 0 40
3459 기능/도구
New 데이터 유효성 검사에서 맨위 공란으로 표시되게 하려면 어떻게 해요? (2)
이하늘 | 2021.07.25 | 추천 0 | 조회 34
이하늘 2021.07.25 0 34
3458 함수/공식
New 조건 만족하는 함수식 첨부파일 (5) 답변완료
stranger | 2021.07.25 | 추천 0 | 조회 50
stranger 2021.07.25 0 50
3457 함수/공식
New [✨] 한 셀의 데이터를 구분자 기준으로 다수의 셀로 분리하고 싶습니다 첨부파일 (3)
milkcocoa | 2021.07.24 | 추천 0 | 조회 37
milkcocoa 2021.07.24 0 37
3456 VBA
New 괄호가 있는 셀의 색은 커운트하지 않는다. 첨부파일 (2)
돌채 | 2021.07.24 | 추천 0 | 조회 39
돌채 2021.07.24 0 39
3455 VBA
New 데이터 베이스 관련 첨부파일 (1)
까나리 | 2021.07.24 | 추천 0 | 조회 34
까나리 2021.07.24 0 34
3454 VBA
New 지우기 관련 (2)
까나리 | 2021.07.24 | 추천 0 | 조회 53
까나리 2021.07.24 0 53
3453 VBA
New 엑셀 로그인 시스템 관련 (3번 시도시 파일 강제종료부분)
지아 | 2021.07.23 | 추천 0 | 조회 49
지아 2021.07.23 0 49
3452 VBA
New VBA (제고관리프로그램) 공부하다가 문의가 있습니다. (7) 답변완료
까나리 | 2021.07.23 | 추천 0 | 조회 86
까나리 2021.07.23 0 86
3451 VBA
New 재고관리 프로그램 28강 켈린더의 BackStyle에 관한 질문입니다. (2) 답변완료
iviolin**** | 2021.07.23 | 추천 0 | 조회 34
iviolin**** 2021.07.23 0 34
3450 함수/공식
New 중복 값 찾기.. 첨부파일 (1)
인간 | 2021.07.23 | 추천 0 | 조회 41
인간 2021.07.23 0 41
3449 함수/공식
New 엑셀 데이터 정리관련 해서 질문합니다. 첨부파일 (1)
박정흠 | 2021.07.23 | 추천 0 | 조회 42
박정흠 2021.07.23 0 42
3448 VBA
New VBA SPLIT, FOR 함수 속도 문제 (9)
소람 | 2021.07.23 | 추천 0 | 조회 46
소람 2021.07.23 0 46
3447 기능/도구
New 도와주세요~ 시트 보호 해제 버튼이 비활성화 되어 해제가 되질 않아요 (3)
안개바다위의 쿳시 | 2021.07.23 | 추천 0 | 조회 46
안개바다위의 쿳시 2021.07.23 0 46
3446 VBA
FOR문 과 DO While 등 루프문 문의사항 첨부파일 (3) 답변완료
H.B | 2021.07.23 | 추천 1 | 조회 48
H.B 2021.07.23 1 48
3445 차트/그래프
슬라이서 차트의 범례 변경 (1)
전상준 | 2021.07.23 | 추천 0 | 조회 39
전상준 2021.07.23 0 39
3444 VBA
VBA로 구현하고 싶은데요 도와주세요... 첨부파일 (7) 답변완료
new_hwan | 2021.07.23 | 추천 1 | 조회 54
new_hwan 2021.07.23 1 54
3443 함수/공식
문자 연결 함수 문의 드립니다 (3)
세롱이 | 2021.07.23 | 추천 0 | 조회 47
세롱이 2021.07.23 0 47
3442 VBA
안녕하세요 질문좀 드려봅니다. (1)
엑셀공부 | 2021.07.23 | 추천 0 | 조회 32
엑셀공부 2021.07.23 0 32
3441 함수/공식
함수 질문 드립니다 첨부파일 (2)
ccha**** | 2021.07.23 | 추천 0 | 조회 32
ccha**** 2021.07.23 0 32
3440 피벗테이블
피벗테이블에서 값 필터 문제점 봐주세요 첨부파일 (1)
월마리아 | 2021.07.22 | 추천 0 | 조회 46
월마리아 2021.07.22 0 46
3439 VBA
VBA를 이용한 네이버 자동 로그인 이후 (3)
VBA이동머신 | 2021.07.22 | 추천 0 | 조회 44
VBA이동머신 2021.07.22 0 44
3438 함수/공식
시티를 비교해서 동일한 건 제거하는 것이 매일 반복되는데... 첨부파일 (5) 답변완료
Chris | 2021.07.22 | 추천 0 | 조회 41
Chris 2021.07.22 0 41
3437 VBA
VBA로 프린터 크기 지정관련 문제 첨부파일 (7) 답변완료
iviolin**** | 2021.07.22 | 추천 0 | 조회 38
iviolin**** 2021.07.22 0 38
3436 차트/그래프
원형차트에서 값이 변경될때마다 최대값의 조각만 따로 분리하는 해결방법 첨부파일 (2)
데이지 | 2021.07.22 | 추천 0 | 조회 35
데이지 2021.07.22 0 35
3435 VBA
셀 선택 시 연결된 함수 강조(색 변환) 첨부파일 (2) 답변완료
김세 | 2021.07.22 | 추천 0 | 조회 45
김세 2021.07.22 0 45
3434 기능/도구
구글 스프레드시트 데이터확인 범위에서의 목록 (1)
메꾸똘 | 2021.07.22 | 추천 0 | 조회 42
메꾸똘 2021.07.22 0 42
3433 함수/공식
다른 파일의 가로 DATA를 세로열로 부르는 방법 (DATA 호환 필요) 첨부파일 (8)
우롱쿠이 | 2021.07.22 | 추천 0 | 조회 64
우롱쿠이 2021.07.22 0 64
3432 함수/공식
구글 스프레드시트 쿼리로 전화번호 불러오기 (1)
메꾸똘 | 2021.07.22 | 추천 1 | 조회 40
메꾸똘 2021.07.22 1 40