my Chat server
my Chat server
my Chat server
my Chat server
my Chat server
my Chat server my Chat server my Chat server my Chat server my Chat server my Chat server my Chat server my Chat server
my Chat server my Chat server
my Chat server
Go Back  Xtreme Visual Basic Talk > > > my Chat server


Reply
 
Thread Tools Display Modes
  #1  
Old 01-29-2004, 10:25 PM
VB6Newbie VB6Newbie is offline
Contributor
 
Join Date: Apr 2002
Location: New York
Posts: 610
Default my Chat server


can somebody plz have a look at this .. its a chat server.. holds up to 10 users in a chat room.. there are little bugs in it.. and its crashing and sometimes it wont allow a connection and it wont connect.. but sometimes it will connect fine.. also have a look at my ping/pong.. basicly thats like the ping/pong used in irc servers.. i use it to make sure the user is still there..

here is a chunk of the code.. the part that makes the connection and opens the next winsock.. i think this is where the problem lies..
Code:
Private Sub WS_ConnectionRequest(Index As Integer, ByVal requestID As Long) Dim x As Integer If WS(Index).State <> 2 Then GoTo startnext WS(Index).Close WS(Index).Accept requestID CurWs = Index TmrTimeout.Enabled = True DoEvents TickReplyed(Index) = True If WS(Index).State = 7 Then WS(Index).SendData "3 <Server>: " & DailyNote Sleep 200 DoEvents 'MsgBox WS(Index).State startnext: Do Until WS(x).State = 0 If WS(x).State <> 0 Or 2 Or 7 Then WS(x).Close If x = 10 Then x = -1 x = x + 1 DoEvents Loop If WS(Index).State <> 7 Then WS(Index).Close DoEvents WS(x).Listen DoEvents End Sub
Attached Files
File Type: zip server.zip (3.7 KB, 17 views)
__________________
Try to help newbies as much as you can.... Remember you were once a newbie..... and somebody helped You....

Last edited by VB6Newbie; 01-29-2004 at 10:57 PM.
Reply With Quote
  #2  
Old 01-30-2004, 09:06 AM
reboot's Avatar
rebootmy Chat server reboot is offline
Keeper of foo

Retired Moderator
* Guru *
 
Join Date: Nov 2001
Location: Graceland
Posts: 15,614
Default

Did you post this in .Net on purpose?
Reply With Quote
Reply


Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)
 
Thread Tools
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is Off
HTML code is Off

Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
Web- Based Chat server (Geocities) psycofella Communications 1 08-23-2003 01:01 PM
chat server shawn Communications 3 06-19-2003 02:23 AM
simple client server chat prob chibishmoo Communications 3 06-17-2003 09:14 PM
programming for IRC with VB tutorial crazycheetah Tutors' Corner 0 05-04-2003 06:15 PM
Chat Program Server taj134 General 0 06-19-2001 08:31 AM

Advertisement:





Free Publications
The ASP.NET 2.0 Anthology
101 Essential Tips, Tricks & Hacks - Free 156 Page Preview. Learn the most practical features and best approaches for ASP.NET.
subscribe
Programmers Heaven C# School Book -Free 338 Page eBook
The Programmers Heaven C# School book covers the .NET framework and the C# language.
subscribe
Build Your Own ASP.NET 3.5 Web Site Using C# & VB, 3rd Edition - Free 219 Page Preview!
This comprehensive step-by-step guide will help get your database-driven ASP.NET web site up and running in no time..
subscribe
my Chat server
my Chat server
my Chat server my Chat server
my Chat server
my Chat server
my Chat server my Chat server my Chat server my Chat server my Chat server my Chat server my Chat server
my Chat server
my Chat server
 
my Chat server
my Chat server
 
-->