Anti leecher code using winsock

I have anti-leecher code which able to login the form with using winsock coded in vb6. I manage to get the code but I couldn't get what exactly the HTTP headers
can anyone help me on my problem then I can attach my hacks smoothly as plan

THANKS IN ADVANCE

Code:

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

screen shoot here