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

하나를하더라도최선을 2022-10-28 11:59:49 38,656 1 0

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:01

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

echo '';

'// 내용

.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

}