수다닷컴

오랜만에 집에와서 회원추출후 List에 있는 회원들한테 쪽지보내는 프로그램을 제작중인데요..

회원을 List1에 출력하는거 까진됐어요...

근대이젠 List1에 에있는 아이디로 하나하나 쪽지를 보내야되는데

맨위에있는 사람한테만 쪽지가 가더라구요...

소스는 아래처럼 코딩했습니다.

For a = 0 To List1.ListCount - 1

Winhttp.Open POST, http://note.naver.com/json/write/send/
Winhttp.SetRequestHeader Content-Type, application/x-www-form-urlencoded; charset=utf-8
Winhttp.SetRequestHeader Referer, http://note.naver.com/
Winhttp.Send svcType=undefined&svcId=&svcName=&isReplyNote=0&targetUserId= & List1.List(a) & &content= & Subject & &isBackup=1&svcCode=1042070279&token=MTM2NzYzMzIwMTk2NnZiX3NvZnR3YXJl&u= & ID

If InStr(StrConv(Winhttp.ResponseText, vbUnicode), 쪽지를 성공적으로 보냈습니다) Then
List2.AddItem List1.List(i) & 계정으로 쪽지를 전송 실패 하였습니다
Else
List2.AddItem List1.List(i) & 계정으로 쪽지를 전송하였습니다
End If
Next a

그리고 쪽지를 전송하면 맨위에있는 아이디로만 쪽지가 전송되는데 왜그러나요 ?

신청하기