네이버 자동 로그인 엑셀 VBA 프로그램 만들기 :: 최종편

Sub NaverLogin(LoginID As String, LoginPW As String)
 
'// 네이버 자동 로그인 명령문 시작
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"
 
Set MyBrowser = New InternetExplorer
MyBrowser.Silent = True
MyBrowser.Visible = True
MyBrowser.navigate MyURL
 
Wait_Browser MyBrowser
 
Set HTMLDoc = MyBrowser.document
 
Set txtID = HTMLDoc.getElementById("id")
txtID.Value = LoginID
 
'// 2018년 11월 27일 내용 추가
SendKeys "{TAB}"
 
Set txtPW = HTMLDoc.getElementById("pw")
txtPW.Value = LoginPW
 
'<--! 보안정책으로 해당 명령문을 변경합니다 -->
'For Each btnLogin In HTMLDoc.getElementsByClassName("btn_global")
'If btnLogin.Type = "submit" Then btnLogin.Click: Exit For
'Next
 
'// 2020년 1월 18일 내용 추가
 
SendKeys "{TAB}"
SendKeys "~"
 
Exit sub
 
Err_Clear:
If Err <> 0 Then
Err.Clear
Resume Next
End If
End Sub

'## 오류가 발생하면 Err_Clear 로 이동합니다.
'## 즉 오류가 발생하면 아래 작성된 Err_Clear: 부분으로 이동합니다.
On Error GoTo Err_Clear
 
'## 실제 구동될 명령문 입력
Exit sub
 
'## 오류가 발생하면 Err_Clear: 이후 부분의 코드가 실행됩니다.
'## 오류번호가 0이 아닐 경우 (즉 어떤 오류라도 발생하면), 오류를 지운 뒤
'## 다음 코드로 넘어갑니다.
Err_Clear:
If Err <> 0 Then
Err.Clear
Resume Next
End If
End Sub

'## 오류가 발생하면 오류를 무시하고 다음 코드로 넘어갑니다.
On Error Resume Next
 
'## 실제 구동될 명령문을 입력
MsgBox 1=0   '<--! 이 구문은 오류를 반환해야 하지만 다음단계로 넘어갑니다.
MSgBox 1=1
 
End sub

Sub DaumLogin(LoginID As String, LoginPW As String)
 
'// 다음 자동 로그인 명령문 시작
Dim MyURL As String
Dim MyBrowser As InternetExplorer
Dim HTMLDoc As HTMLDocument
Dim txtID As IHTMLElement
Dim txtPW As IHTMLElement
Dim btnLogin As IHTMLElement
 
On Error Resume Next
 
'// 네이버 자동 로그인 명령문과 다른 부분입니다. (URL주소)
MyURL = "https://logins.daum.net/accounts/toploginform.do"
 
Set MyBrowser = New InternetExplorer
MyBrowser.Silent = True
MyBrowser.Visible = True
 
MyBrowser.navigate MyURL
 
Wait_Browser MyBrowser
 
Set HTMLDoc = MyBrowser.document
 
'// 네이버 자동 로그인 명령문과 동일하게 설정합니다.
Set txtID = HTMLDoc.getElementById("id")
txtID.Value = LoginID
Set txtPW = HTMLDoc.getElementById("inputpwd")
txtPW.Value = LoginPW
 
Set btnLogin = HTMLDoc.getElementById("loginSubmit")
btnLogin.Click
 
Wait_Browser MyBrowser
 
End Sub