Добрый день.Скажу сразу ,я не давний пользователь данной программы.Впечатления положительные.
Но возникает куча вопросов (признак что человек начинает понимать).
1 вопрос.Можно ли создать два(пять) окошек с разными координатами и туда "запихнуть" разные приложения?
2 вопрос. Можно ли где скачать полную справку на русском языке, та что на оф сайте половина функций не переведено.
3 где можно скачать разом все имеющие UTF(могу ошибаться в названии пример #include <GUIConstants.au3> итд и куда их грамотно класть)?
мой не большой вклад
Давно искал программу которая в реальном времени показывала все ip сетевых карт компа на котором я работаю.Пришлось сворганить самому.Прошу прощение за топорную методику (мне нравиться).
Но возникает куча вопросов (признак что человек начинает понимать).
1 вопрос.Можно ли создать два(пять) окошек с разными координатами и туда "запихнуть" разные приложения?
2 вопрос. Можно ли где скачать полную справку на русском языке, та что на оф сайте половина функций не переведено.
3 где можно скачать разом все имеющие UTF(могу ошибаться в названии пример #include <GUIConstants.au3> итд и куда их грамотно класть)?
мой не большой вклад
Код:
$hGUI = GUICreate("GAGARIN сварганено в Кронштадте", 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
;Until $end=0
Давно искал программу которая в реальном времени показывала все ip сетевых карт компа на котором я работаю.Пришлось сворганить самому.Прошу прощение за топорную методику (мне нравиться).