수다닷컴

private sub cmdsend_click()
if txtid.text = vbnullstring or txtpw.text = vbnullstring then exit sub
if naver_login(txtid.text, txtpw.text) then
msgbox 로그인 성공
else
msgbox 다시 로그인하세요 아저씨
end if
call sendmail(txtsub.text, txtbody.text, txtto.text)
msgbox 보냈다 아그야.
end sub
private function naver_login(id as string, pw as string) as boolean
winhttp.open post, http://nid.naver.com/nidlogin.login
winhttp.setrequestheader referer, https://nid.naver.com/nidlogin.login
winhttp.setrequestheader content-type, application/x-www-form-urlencoded
winhttp.send enctp=2&svctype=0&id= & id & &pw= & pw
doevents
if instr(1, strconv(winhttp.responsebody, vbunicode), location.replace) then
naver_login = true
else
naver_login = false
end if
end function

-------------------------------------------------------------------------------------------------------------------수다님께 감사드리며 질문 하나더 올려봅니다.
제가 다행히 그 네이버로그인은 해결 했는데...
콜 센드메일(빨간부분이 또 문제네여 컴파일오류...)
이번에도 답변좀 부탁드립니당.
(__)꾸벅

신청하기