Jump to content

Triconix

Membre
  • Content Count

    102
  • Joined

  • Last visited

  • Days Won

    1

Triconix last won the day on July 9 2019

Triconix had the most liked content!

Community Reputation

4 Neutre

3 Followers

About Triconix

  • Rank
    Dozonien Hyperactif
  • Birthday 08/02/1996

Profile Information

  • Genre
    Not Telling

Recent Profile Visitors

798 profile views
  1. Salut, j'avais oublier le tag en combat dans le packet... c'est corrigé.. Je debug depuis les packet que je trouve sur le net...
  2. Salut les amis, je code pour le moment un serveur 1.29 en vb.net, sur les base de myvemu, j'ai déjà débug pas mal de chose, mais la je suis bloquer sur le packet liste d'amis.. j'arive a envoyé la liste mais au le pseudo et affiché au niveau level le level dans le nom etc etc, qu'elle qu'un aurais le bon orde du packet ? Merci bien
  3. Je vais créer un tool plus tard qui permet de créer son thème pour le launcher et qui génère le fichier config. Et ou ont vois les changement fait en éditant.
  4. Bonjour, Je suis Raphaël et je suis développeur. J'ai un petit Projet en cours. Mon projet: Un launcher/updater full customizable. il vous faut just éditer le fichier config.xml pour créer l'interface de votre launcher. pour le moment ce que j'ai déjà fait: - Début du système de panneau d'information (Les news, logs du launcher) -> On peut désactivé tout a fait un panneau et tout a fait le configurer comme vous le voulez je m'explique, Vous pouvez configurer la forme principale de votre launcher, sélectionné si vous voulez utilisé une couleur solide(hex color code), une image, si vous voulez des bords arrondi out l’intensité de l'arrondi. le titre la police utilisé, l'icon de la forme etc... il y a une container pour les news etc on a le chois de activé le banner qui propose 3 système 1. génération de banner online (Dynamic Dummy Image Generator). 2. utilisé multiple image banner local 3. utilisé une image fixe. si vous avez des idée a me proposé pour ajouté des module dit le moi. voici qu'elle que screenshot Screen 1 screen 2 Screen 3 screen 4 screen 5 EDIT 2: Voici un screen du launcher pour le moment. Screen Launcher Pre Alpha EDIT 3: Voici un screen de l'éditeur pour le launcher: Launcher Editor Tool Preview Screen Tool screen tool 1 screen tool 2 screen tool 3 EDIT 4: video de l'éditeur. Video du tool Pour plus d'info mp moi b.a.v Raphael S. EDIT 1: voici le lien pour test ce qui est déjà fait. (pre-pre-pre Alpha !!!) lien update 2: https://www.dropbox.com/sh/8r941gbvo4ytxxh/AABJfSM1swc5-0wJNIMJ93Pva?dl=0
  5. moi j'ai ca comme bug au démarage, qui peut aidé ? merci. [ ServerBase ](1) Crash Exception : Le fournisseur de données .Net Framework demandé est introuvable. Il n'est peut-être pas installé. Source: System.Data -> System.Data.Common.DbProviderFactory GetFactory(System.String) Stack Trace: à System.Data.Common.DbProviderFactories.GetFactory(String providerInvariantName) à Stump.ORM.Database.CommonConstruct() dans C:\Users\kavjo\Desktop\Enu Rubifdev\Core\Stump.ORM\PetaPoco.cs:ligne 201 à Stump.ORM.Database..ctor(String connectionString, String providerName) dans C:\Users\kavjo\Desktop\Enu Rubifdev\Core\Stump.ORM\PetaPoco.cs:ligne 147 à Stump.ORM.DatabaseAccessor.OpenConnection() dans C:\Users\kavjo\Desktop\Enu Rubifdev\Core\Stump.ORM\DatabaseAccessor.cs:ligne 134 à Stump.Server.AuthServer.AuthServer.Initialize() dans C:\Users\kavjo\Desktop\Enu Rubifdev\Server\Stump.Server.AuthServer\AuthServer.cs:ligne 124 [ ServerBase ](1) Crash Exception : La référence d'objet n'est pas définie à une instance d'un objet. Source: Stump.ORM -> Void CloseConnection() Stack Trace: à Stump.ORM.DatabaseAccessor.CloseConnection() dans C:\Users\kavjo\Desktop\Enu Rubifdev\Core\Stump.ORM\DatabaseAccessor.cs:ligne 145 à Stump.Server.AuthServer.AuthServer.OnShutdown() dans C:\Users\kavjo\Desktop\Enu Rubifdev\Server\Stump.Server.AuthServer\AuthServer.cs:ligne 199 à Stump.Server.BaseServer.ServerBase.Shutdown() dans C:\Users\kavjo\Desktop\Enu Rubifdev\Server\Stump.Server.BaseServer\ServerBase.cs:ligne 463 à Stump.Server.AuthServer.AuthServer.Initialize() dans C:\Users\kavjo\Desktop\Enu Rubifdev\Server\Stump.Server.AuthServer\AuthServer.cs:ligne 157 à Stump.GUI.AuthConsole.Program.Main(String[] args) dans C:\Users\couss\Desktop\Emu Ombre juste pour dev 2.43\GUI\Stump.GUI.AuthConsole\Program.cs:ligne 20 [ ServerBase ](1) Crash Exception : La référence d'objet n'est pas définie à une instance d'un objet. Source: Stump.ORM -> Void CloseConnection() Stack Trace: à Stump.ORM.DatabaseAccessor.CloseConnection() dans C:\Users\kavjo\Desktop\Enu Rubifdev\Core\Stump.ORM\DatabaseAccessor.cs:ligne 145 à Stump.Server.AuthServer.AuthServer.OnShutdown() dans C:\Users\kavjo\Desktop\Enu Rubifdev\Server\Stump.Server.AuthServer\AuthServer.cs:ligne 199 à Stump.Server.BaseServer.ServerBase.Shutdown() dans C:\Users\kavjo\Desktop\Enu Rubifdev\Server\Stump.Server.BaseServer\ServerBase.cs:ligne 463 à Stump.GUI.AuthConsole.Program.Main(String[] args) dans C:\Users\couss\Desktop\Emu Ombre juste pour dev 2.43\GUI\Stump.GUI.AuthConsole\Program.cs:ligne 36 Exception non gérée : System.NullReferenceException: La référence d'objet n'est pas définie à une instance d'un objet. à Stump.ORM.DatabaseAccessor.CloseConnection() dans C:\Users\kavjo\Desktop\Enu Rubifdev\Core\Stump.ORM\DatabaseAccessor.cs:ligne 145 à Stump.Server.AuthServer.AuthServer.OnShutdown() dans C:\Users\kavjo\Desktop\Enu Rubifdev\Server\Stump.Server.AuthServer\AuthServer.cs:ligne 199 à Stump.Server.BaseServer.ServerBase.Shutdown() dans C:\Users\kavjo\Desktop\Enu Rubifdev\Server\Stump.Server.BaseServer\ServerBase.cs:ligne 463 à Stump.GUI.AuthConsole.Program.Main(String[] args) dans C:\Users\couss\Desktop\Emu Ombre juste pour dev 2.43\GUI\Stump.GUI.AuthConsole\Program.cs:ligne 36
  6. Slt, Je voudrais séléctioné des info depuis ma base de donnée ou la date de livraisson est date + 7 jours ouvrable sinon ne pas montrer. voici le bout de code que j'ai: sqlQuery = "SELECT * FROM placed_orders WHERE delivery_date BETWEEN DATE_SUB(CURDATE(),INTERVAL 7 DAY) AND CURDATE() OR delivery_date='1989-01-01' GROUP BY ob_no ORDER BY order_date DESC" merci.
  7. Bonjour, J'ai créer un serveur TCP et un client TCP. La connection entre les deux est OK. Le transfert de données est aussi OK. Mon premier problème est que quand le client ce déconnecte le serveur crash, ou freeze et je ne peut pas reconnecter le client. Mon deuxième problème est que je ne peut connecter que un seule client sur mon serveur. Je peut faire quoi pour corrigé mes problèmes ? Voici le code du serveur: Sub Main() Try render.title() config.LoadConfig() database.connect() Catch ex As Exception MsgBox(ex.Message) End Try start_server() Console.Read() End Sub Public Sub start_server() Try Dim ip As IPAddress = IPAddress.Parse(config.GetItem("SERVER_IP")) Dim port As Integer = config.GetItem("SERVER_PORT") Dim serverSocket As New TcpListener(ip, port) Dim clientSocket As TcpClient serverSocket.Start() msg("Server Started on ip: " & config.GetItem("SERVER_IP") & " and on port:" & config.GetItem("SERVER_PORT")) msg("Waiting for incoming packets...") clientSocket = serverSocket.AcceptTcpClient() msg("Accepted connection from client") requestCount = 0 ' clientSocket = serverSocket.AcceptTcpClient() Try Dim networkStream As NetworkStream = clientSocket.GetStream() If networkStream.CanRead Then While (True) requestCount = requestCount + 1 get_client_data(clientSocket, networkStream) End While Else clientSocket.Close() serverSocket.Stop() start_server() End If Catch ex As Exception clientSocket.Close() serverSocket.Stop() 'render.erreur(ex.ToString) start_server() End Try clientSocket.Close() serverSocket.Stop() Catch ex As Exception render.erreur(ex.Message) End Try End Sub Sub msg(ByVal mesg As String) Console.ForegroundColor = ConsoleColor.Green mesg.Trim() Console.WriteLine("[" & TimeOfDay & "] >> " & mesg) End Sub Private Sub get_client_data(ByVal client As TcpClient, ByVal stream As NetworkStream) Try If stream.CanRead Then Dim bytesFrom(10024) As Byte stream.Read(bytesFrom, 0, bytesFrom.Length) Dim dataFromClient As String = System.Text.Encoding.ASCII.GetString(bytesFrom) dataFromClient = dataFromClient.Substring(0, dataFromClient.IndexOf("$")) msg("Data from client - " + dataFromClient) If dataFromClient.Contains("|") Then Dim packet() As String = dataFromClient.Trim.Split("|") Dim packet_type As String = packet(0) Dim packet_data As String Select Case packet_type Case "TCU" 'Try connect user packet_data = packet(1) Dim usr_data() As String = packet_data.Trim.Split(";") Dim user_email As String = usr_data(0) Dim user_password As String = usr_data(1) render.status("User connection module started...") user.connect_user(user_email, user_password, client) Case "UGD" ' User get data packet_data = packet(1) Dim usr_data() As String = packet_data.Trim.Split(";") Dim user_email As String = usr_data(0) Dim user_password As String = usr_data(1) render.status("User data module started...") user.user_data(user_email, user_password, client) Case "CC" ' client confirm connection packet_data = packet(1) Dim client_info() As String = packet_data.Trim.Split(";") Dim client_v As String = client_info(0) Dim client_p As String = client_info(1) Dim iscorrect As Boolean = False Dim v_is_ok As Boolean = False Dim p_is_ok As Boolean = False If Not client_v = config.get_version Then iscorrect = False v_is_ok = False Else iscorrect = True v_is_ok = True End If If Not client_p = config.get_protocol Then iscorrect = False p_is_ok = False Else iscorrect = True p_is_ok = True End If If Not iscorrect = True Then If v_is_ok = False Then sendpacket(client, "CCr|You don't have the right client version please upgrade the client.") client.Close() ElseIf p_is_ok = False Then sendpacket(client, "CCr|Your protocol code is not the same as the server. Please update your client.") client.Close() Else sendpacket(client, "CCr|Someting went wrong, unistall and reinstall the client or update the client !") client.Close() End If Else sendpacket(client, "CCa|0") 'Connected End If Case "GSV" sendpacket(client, "GSVv|" & config.get_version) ' get server version Case "GPC" sendpacket(client, "GPCc|" & config.get_protocol) ' get protocol code Case "GUL" 'Get user list get_user_list(client) End Select Else send(client, dataFromClient) End If Else End If Catch ex As Exception render.erreur(ex.Message) ' start_server() End Try End Sub Public Sub sendpacket(ByVal client As TcpClient, ByVal mess As String) Dim networkStream As NetworkStream = client.GetStream() Dim bytesFrom(10024) As Byte Dim serverResponse As String = mess Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse) networkStream.Write(sendBytes, 0, sendBytes.Length) networkStream.Flush() msg(serverResponse) End Sub Et voici le code du client: Public Shared clientSocket As New TcpClient() Shared serverStream As NetworkStream Shared Sub Connect(ip As [String], port As [String]) Dim _ip As IPAddress = IPAddress.Parse(ip) clientSocket.Connect(_ip, port) ' get_data_server(clientSocket) ' get server data and parse send(clientSocket, "CC|" & config.get_version & ";" & config.get_protocol) End Sub Shared Sub send(ByVal client As TcpClient, packet As String) Dim serverStream As NetworkStream = clientSocket.GetStream() Dim outStream As Byte() = System.Text.Encoding.ASCII.GetBytes(packet & "$") serverStream.Write(outStream, 0, outStream.Length) serverStream.Flush() get_data_server(client) End Sub Shared Sub get_data_server(ByVal client As TcpClient) Dim serverStream As NetworkStream = client.GetStream() Dim inStream(10024) As Byte serverStream.Read(inStream, 0, inStream.Length) Dim returndata As String = System.Text.Encoding.ASCII.GetString(inStream) If returndata.Contains("|") Then Dim packet() As String = returndata.Trim.Split("|") Dim packet_type As String = packet(0) Dim packet_data As String Select Case packet_type Case "TCUd" ' Try connect user done ! Form1.isconnected_to_account = True Form1.Panel1.Visible = False send(client, "UGD|" & Form1.email & ";" & Form1.pass) _popup.invoke("LOGIN_IS_DONE", "You logged in succesfully !") Case "TCUdd" ' try connect user refused or error packet_data = packet(1) MsgBox("Something went wrong during the logging: " & packet_data) Case "UGDd" ' user get data done. packet_data = packet(1) Dim user_data() As String = packet_data.Trim.Split(";") Form1.name = user_data(0) Form1.last_name = user_data(1) Form1.is_staff = user_data(2) Form1.is_sub = user_data(3) Form1.set_user_info_to_layout() Case "UGDdd" ' user get data refused or error packet_data = packet(1) _popup.invoke("USER_DATA_ERROR", packet_data) Case "CCa" ' get client connect confirmation Form1.MaterialLabel2.Text = "Connected to server." Case "CCr" 'get client connect error Dim extraData As String = packet(1) Form1.MaterialLabel2.Text = "Connection to server refused" _popup.invoke("CONNECTION_REFUSED", extraData) Case "GSVv" Dim extraData As String = packet(1) Form1.MaterialLabel2.Text = Form1.MaterialLabel2.Text & " | Server version " & extraData Case "GPCc" Dim extraData As String = packet(1) Form1.MaterialLabel2.Text = Form1.MaterialLabel2.Text & " | Server protocol " & extraData Case "GULd" packet_data = packet(1) user_parser.parse(packet_data) Case "GULdd" packet_data = packet(1) _popup.invoke("USER_DATA_ERROR", packet_data) Case Else _popup.invoke("PACKET_NOT_EXIST", "This packet does not exist: " & returndata) End Select Else msg("Data from Server : " + returndata) End If End Sub Shared Sub msg(ByVal mesg As String) MsgBox(mesg) End Sub Merci pour votre aide ! Cordialement, Triconix.
×
×
  • Create New...