[Preview] Tex0s Chat Client!

    Diese Seite verwendet Cookies. Durch die Nutzung unserer Seite erklären Sie sich damit einverstanden, dass wir Cookies setzen. Weitere Informationen

    • [Preview] Tex0s Chat Client!

      [FONT="Garamond"][COLOR="DarkRed"][SIZE="2"]Hallo Liebe MCore Community.
      In diesem Thread möchte ich euch meinen ersten selbst geschriebnen Chat vorstellen hier mal ein paar wichtige Infos:

      [FELD="Infos"]~ Sprache: VB.NET
      ~Arbeitszeit: ca. 7h
      ~client version: 1.5
      ~mitbeteiligte: Clemi, Nintendo13 (für prohgrammcode und Form fixes[/FELD]

      So nun kommen wir zum wichtigsten meiner Prview, die Features des Chats:

      [FELD="Features"]Server: Der Chatserver läuft immoment noch über einen Hamachiserver, bis ich auf einem Root Server einen Platz bekomme
      Contact Us: Der Chat bietet den *Contact Us* Service (über dieses System könnt ihr verbesserungsvorschläge liefern oder bug reporten
      Updater: Ihr müsst den Updater Manuell bedienen der Updater Updated nur die Client.exe !!!
      [/FELD]

      So ich hoffe ihr wollt den Chat mal austesten ;)
      Download: hier
      Virustest: hier
      Homepage: *inwork*
      Hamachinetzwerk: testdenchat ; pw: 1234
      testdenchat2 ; pw: 1234

      So wenn ihr noch Fragen habt pls tell'em
      [/SIZE][/COLOR][/FONT]
    • Werbung zur Unterstützung des Forums ( Bitte AddBlocker deaktivieren )

    • Also *Serverseitig tippe ich auf nen Threaded-Server mit Sockets.

      Wenn du das mit Winsock in VB-Classic meinst gehts so:

      Brainfuck-Quellcode

      1. Private Sub Winsock_ConnectionRequest(Index As Integer, ByVal requestID As Long)
      2. Dim data As String
      3. 'Wenn sich ein neuer Client einloggt:
      4. If Index = 0 Then
      5. intMax = intMax + 1
      6. Load Winsock(intMax) 'WICHTIG Erstellt neues Winsock-Control
      7. NameList(intMax, 0) = Str$(intMax)
      8. Winsock(intMax).LocalPort = 1001
      9. Winsock(intMax).Accept requestID
      10. Winsock(intMax).SendData ("Hello :)")
      11. End If
      12. '------------------------------------
      13. End Sub
      14. Private Sub Winsock_DataArrival(Index As Integer, ByVal bytesTotal As Long)
      15. 'Wenn einer der Clienten einen Text sendet:
      16. Dim data As String
      17. Dim i As Integer
      18. Dim a$
      19. Winsock(Index).GetData data 'Empfangenen Text in einen String schreiben
      20. End Sub
      Alles anzeigen