페이스북 콕 찌르기 (facebook pokes)
2013.11.18
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/..