In Chrome, tweet with selected text which contained the title and the URL of the page from Tweetbot app.

gistfile1.applescript

on run (input)
  tell application "Google Chrome"
    set theURL to URL of active tab of first window
    set theTitle to title of active tab of first window
    set theData to theTitle & " " & theURL & " #「" & input & "」" as string
  end tell

  activate application "Tweetbot"
  tell application "System Events" to tell process "Tweetbot"
    click menu item "New Tweet" of menu 1 of menu bar item "Tweet" of menu bar 1
    set value of text area 1 of scroll area 1 of window 1 to (theData as text)
  end tell
end run