TinyRoulette - an AppleScript for chaotic browsing

Mar 03, '04 10:50:00AM

Contributed by: orpy

I wrote this script (and a couple of other variations) to see what other people are using URL shortening services for. The script simply generates random strings of four characters and then opens a new browser window and connects to the tinyurl site to see if the URL can be resolved to a web page.

set myString to "abcdefghijklmnopqrstuvwxyz1234567890"
set searchString to ""
repeat until (count of items in searchString) is equal to 4
  set i to some item of myString
  set searchString to searchString & i
end repeat

set myURL to "http://tinyurl.com/" & searchString

tell application "Safari"
  activate
  make new document
  set the URL of document 1 to myURL
end tell

set the clipboard to searchString
If you find a really interesting site you can retrieve the original string from the clipboard. This script is best used from the "Script Menu." I've also written a javascript version that you can access by dragging this link to your Safari bookmarks bar and then clicking whenever you want a random page loaded.

Comments (10)


Mac OS X Hints
http://hints.macworld.com/article.php?story=20040225110724699