Что нового

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

komorov74

Новичок
Сообщения
81
Репутация
0
в 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

Модератор
Локальный модератор
Сообщения
3 353
Репутация
581
вот так
Код:
#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

Мой Аватар, он лучший самый
Команда форума
Глобальный модератор
Сообщения
4 020
Репутация
622
Предупреждение За нарушение правил форума (пункт В.11):
Любые отрывки AutoIt кода необходимо заключать в тег [autoit]
(подробнее), а обычный код соответственно в тег [code]
(подробнее). Также большие выдержки текста помещайте под тег [spoiler]
(подробнее), там где это поддерживается естественно. Как в случае с названием темы, также короткое и эргономичное сообщение привлекает больше внимания, и шансы на получение конкретного ответа увеличиваются.


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

komorov74

Новичок
Сообщения
81
Репутация
0
Большое спасибо!!!!!! коротко и по существу!!!!!
 

kaster

Мой Аватар, он лучший самый
Команда форума
Глобальный модератор
Сообщения
4 020
Репутация
622
komorov74
попрошу отреагировать на предупреждение, иначе мне придется отреагировать на не отреагирование
 
Верх