running-frag
why me?
- Сообщения
- 441
- Репутация
- 60
есть скрипт (не ругайте сильно)
Интересует два момента.
1. Когда скрипт запущен то при запуске _GetIP мышь начинает "оповещать" что он над чем то думает (это легко увидеть запустив и наведя мышку на рабочий стол). Можно ли это "оповещение" как то убрать\скрыть (уж больно раздрожает)?
2. Правильно ли реализован таймаут "каждые три секунды"?
PS: Да и вообще, как бы вы реализовали этот код..
Код:
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>
#include <INet.au3>
#include <Timers.au3>
$hGUI = GUICreate ("My GUI", 400, 25, @DesktopWidth/2 - 200, 0, $WS_POPUP)
GUICtrlCreateLabel ("IP", 1, 0, 50, 24, BitOR ($SS_CENTER, $SS_CENTERIMAGE))
;GUICtrlSetBkColor (-1, 0x101010)
;GUICtrlSetColor (-1, 0xFFFFFF)
GUICtrlSetFont (-1, 14)
$hIP = GUICtrlCreateLabel ("none", 52, 0, 347, 24, BitOR ($SS_CENTER, $SS_CENTERIMAGE))
;GUICtrlSetBkColor (-1, 0x101010)
;GUICtrlSetColor (-1, 0xFFFFFF)
GUICtrlSetFont (-1, 18)
$hIPtimer = GUICtrlCreateLabel ("0", 375,0, 15, 10)
;GUICtrlSetColor (-1, 0xFFFFFF)
GUICtrlSetFont (-1, 8)
GUISetState (@SW_SHOW, $hGUI)
$_timer_s = _Timer_Init()
While 1
If GUIGetMsg () = $GUI_EVENT_CLOSE Then
ExitLoop
Else
ip_get_current ()
EndIf
WEnd
Func ip_get_current ()
$_ms = _Timer_Diff ($_timer_s)
$_ip = _GetIP()
;ToolTip (Round ($_ms/1000))
GUICtrlSetData ($hIPtimer, Mod (Round ($_ms/1000), 3))
If Mod (Round ($_ms/1000), 3) = 0 Then
If Not (GUICtrlRead ($hIP) == $_ip) Then
GUICtrlSetData ($hIP, $_ip)
EndIf
EndIf
Sleep (500)
EndFunc
Интересует два момента.
1. Когда скрипт запущен то при запуске _GetIP мышь начинает "оповещать" что он над чем то думает (это легко увидеть запустив и наведя мышку на рабочий стол). Можно ли это "оповещение" как то убрать\скрыть (уж больно раздрожает)?
2. Правильно ли реализован таймаут "каждые три секунды"?
PS: Да и вообще, как бы вы реализовали этот код..