[C#,VB.net]네이버 로그인 소스

 

블로그 인기글

● 메이플스토리 신규 룬패치/자동해제 프로그램 [링크 이동]

● 메이플스토리 거짓말탐지기 알림 프로그램 [링크 이동]

● C#에서 TensorFlow 사용하는법 [링크 이동]

---

Sub NaverLogin()
    Dim IE As Object
    Set IE = CreateObject("internetexplorer.application")

    IE.Visible = True
    IE.navigate "https://nid.naver.com/nidlogin.login"
    
    Application.Wait Now + TimeSerial(0, 0, 2)
    SendKeys "{tab}", True

    With IE.document.all
        .Item("id").Value = "네이버아이디"
        .Item("pw").Value = "비밀번호"
        .Item("log.login").Click
    End With
End Sub

---

Dim js As IJavaScriptExecutor = TryCast(IE, IJavaScriptExecutor)
js.ExecuteScript("document.getElementsByName('id')[0].value=""" & _nhnID & """")
For n = 1 To RandomInteger(5, 15) : Sleep(25) : Application.DoEvents() : Next '// 딜레이
js.ExecuteScript("document.getElementsByName('pw')[0].value=""" & _nhnPW & """")
For n = 1 To RandomInteger(5, 15) : Sleep(25) : Application.DoEvents() : Next '// 딜레이
ByXPathClick("//input[@class='btn_global']", "", True)