트위터 팔로잉 소스
아유미
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
--------------------------------------------------------
위에 저건데 계속 안된다고만하네요분명이 적어야할꺼 다적엇는데
이거 말고 예제 소스 있으신분 좀 주시면 안되나요?
-
목소리
난저거 안되던데?
번호 | 제 목 | 글쓴이 | 날짜 |
---|---|---|---|
2670034 | 텍스트박스랑 로그인하는거 질문 (5) | 이하얀 | 2024-09-29 |
2670010 | 이런거어따써먹어요?ㅠㅠ (3) | 단순랩퍼 | 2024-09-29 |
2669983 | VB 설치 질문! (1) | 도움 | 2024-09-28 |
2669953 | 영어로된 글자를 한글로 바꾸기 있나여? | 파라나 | 2024-09-28 |
2669900 | 이런식으로 된 예제소스좀... (1) | 딥와인 | 2024-09-28 |
2669844 | 다시 질문!! 이거아시는분? (2) | 다힘 | 2024-09-27 |
2669816 | 2개의 폼(Form) 같이움직이기... 가능한가요?? (4) | 리네 | 2024-09-27 |
2669792 | HTML태그를 VB에서 입력하면 출력되게 할 수 없나요,..? (1) | 모아 | 2024-09-27 |
2669697 | 제발빠른답변좀-_-;; 프로세스감지 질문합니다.(FindWindow방법말고는 확장자도붙여서할수있는법은없나요?) | 이솔 | 2024-09-26 |
2669666 | 아오 winhttp 공백 =ㅅ= | 아이폰 | 2024-09-25 |
2669636 | 미치겠네 왜이러지 ?? | 리리 | 2024-09-25 |
2669582 | 미디어플레이어에서 재생을 눌러야 음악이 나오게 할수없나요? (3) | 뿡뿡몬 | 2024-09-25 |
2669530 | while문 일시정지 (2) | 연블랙 | 2024-09-24 |
2669505 | 웹호스팅 (1) | 맛조이 | 2024-09-24 |
2669475 | 음악재생기만드는데 이것좀 봐주세영!!!!!!!! | 목향 | 2024-09-24 |
2669427 | winsock질문해봅니다 (다중) (2) | 안녕나야 | 2024-09-24 |
2669343 | 카운트다운!! | 레온 | 2024-09-23 |
2669310 | 저기 winsock 연결되고 나서 ...[ 해결 ] | 비 | 2024-09-23 |
2669265 | 메일내용. | 무리한 | 2024-09-22 |
2669240 | 꼭 봐주세요! (1) | 일진오빠 | 2024-09-22 |