vba 질문 드립니다

비공개 조회수 560 2017.02.04

정부공공기관 워크넷(www.work.go.kr) 아이디 비밀번호가 있으셔야 답변이 가능하실 것 같아요

엑셀 파일 첨부 하였어요

첨부파일 매크로 확인해보시면요

워크넷 모듈이 적혀 있는데요

Run-time error 가 발생합니다

원인을 찾을 수가 없습니다

Inet 이나 Httpwebrequest 같은 것으로는 모두 정상적으로 로그인에 성공하는데,

WInHttp에서는 이렇게 오류가 발생합니다

※ 참고로 Cookie 값이나 모든 헤더 전부다 넣어줘도 마찬가지입니다

무엇이 잘못 되어서 이러는 것일까요 ?

해결책을 알려주시면 채택 해드리겠습니다

문제발생.xlsm

내PC 저장 MYBOX 저장

답변자님,

정보를 공유해 주세요.

1 개 답변

HS Nanosoft 카페 답변

지식카페 하나

안녕하세요~! ^.^;;

아이디와 비번을 제공하면 모를까...

암튼 사용은 아래와 같은 형태로 하시면 됩니다.

그래야 winhttp에서 오류가 나더라도 쿠키값을 가지고 사용할 수있어요

Dim IE As Object

Dim Cookies As Variant

Dim Cookie As String

Sub worklogin()

    Dim strWorkID As String, strWorkPW As String

    Dim PostData As String, T As String

    strWorkID = "아이디"

    strWorkPW = "비밀번호"

    PostData = ""

    PostData = PostData & "redirectUrl=%2FseekWantedMain.do&"

    PostData = PostData & "lgovCustId=&"

    PostData = PostData & "ifOrgCd=&"

    PostData = PostData & "redirectEncodeYn=&"

    PostData = PostData & "custClcd=P&"

    PostData = PostData & "custId=" & strWorkID & "&"

    PostData = PostData & "pwd=" & strWorkPW & "&"

    PostData = PostData & "x=70&"

    PostData = PostData & "y=14"

    Set IE = CreateObject("WinHttp.WinHttpRequest.5.1")

    With IE

        .Open "POST", "https://www.work.go.kr/member/login.do"

        .SetRequestHeader "Host", "www.work.go.kr"

        .SetRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 10.0; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/47.0.2526.73 Safari/537.36"

        .SetRequestHeader "Accept", "text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8"

        .SetRequestHeader "Accept-Language", "ko-KR,ko;q=0.8,en-US;q=0.5,en;q=0.3"

        .SetRequestHeader "DNT", "1"

        .SetRequestHeader "Referer", "http://www.work.go.kr/member/bodyLogin.do?redirectUrl=/seekWantedMain.do"

        If Len(Cookie) Then .SetRequestHeader "Cookie", Cookie

        .SetRequestHeader "Connection", "keep-alive"

        .SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"

        .SetRequestHeader "Content-Length", Len(PostData)

        .Send PostData

        .WaitForResponse: DoEvents

        Cookie = Join(SetCookie(.GetAllResponseHeaders), "; ")

        T = .ResponseText

    End With

    If InStr(Cookie, "로그인 세션값") Then

        '// 로그인 성공

    Else

        '// 로그인 실패

    End If

    '// 또는

    If InStr(T, "로그아웃") Then

        '// 로그인 성공

    Else

        '// 로그인 실패

    End If

End Sub

Public Function SetCookie(Cookie As String) As Variant

    Dim V As Variant, i As Integer, n As Integer, r As Integer

    V = Split(Cookie, "Set-Cookie: ")

    For i = 1 To UBound(V)

        V(i) = Split(V(i), ";")(0)

    Next

    If TypeName(Cookies) = "Empty" Then

        r = -1

        ReDim Cookies(0 To 0)

        Cookies(0) = "="

    Else

        r = UBound(Cookies)

    End If

    For i = 1 To UBound(V)

        For n = 0 To UBound(Cookies)

            If Split(V(i), "=")(0) = Split(Cookies(n), "=")(0) Then

                Cookies(n) = V(i)

                Exit For

            End If

        Next

        If UBound(Cookies) < n Then

            r = r + 1

            ReDim Preserve Cookies(0 To r)

            Cookies(r) = V(i)

        End If

    Next

    SetCookie = Cookies

End Function

2017.02.05.

채택
질문자가 채택한 답변입니다.

도움이 되었다면 UP 눌러주세요!
UP이 많은 답변일수록 사용자들에게 더 많이 노출됩니다.

공식블로그 바로가기

NAVER

지식iN

검색영역

메인 메뉴