Page 5 of 6 FirstFirst ... 23456 LastLast
Results 161 to 200 of 215

Thread: [VB6] - Multi-User Chat Example (Winsock)

  1. #161
    Junior Member
    Join Date
    Mar 2008
    Posts
    31

    Re: [VB6] - Multi-User Chat Example (Winsock)

    so has this just died or what

  2. #162
    Junior Member
    Join Date
    Mar 2008
    Posts
    31

    Re: [VB6] - Multi-User Chat Example (Winsock)

    so whats going on with this thread

  3. #163

    Thread Starter
    "Digital Revolution"
    Join Date
    Mar 2005
    Posts
    4,471

    Re: [VB6] - Multi-User Chat Example (Winsock)

    I'm not dead. I stopped programming for awhile.

    I still have the code on a backup drive...if I remember correctly, it's basically done, there was just a bug or two that needs to be fixed.

    I'll post it when I get around to it. I forgot about it entirely.

  4. #164
    Junior Member
    Join Date
    Mar 2008
    Posts
    31

    Re: [VB6] - Multi-User Chat Example (Winsock)

    was looking forward to seeing your final project. i've used yours and tweeked it to work with some of the programs iwe use in my office.

  5. #165
    Fanatic Member
    Join Date
    May 2004
    Posts
    566

    Re: [VB6] - Multi-User Chat Example (Winsock)

    would be cool to see, you find it?
    if you helped me, consider yourself thanked

  6. #166
    New Member
    Join Date
    Mar 2009
    Location
    Nairobi, Kenya
    Posts
    6

    Re: [VB6] - Multi-User Chat Example (Winsock)

    I have created a chat program, I hope that you guys like it
    Attached Files Attached Files

  7. #167
    New Member
    Join Date
    Mar 2009
    Location
    Nairobi, Kenya
    Posts
    6

    Re: [VB6] - Multi-User Chat Example (Winsock)

    vb Code:
    1. Attribute VB_Name = "modRooms"
    2. Global frmRooms() As New frmRoomChat
    3. Public strRoomsHide() As String
    4.  
    5. Dim roomIndex As Integer
    6.  
    7. Public Function UbRooms() As Long
    8.     On Error GoTo ErrorHandler
    9.     UbRooms = UBound(frmRooms)
    10.     Exit Function
    11. ErrorHandler:
    12.     UbRooms = -1
    13.     Exit Function
    14. End Function
    15.  
    16. Sub HandleUserLeavingRoom(Packet As String)
    17. '"ULV()Uname()Room<<"
    18. If InStr(1, Packet, Chr(2)) > 0 Then
    19.     Dim packetDetails() As String
    20.     Dim UserName As String
    21.     Dim Roomname As String
    22.     packetDetails() = Split(Packet, Chr(2))
    23.     UserName = packetDetails(1)
    24.     Roomname = packetDetails(2)
    25.     If RoomsHide_IsHiding(Roomname) = True Then ShowHiddenRoom Roomname
    26.     WriteMesssage frmRooms(roomIndex).rtbChat, vbNullChar, UserName & " has left the room.", vbMagenta
    27.     RemoveListItem frmRooms(roomIndex).lstRoomUsers, UserName, True
    28. End If
    29. End Sub
    30.  
    31. Sub HandleNewRoomUser(Packet As String)
    32. '"UJN()Uname()Room<<"
    33. If InStr(1, Packet, Chr(2)) > 0 Then
    34.     Dim packetDetails() As String
    35.     Dim UserName As String
    36.     Dim Roomname As String
    37.     packetDetails() = Split(Packet, Chr(2))
    38.     UserName = packetDetails(1)
    39.     Roomname = packetDetails(2)
    40.     If RoomsHide_IsHiding(Roomname) = True Then ShowHiddenRoom Roomname
    41.     WriteMesssage frmRooms(roomIndex).rtbChat, vbNullChar, UserName & " has entered the room.", vbMagenta
    42.     RemoveListItem frmRooms(roomIndex).lstRoomUsers, UserName, True
    43.     frmRooms(roomIndex).lstRoomUsers.AddItem UserName
    44. End If
    45. End Sub
    46.  
    47. Public Sub AddNewRoom()
    48.     ReDim Preserve frmRooms(UbRooms + 1)
    49. End Sub
    50.  
    51. Sub ShowHiddenRoom(Roomname As String)
    52.     Dim x As Integer
    53.     For x = 0 To UbRooms
    54.         If frmRooms(x).Caption = Roomname Then
    55.             frmRooms(x).Show
    56.             Exit Sub
    57.         End If
    58.     Next x
    59. End Sub
    60.  
    61. Public Sub ShowRoom(strRoomName As String)
    62.     Dim u As Integer
    63.    
    64.     u = UbRooms
    65.     If u > -1 Then
    66.         For roomIndex = 0 To u
    67.             If frmRooms(roomIndex).Caption = strRoomName Then
    68.                 frmRooms(roomIndex).Show
    69.                 Exit For
    70.             ElseIf frmRooms(roomIndex).Caption = "" Then
    71.                 frmRooms(roomIndex).Caption = strRoomName
    72.                 frmRooms(roomIndex).Show
    73.                 AddNewRoom
    74.                 Exit For
    75.             End If
    76.         Next roomIndex
    77.     End If
    78. End Sub
    79.  
    80. Public Function RoomsHide_IsHiding(ByRef Roomname As String) As Boolean
    81.     Dim l As Long, u As Long, s As String
    82.     u = RoomsHide_UBound
    83.     s = LCase$(Roomname)
    84.     If u > -1 Then
    85.         For l = 0 To u
    86.             If LCase$(strRoomsHide(l)) = s Then
    87.                 RoomsHide_IsHiding = True
    88.                 Exit For
    89.             Else
    90.                 RoomsHide_IsHiding = False
    91.             End If
    92.         Next l
    93.     End If
    94. End Function
    95.  
    96. Public Function RoomsHide_UBound()
    97.     On Error GoTo ErrorHandler
    98.     RoomsHide_UBound = UBound(strRoomsHide)
    99.     Exit Function
    100. ErrorHandler:
    101.     RoomsHide_UBound = -1
    102.     Exit Function
    103. End Function
    104.  
    105. Public Sub RoomsHide_Add(ByRef Roomname As String)
    106.     Dim u As Long
    107.     u = RoomsHide_UBound + 1
    108.     ReDim Preserve strRoomsHide(0 To u) As String
    109.     strRoomsHide(u) = Roomname
    110. End Sub
    111.  
    112. Sub HandleWrongRoomPassword(Packet As String)
    113.     If InStr(1, Packet, Chr(2)) > 0 Then
    114.         Dim packetDetails() As String
    115.         packetDetails() = Split(Packet, Chr(2))
    116.         MsgBox "The password you used to enter the " & packetDetails(1) & " chat room is wrong. Please retry.", vbExclamation
    117.         WriteLog frmMain.rtbLog, "Access denied to the " & packetDetails(1) & " chat room: Wrong Password.", vbMagenta
    118.     End If
    119. End Sub
    120.  
    121. Sub HandleJoinedRoom(Packet As String)
    122.     If InStr(1, Packet, Chr(2)) > 0 Then
    123.         Dim packetDetails() As String
    124.         packetDetails() = Split(Packet, Chr(2))
    125.         ShowRoom (packetDetails(1))
    126.         'WriteLog frmMain.rtbLog, NickName & " joined the " & packetDetails(1) & " chat room."
    127.     End If
    128. End Sub
    129.  
    130. Sub AlreadyInRoom(Packet As String)
    131. If InStr(1, Packet, Chr(2)) > 0 Then
    132.     Dim Roomname As String
    133.     Dim packetDetails() As String
    134.     packetDetails() = Split(Packet, Chr(2))
    135.     Roomname = packetDetails(1)
    136.     WriteLog frmMain.rtbLog, "You are already in the " & Roomname & " chat room."
    137.     If RoomsHide_IsHiding(Roomname) = True Then ShowHiddenRoom Roomname
    138. End If
    139. End Sub
    140.  
    141. Public Sub HandleRoomList(Packet As String)
    142.     If InStr(1, Packet, Chr(2)) > 0 Then
    143.     'Room Packet format: "RUM()RumName2-Locked-Creator-0-200-joe>
    144.         frmChatRooms.lstRooms.ListItems.Clear
    145.         Dim strRoomList() As String
    146.         Dim strPacketDetails() As String
    147.         Dim strRoomInfo() As String
    148.         Dim strRoomName As String
    149.         Dim isLocked As Boolean
    150.         Dim usersInside As Integer
    151.         Dim strCreator As String
    152.         Dim intMax As Integer
    153.         Dim strPass As String
    154.         Dim strIcon As String
    155.         Dim i As Integer
    156.         strPacketDetails() = Split(Packet, Chr(2))
    157.         strRoomList() = Split(strPacketDetails(1), vbCrLf)
    158.         For i = 0 To UBound(strRoomList()) - 1
    159.             strRoomInfo() = Split(strRoomList(i), Chr(3))
    160.             strRoomName = strRoomInfo(0)
    161.             isLocked = strRoomInfo(1)
    162.             strCreator = strRoomInfo(2)
    163.             usersInside = strRoomInfo(3)
    164.             intMax = strRoomInfo(4)
    165.             strPass = strRoomInfo(5)
    166.             If isLocked = True Then strIcon = "closed"
    167.             If isLocked = False Then strIcon = "open"
    168.             With frmChatRooms.lstRooms.ListItems.Add(, , strRoomName)
    169.                 .SmallIcon = strIcon
    170.                 .SubItems(1) = usersInside
    171.                 .Tag = intMax & Chr(2) & strPass
    172.                 If strCreator = Nickname Then
    173.                     .bold = True
    174.                     .ForeColor = vbBlue
    175.                 End If
    176.             End With
    177.         Next i
    178.     End If
    179. End Sub
    180.  
    181. Sub HandleRoomCreatedSuccessfully(Packet As String)
    182.     If InStr(1, Packet, Chr(2)) > 0 Then
    183.         'RCT()roomname()sender()Message<<
    184.         Dim packetDetails() As String
    185.         packetDetails() = Split(Packet, Chr(2))
    186.         MsgBox "The room " & packetDetails(1) & " has been successfully created.", vbInformation
    187.     End If
    188. End Sub
    189.  
    190. Sub SendRoomMessage(Roomname As String, Message As String)
    191.     Dim Packet As String
    192.     Packet = "RCT" & Chr(2) & Roomname & Chr(2) & Message & Chr(4)
    193.     SendData Packet
    194. End Sub
    195.  
    196. Sub ReceiveRoomMessage(Roomname As String, Sender As String, Message As String)
    197.     If Sender = Nickname Then Exit Sub
    198.     If CheckIfUserIsBlocked(Sender) = True Then Exit Sub
    199.     Dim i As Integer
    200.     If RoomsHide_IsHiding(Roomname) = True Then ShowHiddenRoom (Roomname)
    201.     For i = 0 To UbRooms
    202.         If frmRooms(i).Caption = Roomname Then Exit For
    203.     Next i
    204.      WriteMesssage frmRooms(i).rtbChat, Sender, Message
    205. End Sub
    206.  
    207. Sub HandleRoomMessage(Packet As String)
    208.     If InStr(1, Packet, Chr(2)) > 0 Then
    209.         'RCT()roomname()sender()Message<<
    210.         Dim packetDetails() As String
    211.         packetDetails() = Split(Packet, Chr(2))
    212.         ReceiveRoomMessage packetDetails(1), packetDetails(2), packetDetails(3)
    213.     End If
    214. End Sub
    215.  
    216. Sub HandleRoomUserList(Packet As String)
    217. 'On Error Resume Next
    218.     '"RUS()RoomName()User1Name>>User2Name>>User3Name<<
    219.     If InStr(1, Packet, Chr(2)) > 0 Then
    220.         Dim packetDetails() As String
    221.         Dim Roomname As String
    222.         Dim roomUsers() As String
    223.         Dim i As Integer
    224.         packetDetails() = Split(Packet, Chr(2))
    225.         Roomname = packetDetails(1)
    226.         roomUsers() = Split(packetDetails(2), vbNewLine)
    227.         For x = 0 To UbRooms
    228.             If frmRooms(x).Caption = Roomname Then Exit For
    229.         Next x
    230.         For i = 0 To UBound(roomUsers())
    231.             If Not roomUsers(i) = "" Then
    232.                 RemoveListItem frmRooms(x).lstRoomUsers, roomUsers(i), True
    233.                 frmRooms(x).lstRoomUsers.AddItem roomUsers(i)
    234.             End If
    235.         Next i
    236.     End If
    237. End Sub

  8. #168
    Fanatic Member
    Join Date
    May 2004
    Posts
    566

    Re: [VB6] - Multi-User Chat Example (Winsock)

    progress?
    if you helped me, consider yourself thanked

  9. #169
    New Member
    Join Date
    Apr 2009
    Posts
    3

    Re: [VB6] - Multi-User Chat Example (Winsock)

    I dont know how you guys did it but for a noob like me i need to bring a whole dictionary of codes and their meanings and how they work. Any ways I Want to know if there is Any Update on this thing cause I want to examine the code a lot to know better of this codes.





    And For The chat program I am thinking if you could add their profile pics when on pm.

    Hoping For the finished version. Good Luck!

  10. #170
    Fanatic Member
    Join Date
    May 2004
    Posts
    566

    Re: [VB6] - Multi-User Chat Example (Winsock)

    progress now?

    even if it is not complete DigiRev, release it
    if you helped me, consider yourself thanked

  11. #171
    New Member
    Join Date
    Apr 2009
    Posts
    3

    Re: [VB6] - Multi-User Chat Example (Winsock)

    Maybe his busy right now or somethings wrong with his computer...

    But Dont lose Hope(not the cigarettes) he will release the final version we all are waiting for.
    But please release it As soon as possible.

  12. #172
    Fanatic Member
    Join Date
    May 2004
    Posts
    566

    Re: [VB6] - Multi-User Chat Example (Winsock)

    meh..
    if you helped me, consider yourself thanked

  13. #173
    New Member
    Join Date
    Jun 2009
    Posts
    1

    Re: [VB6] - Multi-User Chat Example (Winsock)

    DigiRev

    Please give some news, are you OK?

  14. #174

    Thread Starter
    "Digital Revolution"
    Join Date
    Mar 2005
    Posts
    4,471

    Re: [VB6] - Multi-User Chat Example (Winsock)

    I've been really busy and had to take a long hiatus from programming all-together.

    I'm updating this project (well, actually started from scratch) so it will have a lot of new features (custom chat rooms, users can be in multiple rooms, password-protected rooms, etc.). This will hopefully hold you over until I finally finish the instant messenger, which had a lot of nasty bugs so I had to rewrite most of it.

    Not to sound like I'm bragging, but the instant messenger will probably be the best one released that I'm aware of in VB6, even though there are tons of good ones on www.pscode.com. There are really tons of features...

    Anyway, updated project will be posted soon and following, the instant messenger.

  15. #175

    Thread Starter
    "Digital Revolution"
    Join Date
    Mar 2005
    Posts
    4,471

    Re: [VB6] - Multi-User Chat Example (Winsock)

    Here's just a few screen shots of the client... it's going to be a tabbed-based client, and function like FireFox, where each room you're in has its own tab.

    There's also file transfers, and other stuff.
    Attached Images Attached Images   
    Last edited by DigiRev; Jul 3rd, 2009 at 11:58 AM.

  16. #176
    Fanatic Member
    Join Date
    May 2007
    Location
    Merced
    Posts
    868

    Re: [VB6] - Multi-User Chat Example (Winsock)

    Cool! Im intrested in seeing how this comes out!

  17. #177

    Thread Starter
    "Digital Revolution"
    Join Date
    Mar 2005
    Posts
    4,471

    Re: [VB6] - Multi-User Chat Example (Winsock)

    It's almost done.

    I had to remove the screenshot of the file transfers window, but it looks & functions like FireFox's download manager.

    Also, I might have to wait for webcam features since I need to find mine to be able to test it.

    Another feature I'm adding is protocol support, so you can click a link in a web browser like: vbchat://ServerIP:Port and it will automatically launch the program and connect to the server.

  18. #178
    New Member
    Join Date
    Apr 2009
    Posts
    3

    Re: [VB6] - Multi-User Chat Example (Winsock)

    Cool!!!
    More than I expected.
    Never thought of something like thing. I thought it would be simple. Maybe you could add a skin feature/themes wherein you can change skins/themes that you want and also make your own.
    Infinite In Mystery Is The Gift Of The Goddess We Seek It Thus And Take It To The Skies Ripples Form On The Waters Surface The Wandering Soul Knows No Rest

    ___________________________________
    Loveless Act 1

  19. #179
    New Member
    Join Date
    Aug 2009
    Posts
    2

    Re: [VB6] - Multi-User Chat Example (Winsock)

    Look like a great project
    Any updates?

  20. #180
    New Member
    Join Date
    Sep 2009
    Posts
    1

    Re: [VB6] - Multi-User Chat Example (Winsock)

    Hi, I've been tracking this thread for some time now..
    I'm really looking forward to the new version.. any updates?

  21. #181

    Thread Starter
    "Digital Revolution"
    Join Date
    Mar 2005
    Posts
    4,471

    Re: [VB6] - Multi-User Chat Example (Winsock)

    It's almost done now. I had to start over some time ago, but I'm still working on the version shown in the screenshots.

    I lost interest in this project awhile ago but still getting it done because I promised. Not sure how many updates I'll do to it once this next one is released, but that's why it's open-source, right? It will have a lot of features in it anyway.

  22. #182
    Lively Member
    Join Date
    Jan 2009
    Posts
    80

    Re: [VB6] - Multi-User Chat Example (Winsock)

    Hey this was a great program, I added private messages, banning, kicking and muting within a half hour, its so easy to add more functions and its very user friendly.

  23. #183

    Thread Starter
    "Digital Revolution"
    Join Date
    Mar 2005
    Posts
    4,471

    Re: [VB6] - Multi-User Chat Example (Winsock)

    Quote Originally Posted by RoflItsK View Post
    Hey this was a great program, I added private messages, banning, kicking and muting within a half hour, its so easy to add more functions and its very user friendly.
    Thanks.

    That was the goal: to make it easy to add/modify.

    Hopefully this update, while it has a bunch of features and is completely different, will still be easy enough to modify and change stuff.

  24. #184
    New Member
    Join Date
    Sep 2009
    Posts
    2

    Smile Re: [VB6] - Multi-User Chat Example (Winsock)

    Quote Originally Posted by RoflItsK View Post
    Hey this was a great program, I added private messages, banning, kicking and muting within a half hour, its so easy to add more functions and its very user friendly.
    plez upload source code server+ client


    thanks

  25. #185
    New Member
    Join Date
    Sep 2009
    Posts
    2

    Re: [VB6] - Multi-User Chat Example (Winsock)

    hi guys

    someone can developed more mod like :

    private messages + buzz
    avatar
    banned
    ignore
    smiles
    fonts type+ size + color
    admin can create rooms
    banned words
    upload files share




    thanks
    Last edited by nazmiqasem; Sep 24th, 2009 at 01:02 PM.

  26. #186
    Junior Member
    Join Date
    Nov 2009
    Posts
    19

    Re: [VB6] - Multi-User Chat Example (Winsock)

    i think its only work in a single computer not multi...?right? just like in your attachment pictures...and tyr'd it also but it's not working if u prefer to user it on other computer to other computer..sorry but i am not perfectly sure about this..it just my theory and my expirement explanation...

  27. #187
    Hyperactive Member Condomx's Avatar
    Join Date
    Dec 2009
    Location
    Iligan City,Philippines
    Posts
    327

    Re: [VB6] - Multi-User Chat Example (Winsock)

    lol..when you connect,you must change the ip address in the corresponding ip address and port of the server who host that thing..ok.? like if the IP ADDRESS of the server is 10.0.0.9 and the server port is 123456 then you must put that IP ADDRESS and server port to the box so that you could connect...just like what i did.

  28. #188
    Hyperactive Member Condomx's Avatar
    Join Date
    Dec 2009
    Location
    Iligan City,Philippines
    Posts
    327

    Re: [VB6] - Multi-User Chat Example (Winsock)

    nice!,simple but full of learnings..

  29. #189
    Junior Member
    Join Date
    Sep 2007
    Posts
    29

    Re: [VB6] - Multi-User Chat Example (Winsock)

    DigiRev you forget about this thread again!?

  30. #190
    New Member
    Join Date
    Apr 2010
    Posts
    1

    Re: [VB6] - Multi-User Chat Example (Winsock)

    hey... can i ask a multi user chat using vb6 that does not use modules?? i'm working on a chat room that does not use modules... client side and server side...

  31. #191
    Hyperactive Member Condomx's Avatar
    Join Date
    Dec 2009
    Location
    Iligan City,Philippines
    Posts
    327

    Re: [VB6] - Multi-User Chat Example (Winsock)

    oh jesus... when could this project will be release.?
    ~[L!f3 !s @ll @ab0ut l3@rn!ng]~

    ~*D0nt Give up, h0pe is always present*~

  32. #192
    Lively Member Arispan's Avatar
    Join Date
    Apr 2010
    Location
    Greece, Near Athens
    Posts
    98

    Re: [VB6] - Multi-User Chat Example (Winsock)

    Hey DigiRev,

    You can can upload the project here and we will fix the bugs (those that we can).
    MOBO: Asrock X58 Extreme
    CPU : Core i7 950 @ 3.07Ghz
    Ram : 8GB
    Hard Drive : 1.5 TB (1 TB, 500GB)
    Graphics : ATI Radeon HD 5670
    Dual Boot : Windows XP Home, Windows 7 Ultimate x64


    _____________________
    If a reply has helped you, please consider rating it.

  33. #193
    Fanatic Member
    Join Date
    May 2004
    Posts
    566

    Re: [VB6] - Multi-User Chat Example (Winsock)

    progress?
    if you helped me, consider yourself thanked

  34. #194
    Hyperactive Member Condomx's Avatar
    Join Date
    Dec 2009
    Location
    Iligan City,Philippines
    Posts
    327

    Re: [VB6] - Multi-User Chat Example (Winsock)

    no respond from him ..as he said he is out in programming at the moment,maybe at the moment means 5 years after or forever for simplicity
    ~[L!f3 !s @ll @ab0ut l3@rn!ng]~

    ~*D0nt Give up, h0pe is always present*~

  35. #195
    Lively Member Arispan's Avatar
    Join Date
    Apr 2010
    Location
    Greece, Near Athens
    Posts
    98

    Re: [VB6] - Multi-User Chat Example (Winsock)

    Digirev?????????????? Have you forgotten how to program in vb6 ?
    MOBO: Asrock X58 Extreme
    CPU : Core i7 950 @ 3.07Ghz
    Ram : 8GB
    Hard Drive : 1.5 TB (1 TB, 500GB)
    Graphics : ATI Radeon HD 5670
    Dual Boot : Windows XP Home, Windows 7 Ultimate x64


    _____________________
    If a reply has helped you, please consider rating it.

  36. #196
    Fanatic Member
    Join Date
    May 2004
    Posts
    566

    Re: [VB6] - Multi-User Chat Example (Winsock)

    no progress yet i see
    if you helped me, consider yourself thanked

  37. #197
    Fanatic Member
    Join Date
    May 2005
    Posts
    528

    Re: [VB6] - Multi-User Chat Example (Winsock)

    what if I'm using this program behind a router where I'm not allowed to change the router settings to do port forwarding, at university for example.
    There must be some way to do it without changing the router settings, after all, you don't need to change your router settings when you use MSN or anything.

  38. #198
    Junior Member
    Join Date
    Mar 2008
    Posts
    31

    Re: [VB6] - Multi-User Chat Example (Winsock)

    you don't have to mess with theprot forwarding with msn because you are not the host. you only have to port forward if someone outside your router is going to be using your chat system.

  39. #199
    New Member
    Join Date
    Nov 2010
    Posts
    14

    Re: [VB6] - Multi-User Chat Example (Winsock)

    Great Replies
    Here is Messenger Im Working on it
    Webcam Support
    VB Support
    Room
    Private IM



    But I Just Afraid From 1Thing
    I Think If Users Grows up to 5000! Server Cant Handle it!
    Which Language is Good For Writing Server?
    VB6 is Poor For Server?
    Mo!eN User Banned =))
    Thanks
    I Love My New 1Chr Username =))

  40. #200
    Hyperactive Member danecook21's Avatar
    Join Date
    Feb 2008
    Location
    NC, USA
    Posts
    501

    Re: [VB6] - Multi-User Chat Example (Winsock)

    Why did you hijack a thread that was created 3 years ago to post a screenshot of your program?

Page 5 of 6 FirstFirst ... 23456 LastLast

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  



Click Here to Expand Forum to Full Width