[R] Problème de la commande ECRIRE dans ART-OS

[TT22]

L'idée est bien sauf que lorsque l'on écrit des chose, ça ne s'affiche pas à l'écran

[moi]

tu faıs des ıspressed pour tous les caracteres.

maıs c'est long , ça prends de la place maıs c'est une solutıon comme une autre
sı tu trouve pas autre chose.

pour vısualıser ça faıs

Code : Tout sélectionner

do 
ıf _ıspressed(76) then
$var = 76
elseıf _ıspressed(71) then
$var = 71
endıf
ıf _ıspressed(40) then send({a})
ıf _ıspressed(41) then send({b})
...
... 
untıl _ıspressed(76) or _ıspressed(71)

;actıon a effectuer en fonctıon de $var

[TT22]

C'est un peu long comme solution

[moi]

oui mais pour l'instant c'est la seule solution.

[TT22]

c'est la seule solution.

Doit bien en avoir une autre

[moi]

bıen sur je parle pour l'ınstant.
bon ecoute tu teste sı ça marche et tu le met dans la source en attendent de trouver une solutıon plus courte
comme ça tu peut contınuer le devellopement de art os

[TT22]

En fait, ART-OS 1.2 est presque terminé, il ne reste que ce problème à régler
J'ai d'ailleur commencé à faire des tests, et la version 1.2 est environ 25 fois plus rapide que la 1.1

[moi]

on peut toujours retoucher une versıon
je suıt en traın decrıre un code pour artos
maıs patıence...

bon aller je crache le morceau je suıs en traın de modıfıer assoart pour quıl reconnaısse l'extensıon de prog.

[TT22]

Je viens de trouver la solution

► Afficher le textevoir la solution

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Misc.au3>
#include <File.au3>
#include <Array.au3>
$good_stop = FileExists(@ScriptDir&"\stop")

$first="ARTHOS ART-OS [version 1.2.2592]"&@CRLF&"Copyright (c) 2011 ARTHOS CORPORATION. Tous droits réservés."&@CRLF&@CRLF&@ScriptDir&"\ART-OS_Limited_Folder>"
$folder_start=@ScriptDir&"\ART-OS_Limited_Folder"
$gui=guicreate(@ScriptDir&"\ART-OS.exe",1000,500,2,2,BitOR($GUI_SS_DEFAULT_GUI, $WS_MAXIMIZEBOX, $WS_SIZEBOX))
$pic = GUICtrlCreatePic(@ScriptDir&"\img\BAOI1LP",0,0,1000,500)
GUISetState(@SW_SHOW)
Sleep(2000)
GUICtrlDelete($pic)
$edit = guictrlcreateedit ($first, 0, 0, 1000, 500)
GUICtrlSetBkColor(-1, "000000")
GUICtrlSetFont(-1, 80, 100, "", "System", 2)
GuiCtrlSetColor($edit, 0xFFFFFF)
GUIRegisterMsg($WM_COMMAND, "WM_NOTIFY")
FileDelete(@tempdir&"\old_title_temp")
$old_title=FileWrite(@tempdir&"\old_title_temp",@ScriptDir&"\ART-OS.exe")
Send("{right}")

while 1
$msg = guigetmsg()

    If $msg = $GUI_EVENT_CLOSE Then
    Exit
    EndIf
WEnd

Func WM_NOTIFY($hWnd, $iMsg, $lParam, $wParam)
    If(_IsPressed("0D")) Then
    Sleep(50)
    $file=GUICtrlRead($edit)
    FileWrite(@tempdir&"\temp_ART-OS",$file)
    _ReplaceStringInFile(@tempdir&"\temp_ART-OS","*rep*",$folder_start)
    _ReplaceStringInFile(@tempdir&"\temp_ART-OS","#rep#","*REP*")
    _ReplaceStringInFile(@tempdir&"\temp_ART-OS",$folder_start&">","#*.*#")
    $lin=_FileCountLines(@tempdir&"\temp_ART-OS")
    $last_line=FileReadLine(@tempdir&"\temp_ART-OS",$lin)
    _ReplaceStringInFile(@tempdir&"\temp_ART-OS","#*.*#","")
    $line=_FileCountLines(@tempdir&"\temp_ART-OS")
    $write=FileReadLine(@tempdir&"\temp_ART-OS",$line)
    FileDelete(@tempdir&"\temp_ART-OS")
    FileWrite(@tempdir&"\temp_ART-OS_com",$write)
    $traiter = 0
    $re_write = 1
        If $last_line = "#*.*#" Then
        $traiter = 1
        EndIf
;-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

If $traiter = 0 Then
$write_2=FileRead(@tempdir&"\temp_ART-OS_com",7)
    If $write_2 = "ecrire " Then
    _ReplaceStringInFile(@tempdir&"\temp_ART-OS_com","ecrire ","")
    $file2=FileRead(@tempdir&"\temp_ART-OS_com")
    $existfiles = FileExists($file2)
        If $existfiles = 0 Then
        $anciennnnegui = GUICtrlRead($edit)
        GUICtrlSetData($edit,"")
        Sleep(100)
            While 1
                Sleep(100)
                If _IsPressed("76") Then
                Sleep(100)
                $cequilaecrit = GUICtrlRead($edit)
                Sleep(100)
                FileWrite($file2,$cequilaecrit)
                Sleep(100)
                GUICtrlSetData($edit,$anciennnnegui)
                Sleep(100)
                Send("Votre fichier à été créé."&@CR)
                Sleep(100)
                ExitLoop
                EndIf
            WEnd
        EndIf
            If $existfiles = 1 Then
            $anciennnnegui = GUICtrlRead($edit)
            GUICtrlSetData($edit,FileRead($file2))
            Sleep(100)
                While 1
                    Sleep(100)
                    If _IsPressed("76") Then
                    Sleep(100)
                    $cequilaecrit = GUICtrlRead($edit)
                    Sleep(100)
                    FileDelete($file2)
                    Sleep(100)
                    FileWrite($file2,$cequilaecrit)
                    Sleep(100)
                    GUICtrlSetData($edit,$anciennnnegui)
                    Sleep(100)
                    Send("Votre fichier à été modifié."&@CR)
                    Sleep(100)
                    ExitLoop
                    EndIf
                WEnd
            EndIf
    $traiter = 1
    EndIf
EndIf

;-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
FileDelete(@tempdir&"\temp_ART-OS_com")

If $traiter = 0 Then
$old_gui = GUICtrlRead($edit)
GUICtrlSetData($edit,$old_gui&@CR&"'"&$write&"'"&" n'est pas reconnu en tant que commande interne"&@CRLF&"ou externe, un programme exécutable ou un fichier de commandes."&@CRLF)
Sleep(100)
EndIf

    If $re_write = 1 Then
    GUICtrlSetData($edit,GUICtrlRead($edit)&@CRLF&@CR&$folder_start&">")
    Sleep(100)
    EndIf
EndIf
EndFunc