08/09/11 17:23:42 /6H6+nCY0
>>733
property user : "user" --ユーザーID
property passwd : "pswd" --パスワード
property serverRoot : "fURLﾘﾝｸ(sxx.coreserver.jp)" --サーバー
property theFile : "/temp.png" --ファイル名
property Interval : 30 --実行間隔(秒)
global myScript
on run
set dirList to {"/", "/html", "/img"} --アップロード先のディレクトリを３つ設定
set str to "1. " & 1st item of dirList & return & "2. " & 2nd item of dirList & return & "3. " & 3rd item of dirList
display dialog serverRoot & return & return & "Please select upload delectory" & return & str buttons {"1", "2", "3"} default button 1
set num to button returned of result
set destDir to serverRoot & item num of dirList
if last character of destDir is not "/" then
set destDir to destDir & "/"
end if
set myScript to "curl -T ¥"" & theFile & "¥" -u " & user & ":" & passwd & " " & destDir
end run
on idle
try
do shell script " screencapture -t png -x ¥"" & theFile & "¥""
set myResult to (do shell script myScript)
on error
display dialog "Shellscript Error" buttons {"OK"}
error number -128
end try
return Interval
end idle