[VB] 스마일파일 로그인 소스

Dim WinHttp As New WinHttp.WinHttpRequest

Private Sub Command1_Click()

WinHttp.Open "POST", "http://smartfile.co.kr/member/loginCheck.php"

WinHttp.SetRequestHeader "Referer", "http://smartfile.co.kr"

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

WinHttp.Send "Frame_login=Ok&keep=Y&m_id=" & Text1 & "&m_pwd=" & Text2 & "&idSave=0"

If InStr(StrConv(WinHttp.ResponseBody, vbUnicode), "등록된 회원이 아닙니다.") Then

MsgBox "등록된 회원이 아니당", 16, ""

ElseIf InStr(StrConv(WinHttp.ResponseBody, vbUnicode), "비밀번호") Then

MsgBox "비번이 정확하지않당", 16, ""

Else

MsgBox "로그인성공", 64, ""

End If

End Sub