Robs Programming Junk

• Don't do this if you're going to get your butt chewed.
• Don't blame me if you do.
• Make sure you encapsulate your code in try blocks and throw out exceptions. Then you don't have to worry about someone inadvertently finding your Easter Egg and pointing out the bug.
• I used the #region preprocessor to hide the code. I used something like EE and then hid it in an obscure place in the code. It's unlikely another developer is going to find it at a later date unless they notice it. Generally if they do they'll leave it there anyhow after laughing at it.

If someone does use this code, I'd REALLY like to know. I had a few laughs putting this in place.

#Region "EE"
    ' Thanks Duncan! - http://www.duncanmackenzie.net/blog/Reading-An-Image-from-the-web/
    Function GetImageFromURL(ByVal url As String) As Byte()
        Dim wr As HttpWebRequest = _
           DirectCast(WebRequest.Create(url), HttpWebRequest)
        Dim wresponse As HttpWebResponse = _
           DirectCast(wr.GetResponse, HttpWebResponse)
        Dim responseStream As Stream = wresponse.GetResponseStream
        Dim br As BinaryReader = New BinaryReader(responseStream)
        Dim bytesize As Long = wresponse.ContentLength
        Return br.ReadBytes(bytesize)
    End Function
    Private Sub pbEE_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles pbEE.DoubleClick
        Try
            If pbEE.Tag Is Nothing Then
                pbEE.Tag = 0
            End If
            pbEE.Tag += 1
            If pbEE.Tag < 5 Then
                Exit Sub
            End If
            If pbEE.Image Is Nothing Then
                Dim enc As System.Text.UTF7Encoding
                Dim xmlDil As New Xml.XmlDocument
                Dim xmlNode As Xml.XmlNode
                Dim s As String = System.Text.Encoding.ASCII.GetString(GetImageFromURL("http://feeds.feedburner.com/tapestrydilbert.xml"))
                xmlDil.LoadXml(s)
                xmlNode = xmlDil.SelectSingleNode("/rss/channel/item/enclosure")
                Debug.WriteLine(xmlNode.Attributes.GetNamedItem("url").InnerText)
                pbEE.Image = New Bitmap(New IO.MemoryStream(GetImageFromURL(xmlNode.Attributes.GetNamedItem("url").InnerText)))
            Else
                pbEE.Image = Nothing
                pbEE.Refresh()
                Dim canvas As Graphics = pbEE.CreateGraphics
                canvas.Clear(pbEE.BackColor)
                canvas.DrawString("Congratulations, you found the easter egg!", _
                New Font("Arial", 12, FontStyle.Bold, GraphicsUnit.Point), _
                New SolidBrush(Color.DarkRed), 1, 1)
                canvas.DrawString("Software Developers for this application:",_
                New Font("Microsoft Sans Serif", 8.25, FontStyle.Regular, _
                GraphicsUnit.Point), New SolidBrush(Color.DarkBlue), 1, 40)
                canvas.DrawString("Robert Mech, Others...", _
                New Font("Microsoft Sans Serif", 8.25, FontStyle.Regular, _
                GraphicsUnit.Point), New SolidBrush(Color.DarkBlue), 1, 53)
                canvas.DrawString("Double-Click to get dilbert back.", _
                New Font("Microsoft Sans Serif", 8.25, FontStyle.Regular, _
                GraphicsUnit.Point), New SolidBrush(Color.Black), 1, 74)
                canvas.DrawString("Move the mouse out of the window to clear this screen.", _
                New Font("Microsoft Sans Serif", 8.25, FontStyle.Regular, _
                GraphicsUnit.Point), New SolidBrush(Color.Black), 1, 86)
                canvas.Dispose()
            End If
        Catch ex As Exception
            Debug.WriteLine(ex)
        End Try
    End Sub
    Private Sub pbEE_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles pbEE.MouseLeave
        Try
            pbEE.Image = Nothing
        Catch ex As Exception

        End Try
    End Sub
#End Region

# posted by Rob : 12/29/2006 11:00:00 AM