MBS Xojo Developer Conference and Training
Join us from 3rd to 6th May 2017 in Berlin, Germany.

MBS Real Studio Plugin Tutorial Videos

AppleScriptChat Source

Class App
Inherits Application
// Constants
Const kFileQuitShortcut = Ctrl+Q
Const kFileQuit = E&xit
Const kEditClear = &Delete
End Class

Class Window1
Inherits Window
// Controls
ControlInstance
Sub Action() Handles Event
dim lines(-1) as string

lines.Append "tell application ""iChat"""
lines.Append "set mychats to text chats"
lines.Append "set mychat to first item in mychats"
lines.Append "send """+Message.Text+""" to mychat"
lines.Append "return ""OK"""
lines.Append "end tell"

dim a as new AppleScriptMBS

a.Compile Join(lines,EndOfLine.Macintosh)
a.Execute

result.Text = a.Result

End Sub
End ControlInstance
ControlInstance
End ControlInstance
ControlInstance
End ControlInstance
ControlInstance
End ControlInstance
End Class


All movies




Links
MBS Xojo Plugins