수다닷컴

private sub command1_click()
winhttp.open post, https://nid.naver.com/nidlogin.login
winhttp.setrequestheader referer, http://static.nid.naver.com/
winhttp.setrequestheader content-type, application/x-www-form-urlencoded
winhttp.send &id= & text1.text & &pw= & text2.text & enctp=2&enc&encnm=100007267&svctype=0&nvlong=&saveid=&smart_level=1
if instr(strconv(winhttp.responsebody, vbunicode), https://static.nid.naver.com/sso/cross-domain.nhn?sid=) then
msgbox 성공
unload me
form2.show
else
msgbox 로그인을 실패하였습니다, 아이디랑 비밀번호를 확인해주세요.
end if
end sub제가 만들려고한건

네이버아이디를 텍스트1에 치고
네이버비번을 텍스트2에치면 네이버에 로그인이 되며 제가 만들던파일안에 사이트채팅방바로가기 등등 기능을 넣을라그러는데
f5를 누르고 네이버아이디 비번을 쳐보니깐 런타임 오류뜨던데;;; 잘못된부분이 잇나여?

신청하기