That coding doesn't really help, as how would I send login data/request to a cpanel to a forum?

Example this is the coding i got:

Private Sub tmrGetSong_Timer()
On Error Resume Next
Dim X As String, s() As String
WinAmp32.WinAmpCurrentMP3
If Label1.Caption = WinAmp32.WinAmpCurrentMP3 Then Exit Sub
X = WinAmp32.WinAmpCurrentMP3
If InStr(1, X, "-") > 0 Then
s = Split(X, "-", 2)
lblArtist.Caption = s(0)
Label1.Caption = s(1)
Else
Label1.Caption = X
End If

Winsock1.Connect "vbforums.com", "80"
End Sub

Private Sub Winsock1_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)
If Number = 11004 Then
Winsock1.SendData "gthkane"
Winsock1.SendData "******"
End If
End Sub

and that doesn't work, any ideas on how to get it to work better?