[..] Accent pour la fonction TCPRecv()

[Percival]

Bonjour, je crée actuellement une interface graphique pour accéder a la console d'un serveur de jeu par telnet, le code est fournit en dessous. Le script fonctionne, même si il y a trop d'include pour le moment (c'est a cause de nombreux test, un nettoyage est a prévoir.) Le seul problème c'est que le texte récupéré n'est pas du bon format de texte, les accents ne s'affiche pas et parfois d'autre s'affiche et je ne sais pas pourquoi par exemple:

[31mA player is expected.[0m

à la place de:

:A player is expected.

et un ? a la place d'un é,è,...

J'espère que vous pourrez me dire quel fonction pourrait corriger cela, quelques recherche sur le forum et sur google ne m'ont pas aidé, la solution est peut être simple mais je ne l'ai pas trouvé

► Afficher le texteles codes

Code : Tout sélectionner

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=MCTelnet GUI.ico
#AutoIt3Wrapper_outfile=MCTelnet GUI.exe
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_UseX64=n
#AutoIt3Wrapper_Res_Description=Interface graphique pour MCTelnet
#AutoIt3Wrapper_Res_Fileversion=0.0.0.1
#AutoIt3Wrapper_Res_Language=1036
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

#include <File.au3>
#include <Constants.au3>
#include <GuiConstantsEx.au3>
#Include <Misc.au3>
#include <EditConstants.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
#include <GuiEdit.au3>
#include <GuiListView.au3>
#include <ListViewConstants.au3>
#include <StaticConstants.au3>


If not FileExists(@ScriptDir & "\config.ini")   Then
    $file = FileOpen("config.ini", 1)
    FileWrite($file, "[host]" & @CRLF & "ip=" & @CRLF & "port=" & @CRLF & "[user]" & @CRLF & "login=" & @CRLF & "password=")
    FileClose($file)
Endif


Global $hostip = IniRead ("config.ini", "host", "ip", "")
Global $hostport = IniRead ("config.ini", "host", "port", "")
Global $login = IniRead ("config.ini", "user", "login", "")
Global $pass = IniRead ("config.ini", "user", "password", "")
Global $dll = DllOpen("user32.dll")
Global $Paused, $base
Global $test
Global $data
Global $envoi

HotKeySet("{PAUSE}", "TogglePause")


$form1 = GuiCreate("MCTelnet GUI - Remote Console Access using Telnet", 480, 350,-1,-1,$WS_OVERLAPPEDWINDOW)
GUISetState(@SW_SHOW)
GuiCtrlCreateLabel("Messages des joueurs:", 10, 10)
$messagejoueur = GUICtrlCreateEdit("",10,30,225,280,$ES_READONLY)
GuiCtrlCreateLabel("Messages du serveur:", 245, 10)
$messageconsole = GUICtrlCreateEdit("",245,30,225,280,$ES_READONLY )
$send = GuiCtrlCreateInput("",10,320,380,20)
$boutonsend = GuiCtrlCreateButton("Envoyer", 400, 320, 70, 20)

TCPStartUp()
$hostip = TCPNameToIP($hostip)
$socket = TCPConnect($hostip,$hostport)
_WaitRecvMsg("Username:")
TCPSend($socket, $Login & @CRLF)
_WaitRecvMsg("Password:")
TCPSend($socket, $pass & @CRLF)


While 1
    $msg = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE
            Terminate()

        Case $msg = $boutonsend
            $envoi = GUICtrlRead($send)
            If $envoi <> "" Then
                TCPSend($socket, $envoi & @CRLF)
                GUICtrlSetData($send, "")
            EndIf

    EndSelect

$test = TCPRecv($socket, 1024)

If $test <> "" Then
    $base = GUICtrlRead($messageconsole)
    GUICtrlSetData($messageconsole, $base & $test)
EndIf


If _IsPressed("0D", $dll) Then
        $envoi = GUICtrlRead($send)
        If $envoi <> "" Then
            TCPSend($socket, $envoi & @CRLF)
            GUICtrlSetData($send, "")
        EndIf
    EndIf
WEnd



; #FUNCTIONS# ;===============================================================================
; Permit to Pause the script
Func TogglePause()
    $Paused = Not $Paused
    While $Paused
        Sleep(100)
        ToolTip('Le script est en pause', 0, 0)
    WEnd
    ToolTip("")
EndFunc   ;==>TogglePause

; Permit to quit the script with ESC
Func Terminate()
    TCPCloseSocket($socket)
    TCPShutdown()
    Exit 0
EndFunc   ;==>Terminate

Func _WaitRecvMsg($szMsg)
    Local $Begin = TimerInit()
    While 1
        Local $SrvMes = TCPRecv($socket, 1024)
        If StringInStr($SrvMes, $szMsg) Then Return $SrvMes
        If TimerDiff($begin) > 5000 Then
            SetError(1)
            Return 0
        EndIf
    WEnd
EndFunc
 

Le fichier config.ini:

Code : Tout sélectionner

[host]
ip=host.fr
port=23
[user]
login=root
password=root

[jchd]

Les séquences encadrant le texte que tu montres sont des séquences d'escape ANSI (du temps des terminaux style VT100). En voici la liste.

Maintenant si tu as des caractères bizares au sein du texte, c'est assez probablement que ton telnet utilise un jeu de caractères DOS ou OEM. Ouvre la table de caractères Windows, coche Affichage avancé et sélectionne "DOS : Europe de l'Ouest" pour en avoir confirmation.

Si c'est bien ça, soit tu peux changer le jeu de caractères utilisé (envoyé et attendu !) par ton telnet (quel OS en face ?), soit tu devras faire le transcodage à l'émission et à la réception.

Tiens-nous au courant.

[Percival]

Salut, enfaite d'après ce que j'ai vu il y a quelques minutes, le plugin du serveur qui permet d'y accéder en telnet a une liste de caractère utilisables, j'ai essayé de les ajouter mais il faut attendre a chaque fois 3 heures pour que la configuration s'enregistre. Donc je modifie ça et je vous recontacte se soir. SI vous voulez voir, je vous envoi le lien du plugin qui permet de se connecter:
http://forums.bukkit.org/threads/admn-mctelnet-v1-2-5-remote-console-access-using-telnet-740.5299/


Edit: D'après ce que j'ai vu le problème vient du plugin telnet, car j'ai essayé différent configuration avec putty et le résultat est le même donc le problème vient de mon script.