Anti leecher code using winsock

Private Sub cmdLogin_Click()

With W
    .Close
    .RemoteHost = "www.mpgh.net"
    .RemotePort = "80"
    .Connect

End With
End Sub

Private Sub W_Connect()

Dim Packet As String
Dim Post As String


Post = "vb_login_username" & txtUser.Text & "&vb_login_password" & txtPass.Text & "&cookieuser=1&s=securitytoken=guest&do=login"
'Post = "vb_login_username" & txtUser.Text & "&vb_login_password" & txtPass.Text & "&cookieuser=8b6004c1a08517f3d57b438051b52e91=securitytoken=d54fcd42608c0f7eb4ad43b51b9ba7fcc1349720445=login"

Packet = Packet & "POST / HTTP/1.1" & vbNewLine
Packet = Packet & "Host: www.mpgh.net" & vbNewLine
Packet = Packet & "Connection: close" & vbNewLine
Packet = Packet & "User-Agent: Mozilla/5.0 (Macintosh; U; Intel Mac OS X; de-de) AppleWebKit/523.10.3 (KHTML, like Gecko) Version/3.0.4 Safari/523.10" & vbNewLine
Packet = Packet & "Accept -Encoding: gzip" & vbNewLine
Packet = Packet & "Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8" & vbNewLine
Packet = Packet & "Accept-Language: en-US,en;q=0.8" & vbNewLine
Packet = Packet & "Accept-Charset: ISO-8859-1,UTF-8;q=0.7,*;q=0.7" & vbNewLine
Packet = Packet & "Cache-Control: no-cache" & vbNewLine
Packet = Packet & "Content-type: application/x-www-form-urlencoded" & vbNewLine
Packet = Packet & "Content-length: " & Len(Post) & vbNewLine & vbNewLine & Post

If W.State = 7 Then W.SendData Packet

End Sub

Private Sub W_DataArrival(ByVal bytesTotal As Long)

Dim data As String

If W.State = 7 Then W.PeekData data
    txtData.Text = data
    
    If InStr(data, "You have entered invalid username and password.") Then
        MsgBox "invalid login"
            ElseIf InStr(data, "Thank you for loggin in, ") Then
                  MsgBox "You are login as " & txtUser.Text
End If
End Sub

Private Sub W_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)

W.Close
MsgBox "ERROR !!!", vbExclamation, "ERROR"
End Sub