By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
431,805 Members | 1,270 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 431,805 IT Pros & Developers. It's quick & easy.

Log in help..

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

Expand|Select|Wrap|Line Numbers
  1. Private Sub Form_Load()
  2. sckServer.LocalPort = "30001"
  3. sckServer.Listen
  4. End Sub
  5.  
  6. Private Sub sckserver_ConnectionRequest(ByVal requestID As Long)
  7. sckServer.Close
  8. sckServer.Accept requestID
  9. sckServer.SendData "Connected"
  10. End Sub
  11.  
  12. Private Sub sckServer_DataArrival(ByVal bytesTotal As Long)
  13. Dim buffer As String
  14. sckServer.GetData buffer
  15. MsgBox buffer
  16. End Sub
  17.  
  18. Private Sub connect_Click()
  19. sckClient.connect "game.habbo.fi", "30001"
  20. End Sub
  21.  
  22. Private Sub sckClient_DataArrival(ByVal bytesTotal As Long)
  23. Dim buffer As String
  24. sckClient.GetData buffer
  25. MsgBox buffer
  26. sckClient.SendData "Client"
  27. End Sub
  28.  
I have 2 textboxes, text1 and text2 and then "connect" button and a winsock control for sck's of course
Sep 14 '07 #1
Share this question for a faster answer!
Share on Google+

Post your reply

Sign in to post your reply or Sign up for a free account.