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

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

하나를하더라도최선을

2022-10-28 11:59 3,937 1

본문

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)

댓글목록1

익명글님의 댓글

익명

2022-10-28 12:11

_tail.php 3째줄 아래 내용 삽입

echo '<link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/highlight.js/10.7.3/styles/vs.min.css">';

'// 내용

.hljs {

display: block;overflow - x: auto;padding: .5 em;background: #fff;color: #000}.hljs-comment,.hljs-quote,.hljs-variable{color:green}.hljs-built_in,.hljs-keyword,.hljs-name,.hljs-selector-tag,.hljs-tag{color:# 00 f

}.hljs - addition, .hljs - attribute, .hljs - literal, .hljs - section, .hljs - string, .hljs - template - tag, .hljs - template - variable, .hljs - title, .hljs - type {

color: #a31515

}.hljs - deletion, .hljs - meta, .hljs - selector - attr, .hljs - selector - pseudo {

color: #2b91af}.hljs-doctag{color:grey}.hljs-attr{color:red}.hljs-bullet,.hljs-link,.hljs-symbol{color:# 00 b0e8

}.hljs - emphasis {

font - style: italic

}.hljs - strong {

font - weight: 700

}