vb.net 셀레니움 크롬드라이버 예제(네이버로그인)

안녕하세요! 오늘은 컨디션이 좋으니 바로 이어서 셀레니음 크롬드라이버 사용법에 관하여 예제를

 

포스팅하도록 하겠습니다. 

 

지난번에는 크롬드라이버를 다운받아 설치까지 완료하였으니 이번에는 네이버에 로그인하는 방법에

 

관하여 포스팅을 하도록 할게요!

 

그럼 최상단에 아래의 코드를 입력합니다.

 

Imports OpenQA.Selenium

Imports OpenQA.Selenium.Remote

Imports OpenQA.Selenium.Support.UI

Imports OpenQA.Selenium.Interactions

Imports OpenQA.Selenium.Chrome

 

아래부분은 선언부분에 입력합니다.

    Private driver As IWebDriver
    Private driverk As ChromeDriverService
    Private driverl As ChromeOptions

 

 

 

네이버로그인 페이지에 접속 합니다.

        driverk = ChromeDriverService.CreateDefaultService 
        driverk.HideCommandPromptWindow = True 
        driverl = New ChromeOptions() 
        driverl.AddArgument("--disable-notifications") 
        driverl.AddArgument("--disable-infobars") 
        driver = New ChromeDriver(driverk, driverl) 
        Try
            driver.Navigate.GoToUrl("https://nid.naver.com/nidlogin.login")
        Catch ex As Exception
            MessageBox.Show("오류가 발생했습니다: " & ex.Message)
            Exit Sub
        End Try

        Dim jsx As IJavaScriptExecutor = driver

        While True
            Try
                If driver.FindElements(By.Id("id")).Count > 0 Then
                    jsx.ExecuteScript("arguments[0].value=arguments[1]", driver.FindElement(By.Id("id")), "아이디입력")
                    Exit While
                End If
            Catch ex As Exception
                MessageBox.Show("오류가 발생했습니다: " & ex.Message)
                Show()
                Exit Sub
            End Try
        End While
    
        While True
            Try
                If driver.FindElements(By.Id("pw")).Count > 0 Then
                    jsx.ExecuteScript("arguments[0].value=arguments[1]", driver.FindElement(By.Id("pw")), "비밀번호입력")
                    Exit While
                End If
            Catch ex As Exception
                MessageBox.Show("오류가 발생했습니다: " & ex.Message)
                Show()
                Exit Sub
            End Try
        End While

        While True
            Try
                If driver.FindElements(By.XPath("//*[@id=""frmNIDLogin""]/fieldset/input")).Count > 0 Then
                    driver.FindElement(By.XPath("//*[@id=""frmNIDLogin""]/fieldset/input")).Click()
                    Exit While
                End If
            Catch ex As Exception
                MessageBox.Show("오류가 발생했습니다: " & ex.Message)
                Show()
                Exit Sub
            End Try
        End While

        Try  '네이버로그인 성공 확인
            If driver.FindElements(By.Id("search_btn")).Count > 0 Then
                MessageBox.Show("네이버로그인 성공")

            End If
        Catch ex As Exception
            MessageBox.Show("오류가 발생했습니다: " & ex.Message)

        End Try

 

이번 포스팅은 간단하게 네이버 로그인 방법에 관하여 포스팅을 하였습니다.

 

더욱 자세한 설명을 하고 싶지만 너무 복잡해 질 수 있으니 금일은 여기까지만 포스팅을 하도록 하겠습니다.

 

그럼 다음에는 자주쓰이는 코드에 관하여 포스팅을 하도록 하겠습니다. 

 

그럼 즐거운 하루 되세요^^