как убрать каразябли?

[komorov74]

в XP текст в окне отображается корректно , а в 7 вот так Ethernet adapter Џ®¤Є«о祭ЁҐ Ї® «®Є «м­®© бҐвЁ:

Чего то я с лету не могу найти функцию преобразования.

текст получаеться вот с этого скрипта (кстати прикольная вещь- мониторит ip в реальном времени -акуально если часто переключаться в разные сети)

$hGUI = GUICreate("Весь 1С на DVD www.gagarin74.narod2.ru", 350, 600)
$font="Arial"
;


    RunWait (@ComSpec & " /c " & 'ipconfig > c:\2222.txt', "", @SW_HIDE)
$ssFile = "c:\2222.txt"







for $s = 1 to 900000

    $size1 = FileGetSize("c:\2222.txt")
    Sleep(5000)
    ; проверка на онлайн
   
    $var = Ping("www.mail.ru",250)
If $var Then ; also possible:  If @error = 0 Then ...
    GUICtrlCreateLabel("PC в ИНТЕРНЕТЕ   ", 230, 12)
    GUICtrlSetColor(-1,0x3920FF)  ; Green
Else
    GUICtrlCreateLabel("PC НЕ в ИНТЕРНЕТЕ", 230, 12)
    GUICtrlSetColor(-1,0xff0000)  
EndIf
;конец проверки онлайн  
   
$progressbar1 = GUICtrlCreateProgress (10,10,200,20)

   
    $mem = MemGetStats(); загрузка памяти
If $mem[0] <50 Then
   
    GUICtrlSetColor(-1,0x3920FF)
    Else
        GUICtrlSetColor(-1,0xff0000)
        EndIf
    GUICtrlSetData ($progressbar1,$mem[0])
   
   
RunWait (@ComSpec & " /c " & 'ipconfig > c:\222.txt', "", @SW_HIDE)
$sFile = "c:\222.txt"
$size = FileGetSize("c:\222.txt")



;$asas = FileRead($sFile)
;$asas1 = FileRead($ssFile)
;$end=StringCompare ( $asas, $asas1 )
;MsgBox(0, "StringCompare Result (mode 0):", $end)

;If $end=1 Then


$sReadText = FileRead($sFile)
$nText_Edit = GUICtrlCreateEdit($sReadText, 10, 40, 400, 600)
GUICtrlSetBkColor(-1,0xD6D3CE)  ; Цвет вставляемого окна
GUISetState(@SW_SHOW, $hGUI)
Sleep(5000)
;Else
;EndIf



Next

 

[joiner]

вот так

#include <Encoding.au3>
$hGUI = GUICreate("е", 350, 600)
$font="Arial"
    RunWait (@ComSpec & " /c " & 'ipconfig > c:\2222.txt', "", @SW_HIDE)
$ssFile = "c:\2222.txt"
for $s = 1 to 900000
    $size1 = FileGetSize("c:\2222.txt")
    Sleep(5000)
    ; проверка на онлайн
    $var = Ping("www.mail.ru",250)
If $var Then ; also possible:  If @error = 0 Then ...
    GUICtrlCreateLabel("PC в ИНТЕРНЕТЕ   ", 230, 12)
    GUICtrlSetColor(-1,0x3920FF)  ; Green
Else
    GUICtrlCreateLabel("PC НЕ в ИНТЕРНЕТЕ", 230, 12)
    GUICtrlSetColor(-1,0xff0000)
EndIf
;конец проверки онлайн
$progressbar1 = GUICtrlCreateProgress (10,10,200,20)
    $mem = MemGetStats(); загрузка памяти
If $mem[0] <50 Then
    GUICtrlSetColor(-1,0x3920FF)
    Else
        GUICtrlSetColor(-1,0xff0000)
        EndIf
    GUICtrlSetData ($progressbar1,$mem[0])
RunWait (@ComSpec & " /c " & 'ipconfig > c:\222.txt', "", @SW_HIDE)
$sFile = "c:\222.txt"
$size = FileGetSize("c:\222.txt")
;$asas = FileRead($sFile)
;$asas1 = FileRead($ssFile)
;$end=StringCompare ( $asas, $asas1 )
;MsgBox(0, "StringCompare Result (mode 0):", $end)
;If $end=1 Then
$sReadText = FileRead($sFile)
$cod = _Encoding_CyrillicTo1251($sReadText)
$nText_Edit = GUICtrlCreateEdit($cod, 10, 40, 400, 600)
GUICtrlSetBkColor(-1,0xD6D3CE)  ; Цвет вставляемого окна
GUISetState(@SW_SHOW, $hGUI)
Sleep(5000)
;Else
;EndIf
Next

Encoding UDF берешь здесь http://autoit-script.ru/index.php/topic,510.0.html

 

[kaster]

Предупреждение

За нарушение правил форума (пункт В.11):

Любые отрывки AutoIt кода необходимо заключать в тег [autoit]

(подробнее), а обычный код соответственно в тег [code]

(подробнее). Также большие выдержки текста помещайте под тег [spoiler]

(подробнее), там где это поддерживается естественно. Как в случае с названием темы, также короткое и эргономичное сообщение привлекает больше внимания, и шансы на получение конкретного ответа увеличиваются.

С уважением, ваш Глобальный модератор.

 

[komorov74]

Большое спасибо!!!!!! коротко и по существу!!!!!

 

[kaster]

komorov74
попрошу отреагировать на предупреждение, иначе мне придется отреагировать на не отреагирование