수다닷컴

Function Follow(WinHTTP As WinHttpRequest, ByVal pid As String, ByVal id As String, ByVal Token As String) As Boolean id = UrlEncode(id) WinHTTP.Open GET, http://api.twitter.com/1/friendships/show.json?source_id= & pid & &target_screen_name= & id, True WinHTTP.Send WinHTTP.WaitForResponse Dim Output As String Output = StrConv(WinHTTP.ResponseBody, vbUnicode) If InStr(Output, id_str) Then Output = Mid$(Output, InStr(Output, id_str)) Output = Mid$(Output, InStr(Output, :) + 2) Output = Left$(Output, InStr(Output, ) - 1) End If Dim mID_ As String mID_ = Output WinHTTP.Open POST, http://api.twitter.com/1/friendships/create.json, True WinHTTP.SetRequestHeader X-Phx, true WinHTTP.SetRequestHeader X-Requested-With, XMLHttpRequest WinHTTP.SetRequestHeader Content-Type, application/x-www-form-urlencoded WinHTTP.Send user_id= & mID_ & &post_authenticity_token= & Token WinHTTP.WaitForResponse Output = StrConv(WinHTTP.ResponseBody, vbUnicode) If InStr(Output, error) Then Follow = False Else Follow = True End IfEnd Function
--------------------------------------------------------
위에 저건데 계속 안된다고만하네요분명이 적어야할꺼 다적엇는데
이거 말고 예제 소스 있으신분 좀 주시면 안되나요?

신청하기