Flasher

|
Posted: Tue Jun 01, 2010 21:17 Post subject: |
|
|
Loopback
В общем там целая история. Из-за того, что у меня в автозапуске стоял другой скрипт из этой же оперы, возникли глюки с исчезновением панели, и мне приходилось по несколько раз добавлять её. После перезагрузки накапливалось порядка штук семи. Потом выскакивал при подведении к краю курсора пустой квадрат в правом верхнем углу. Время потратил ПРУД.. К тому же, чтобы появление происходило в любых режимах, нужно снять флаг с "Поверх остальных окон". Окончательный вид скрипт приобрёл такой (и вроде, тьфу-тьфу-тьфу, работает) >>> Code: | While 1
GUIGetMsg() ; разгрузка процессора
$mpos = MouseGetPos()
If ($mpos[0] < 2) Then
WinSetState("[CLASS:BaseBar]", "", @SW_SHOW)
WinSetOnTop("[CLASS:BaseBar]", "", 1)
ElseIf ($mpos[0] > 27) Then
WinSetOnTop("[CLASS:BaseBar]", "", 0)
WinSetState("[CLASS:BaseBar]", "", @SW_HIDE)
EndIf
If ($mpos[0] < 2) And ($mpos[1] < 8) Then
$list = WinList("[CLASS:TTOTAL_CMD]")
If $list[0][0] > 0 Then WinActivate ($list[1][1])
EndIf
If ($mpos[0] <= @DesktopWidth - 0) And ($mpos[1] < @DesktopHeight - 28) Then
WinSetState("[CLASS:Shell_TrayWnd]", "", @SW_HIDE)
EndIf
If ($mpos[0] <= @DesktopWidth - 0) And ($mpos[1] > @DesktopHeight - 2) Then
WinSetState("[CLASS:Shell_TrayWnd]", "", @SW_SHOW)
$list = WinList("[CLASS:Shell_TrayWnd]")
If $list[0][0] > 0 Then WinActivate ($list[1][1])
EndIf
Wend | Но вот 1,5-3-х секундная задержка несколько напрягает.( |
|