MBS Real Studio Plugin Tutorial Videos

AppleScript 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 a as AppleScriptMBS
      dim script as string
      
      a=new AppleScriptMBS
      
      script="tell application ""iTunes"" to play"
      
      a.Compile Script
      if a.Lasterror<>0 then
        MsgBox "Apple Script error: "+str(a.Lasterror)+EndOfLine+EndOfLine+a.Error.BriefMessage
      end if
      
      'MsgBox a.Source
      
      a.Execute
      
      if a.Lasterror<>0 then
        MsgBox "Apple Script error: "+str(a.Lasterror)+EndOfLine+EndOfLine+a.Error.BriefMessage
      end if
      
    End Sub
  End ControlInstance
  ControlInstance
    Sub Action() Handles Event
      dim a as AppleScriptMBS
      dim script as string
      
      a=new AppleScriptMBS
      
      script="tell application ""iTunes"" to pause"
      
      a.Compile Script
      a.Execute
      
      
    End Sub
  End ControlInstance
End Class


 

All movies

Links
MBS REAL studio tutorial videos - Nachhilfe in Plaidt

• Sitemap
• Feedback / Questions
• Links
• Kontakt / Impressum
• Contact us