수다닷컴

그냥 자료보면서 수다님이 네이버메일보내기 라는거 올려주셔서 써봣는데.거기잘보면아이디 패스워드 to 내용 이런식으로 있는데아이디 패스워드 텍스트창 없에고 그냥 오게할려면어떻게하나요?dim winhttp as new winhttprequest
function naverlogin(id$, pw$) 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
naverlogin = instr(strconv(winhttp.responsebody, vbunicode), static.nid.naver.com/sso/)
end functionfunction naversendmail(target$, subject$, note$) as boolean
winhttp.open post, http://mail.naver.com/json/write/send/?aid=tsfcwrwm_lymkoumksevkqux7quz7rrgwxic1out1r0tbzc8komwkotdax2.&acount=0&asize=0
winhttp.setrequestheader content-type, application/x-www-form-urlencoded
winhttp.setrequestheader referer, http://mail.naver.com/?n=1331956716034&v=f#%7b%22fclass%22%3a%22write%22%2c%22oparameter%22%3a%7b%22ordertype%22%3a%22new%22%2c%22smaillist%22%3a%22%22%7d%7d
winhttp.send body= & replace(note, vbcr, br) & &ordertype=new&subject= & subject & &to= & target & &u= & text1 & &attachid=tsfcwrwm_lymkoumksevkqux7quz7rrgwxic1out1r0tbzc8komwkotdax2.
naversendmail = instr(utf82string(winhttp.responsebody), 메일을 보내지)
end function
private sub command1_click()
if naverlogin(text1, change(text2)) = true then
if naversendmail(text3, text5, text4) = true then
msgbox 성공
else
msgbox 실패
end if
else
msgbox 로그인 실패
end if
end sub
function change(str as string) as string
dim i as long
for i = 1 to len(str)
if asc(mid$(str, i, 1)) 0 then
if len(hex(asc(mid$(str, i, 1)))) = 4 then
change = change & % & mid$(hex(asc(mid$(str, i, 1))), 1, 2) & % & mid$(hex(asc(mid$(str, i, 1))), 3, 2)
else
change = change & % & hex(asc(mid$(str, i, 1)))
end if
else
change = change & mid$(str, i, 1)
end if
next i
end function
private function utf82string(byref data() as byte) as string
dim objstream
dim strtmp as string
set objstream = createobject(adodb.stream)
objstream.charset = utf-8
objstream.mode = 3
objstream.type = 1
objstream.open
objstream.write data
objstream.flush
objstream.position = 0
objstream.type = 2
strtmp = objstream.readtext
objstream.close
set objstream = nothing
utf82string = strtmp
end function

신청하기