Navigation

I received an email from Quotaless the other day:

Our Quotaless Users,



An estranged man, by the name of Jaimie Baillie recently
tried to illegally hack into our server database after a
failed attempt to have Quotaless.com removed from the
internet. I did some research on this man, and it turns
out he is a convicted pedophile who lives in Canada. I
also found his account at Quotaless to contain Child
Pornography. His account has been terminated, and I
assure you your account at Quotaless, is of course, safe.



His address is:



n-nn S_______ Blvd

North York, ON

Canada, M6A 2G5 


After this email is sent, he will try to have my personal
site shutdown, but that won't stop me. He has hurt you
guys, our users, and he has hurt several innocent
children. He has been reported to Law Enforcement
agencies, but let's not stop there. Let's make this man
regret what he has done. He put all of you at risk.



Best Regards,



Daniel J. Gagnon

Director, Server Operations & Security

Chief Technical Officer

Quotaless.com

I'd say that sending this email is pretty unprofessional, not to mention the inproper format of the mail. Exposing an opponent's home address is pointless, unless your intention is to induce harrassment to the person. As uncivilized as the cyber space is, we don't want to see bringing an cyber fight to the main street!

In a medical device software I'm currently developing, I need a popup window animating like the windows poping up from the task bar. After some experiment, I got the following that works satisfactorily.

    Private Sub Form1_MouseClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseClick
        Dim screen = PointToScreen(e.Location)
        Dim dlg As Dialog1 = New Dialog1
        dlg.Opacity = 0.4
        Dim size As Size = dlg.Size
        Dim top As Integer
        Dim left As Integer
        dlg.Enabled = False
        For s As Single = 0.1 To 1.0 Step 0.1
            top = screen.y - size.Height * s
            left = screen.x + 10 * s
            If top < 0 Then
                top = 0
            End If
            'If left > Parent().Right - 10 Then
            '    left = Parent().Right - 10
            'End If
            dlg.Bounds = New Rectangle(left, top, s * size.Width, 20)
            If dlg.Enabled = False Then
                dlg.Enabled = True
                dlg.Show(Me)
            Else
                dlg.Refresh()
            End If
            System.Threading.Thread.Sleep(16)
        Next s
        top = screen.y - size.Height
        left = screen.x + 10
        If top < 0 Then
            top = 0
        End If
        'If left > Parent().Right - 10 Then
        '    left = Parent().Right - 10
        'End If
        dlg.Bounds = New Rectangle(left, top, size.Width, size.Height)
        dlg.Opacity = 1.0
        dlg.Refresh()
    End Sub