기타 [vb.net] Thread Example
페이지 정보
본문
Public nhnLogin_Thread As Thread
Private Sub m_cmd_login_Click(sender As Object, e As EventArgs) Handles m_cmd_login.Click
If (nhnLogin_Thread IsNot Nothing AndAlso nhnLogin_Thread.IsAlive) Then Return
CHROME_DRIVER_PATH = m_tb_7.Text
If Len(Dir(APP_PRODUCT_PATH, vbDirectory)) = 0 Then
LOG("경로 설정이 잘못되었습니다.",, True, True) : Return
ElseIf Not File.Exists(Path.Combine(CHROME_DRIVER_PATH, "chromedriver.exe")) Then
LOG("chromedriver.exe 가 존재하지 않습니다.",, True, True) : Return
End If
CHROME_PATH = CHROME_DRIVER_PATH
m_cmd_login.Text = "작업중"
m_cmd_login.Refresh() : Application.DoEvents()
LOG("로그인 확인중...")
nhnID = m_tb_nhnID.Text : nhnPW = m_tb_nhnPW.Text
nhnLogin_Thread = New Thread(New ThreadStart(AddressOf nhnLogin)) With {.IsBackground = True}
nhnLogin_Thread.Start()
While nhnLogin_Thread.IsAlive : Delay(30, False) : End While '// 30 Millisecond
If Not LoginStatus Then
m_cmd_login.Text = "LOGIN"
LOG("자동화에 실패하였습니다.\n\n로그인 실패!!\n\n수동으로 ""로그인 상태 유지""로 로그인 후 로그인 버튼을 다시 눌러 주세요.".Replace("\n", vbCrLf), True, True)
End If
End Sub
Public Sub nhnLogin()
''' 로그인 작업
End Sub
- 이전글[vb.net] PNG 리소스를 폼 아이콘으로 사용 22.09.19
- 다음글[vb.net] 원문자 넣기 -> 한글 1자, 숫자 0~99, 영대 1자, 영소 2자 22.09.06
댓글목록
등록된 댓글이 없습니다.