[VB] 다음 로그인 소스

Function DaumLogin(id As String, Pw As String) As Boolean

winhttp.Open "POST", "https://logins.daum.net/accounts/login.do?slogin=2", True

winhttp.SetRequestHeader "Host", "logins.daum.net"

winhttp.SetRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 6.1; WOW64; rv:16.0) Gecko/20100101 Firefox/16.0"

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

winhttp.SetRequestHeader "Referer", "https://logins.daum.net/accounts/loginform.do"

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

winhttp.Send "id=" & id & "&pw=" & Pw

winhttp.WaitForResponse

 

If InStr(winhttp.ResponseText, "Daum 로그인 오류") = 0 Then

 

Login = True

Else

Login = False

 

End If

 

End Function