Facebookの友達の誕生日を祝う 

Facebookの友達で今日誕生日の人を探し，メッセージを送る．

Facebookアカウントに接続し，友達のユーザIDをリクエストする．

In[1]:=

X facebook = ServiceConnect["Facebook", "New"]

Out[1]=

In[2]:=

X ids = facebook["FriendIDs"];

友達の誕生日を取得する．

In[3]:=

X birthdays = DeleteMissing[(# -> facebook["Birthday", "UserID" -> #]) & /@ ids];

今日が誕生日の友達のIDを取得する．

In[4]:=

X birthdays = MapAt[DateString[#, {"Month", "Day"}] &, birthdays, {All, 2}];

In[5]:=

X todaysBirthdayIds = Cases[birthdays, (id_ -> DateString[Today, {"Month", "Day"}]) :> id]

Out[5]=

友達に誕生祝のメッセージを投稿する．

In[6]:=

X todaysBirthdayNames = facebook["FullName", "UserID" -> #] & /@ todaysBirthdayIds

Out[6]=

In[7]:=

X SendMessage[facebook, "Happy Birthday to " <> #] & /@ todaysBirthdayNames

Out[7]=