수다닷컴

http://login.nexon.com/login/page/nx.aspx?url=login/login&n4ErrorCode=1&redirect=http%3a%2f%2fwww.nexon.com%2fmain%2fpage%2fnx.aspx

넥슨 아이디 로그인 유무 확인 소스점여
=============================================================================
Set win = CreateObject(winhttp.winhttprequest.5.1)
win.Open POST, http://login.nexon.com/login/page/nx.aspx?url=login/login&n4ErrorCode=1&redirect=http%3a%2f%2fwww.nexon.com%2fmain%2fpage%2fnx.aspx, False
win.SetRequestHeader Referer, http://www.nexon.com/main/page/nx.aspx
win.SetRequestHeader Content-Type, application/x-www-form-urlencoded; charset=UTF-8
win.Send G:LoginContainer:txtNexonID= & Text2.Text & &G_LoginContainer_txtPassword_pass= & Text3.Text &

If InStr(StrConv(win.ResponseBody, vbUnicode), 로그인 오류) Then
MsgBox 로그인 실패, vbCritical, 오류
Text1.Text = StrConv(win.ResponseBody, vbUnicode)
Else
MsgBox 로그인 성공, vbInformation, 성공
Text1.Text = StrConv(win.ResponseBody, vbUnicode)

End If
==============================================================================
지금까지짠 소스인데 잘못된부분이나 추가할부분 지적좀!FORM style=MARGIN: 0px onsubmit=javascript:oCafeTagRead.updateArticleTag() method=post name=tagFormINPUT value=10226090 type=hidden name=clubid INPUT value=36543 type=hidden name=articleid INPUT value=4 type=hidden name=menuid /FORM

신청하기