유피디토링 블로그
Dim WINHTTP As New WINHTTP.WinHttpRequest Dim wCookie As String, wPoke As String, wPokeURL As String, wPokeNum As String Dim uID As String, uPW As String uID = "facebook id or phoneNumber" uPW = "facebook password" With WINHTTP .Open "GET", "https://www.facebook.com/", False .Send wCookie = Split(Split(.GetAllResponseHeaders(), "Set-Cookie: ")(1), " ")(0) .Open "POST", "https://www.facebook.com/login.php?login_attempt=1" .SetRequestHeader "Accept", "text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8" .SetRequestHeader "Referer", "https://www.facebook.com/" .SetRequestHeader "Content-Type", "application/x-www-form-urlencoded" .SetRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/31.0.1650.57 Safari/537.36" .SetRequestHeader "Cookie", wCookie .Send "lsd=AVrpld2j" & _ "&email=" & uID & _ "&pass=" & uPW & _ "&default_persistent=0&timezone=-540&lgnrnd=115906_YNTr&lgnjs=1381863561&locale=ko_KR" If InStr(.ResponseText, "https:\/\/fbstatic-a.akamaihd.net\/fbsbx\/fbsbx.php?1") Then If InStr(.ResponseText, "<div id=""poke_option"">") Then wPoke = Split(.ResponseText, "<div id=""poke_option"">")(1) wPokeNum = UBound(Split(wPoke, "나도 콕 찔러보기"))
For i = 1 To wPokeNum wPokeURL = Replace("https://m.facebook.com/pokes/inline/?dom_id_replace=" + Split(Split(wPoke, "/pokes/inline/?dom_id_replace=")(i), """><img src=""")(0), "amp;", "") .Open "GET", wPokeURL .SetRequestHeader "Cookie", wCookie .Send Next i Else MsgBox "콕 찌르신 분이 없습니다", vbInformation, "알림" End If Else MsgBox "로그인 실패" End If End With
:)콕 찌르기가 오면 자동으로 콕 찔러지는 부분은, 위의 소스에서 [wPokeURL] 부분 활용하여 하시면 되겠습니다.
그리고 프로젝트 > 참조(N) : Microsoft WinHTTP Service version 5.1 체크 해주세요.
다른언어로 사용하실 때는, HTTP 관련 부분을 참조하셔서, 사용하시면 되겠습니다!