수다닷컴

수다님 소스를 참고하여 짰습니다.
그런대 사이트용으로 만들었을 때는 잘 되던데요.
싸이x드로 하려니 안되네요.

어디가 문제점인지 모르겠어요. httppox로 모두 입력 하였습니다.
명쾌한 답변 부탁 드리겠습니다 !

--------------------------

dim winhttp as new winhttp.winhttprequest

public function change(str as string) as string
for i = 1 to len(str)
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
next
end function

public function cywrite(cy_num as string, cy_id as string, cy_name as string, cy_pw as string, cy_body as string) as string

winhttp.open get, http://www.cyworld.com/ & cy_id
winhttp.send

dim numberm, idm, namem, passwordm, bodym

numberm = cy_num: idm = change(cy_id): namem = change(cy_name): passwordm = change(cy_pw): bodym = change(cy_body): bodym = replace(bodym, vbcrlf, br):

winhttp.open post, http://minihp.cyworld.com/articlepost.nhn
winhttp.setrequestheader referer, http://minihp.cyworld.com/pims/visitbook/visitbook_list.asp?tid= & number & &urlstr=bang
winhttp.setrequestheader content-type, application/x-www-form-urlencoded
winhttp.send vcont= & bodym & &tid= & numberm & &breply=1&search_keyword=&search_type=0&cate_type=0&season_no=100&card_no=1&secret_ment=&vavatartype=f&vavatarstoreseq=0&vavatarmotionseq=3&p_name= & namem & 5d&p_passwd= & passwordm & &content_minime= & bodym & &content_card=&deco_type=1&is_secret=0&x=19&y=11

msgbox 완료
end function

신청하기