Log in help..

[über]

Well I try to make connection to "game.habbo.fi" , port "30001" with login what's the login form? (VB6)

[CODE=vb]
Private Sub Form_Load()
sckServer.Local Port = "30001"
sckServer.Liste n
End Sub

Private Sub sckserver_Conne ctionRequest(By Val requestID As Long)
sckServer.Close
sckServer.Accep t requestID
sckServer.SendD ata "Connected"
End Sub

Private Sub sckServer_DataA rrival(ByVal bytesTotal As Long)
Dim buffer As String
sckServer.GetDa ta buffer
MsgBox buffer
End Sub

Private Sub connect_Click()
sckClient.conne ct "game.habbo.fi" , "30001"
End Sub

Private Sub sckClient_DataA rrival(ByVal bytesTotal As Long)
Dim buffer As String
sckClient.GetDa ta buffer
MsgBox buffer
sckClient.SendD ata "Client"
End Sub
[/CODE]I have 2 textboxes, text1 and text2 and then "connect" button and a winsock control for sck's of course