в XP текст в окне отображается корректно , а в 7 вот так Ethernet adapter Џ®¤Є«о票Ґ Ї® «®Є «м®© бҐвЁ:
Чего то я с лету не могу найти функцию преобразования.
текст получаеться вот с этого скрипта (кстати прикольная вещь- мониторит ip в реальном времени -акуально если часто переключаться в разные сети)
Чего то я с лету не могу найти функцию преобразования.
текст получаеться вот с этого скрипта (кстати прикольная вещь- мониторит 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