

property user : "あなたのユーザ名" property pass : "パスワード" tell application "Finder" set friend to text returned of (display dialog "『あの人』のユーザ名を入力してください。" default answer "") as string try --set scpt to "curl --user \"" & user & ":" & pass & "\" -L \"http://twitter.com/friendships/exists.json?user_a=" & friend & "&user_b=" & user & "\"" set scpt to "curl -L \"http://api.twitter.com/1/friendships/exists.json?user_a=" & friend & "&user_b=" & user & "\"" set ret to do shell script scpt on error my myError() end try set mes to "『" & friend & "』さんは、あなたをfollowして" if ret is "true" then display dialog mes & "います。" buttons "OK" default button 1 else if ret is "false" then display dialog mes & "いません。" buttons "OK" default button 1 with icon 2 else my myError() end if end tell on myError() activate me display dialog "ユーザ名を正しく入力してください。" buttons "OK" default button 1 error number -128 end myError











