수다닷컴

private sub command1_click()
winhttp.open post, https://nid.naver.com/nidlogin.login
winhttp.setrequestheader referer, http://static.nid.naver.com/login.nhn?svc=me&url=http%3a%2f%2fwww.naver.com&t=20120405
winhttp.setrequestheader content-type, application/x-www-form-urlencoded
winhttp.send id= & text1.text & &pw= & text2.text & &enctp=1&svctype=0&saveid=&smart_level=1
doevents
if instr(strconv(winhttp.responsebody, vbunicode), http://static.nid.naver.com/sso/cross-domain.nhn?sid=) then
else
msgbox 네이버에 가입해주세요, vbokonly, 이름
shell explorer https://nid.naver.com/user/join.html
exit sub
end if
winhttp.open get, 사이트주소
winhttp.send
if instr(winhttp.responsetext, 사이트가입하기) then
수다 사이트에 가입해주세요, vbokonly, 이름
shell explorer 사이트주소
exit sub
else
수다 사이트 로그인 성공!, vbokonly, 이름
end if
end sub이런식으로 테스트해봤는데멀티바이트 뭐시기 뜰떄도있고네이버가입하라는거뜰때도있다가사이트로그인성공이래서사이트탈퇴하고 다시 해봤는데 또 성공이래요;;

신청하기