Thanks to everyone for the comments.

@Carlo : Yes, you are right. My way of dealing with the URL was rather basic and certainly not bugproof. I have now improved the code with URLBuild:

ImgPlay2[x_?StringQ] := Module[{a, a2, b},
  Sow[x, "name"]; 
  a = Import[
    URLBuild[{"http://images.google.com/search"}, {"q" -> x}], 
    "Images"]; 
  If[Length[a] > 0, a2 = RandomChoice[a], 
   a2 = First@
     Import["http://images.google.com/search?q=mickey+mouse", 
      "Images"]]; Sow[a2, "Image"]; 
  b = CommonName@ImageIdentify[a2, SpecificityGoal -> "High"]; b]

@ Arnoud : From the list of entities you obtain, applying the ImgPlay function, and using ImageCollage, I get this picture of your office (I'm sure you can recognize it :-) ):

Exercise: figure out what fraction of buildings in the US don't overlook a McDonalds "restaurant".

Bonus points for using height of buildings and GeoVisibleRegion.

HI,

I've noticed you're using StringReplace to remove spaces from your URL. You might want to consider using something like URLEncode to escape the other non-safe characters.

In[7]:= URLEncode["èü/:%"]

Out[7]= "%C3%A8%C3%BC%2F%3A%25"

Or even URLBuild to directly construct the whole URL.

In[5]:= URLBuild[{"https://images.google.com/search"}, { 
  "q" -> "foo bar"}]

Out[5]= "https://images.google.com/search?q=foo+bar"

Nice!

Another fun one to play around with (requires a webcam):

cc = {};
Dynamic[{c = CurrentImage[], cc = Union[cc, {ImageIdentify[c]}]}]

Randomly pointing my webcam in different directions gives an array of identified entities (some quite reasonable and others less so):