Серый форум — AHK: Utorrent цветной "tooltip" под мышкой после звершения закачки

Re: AHK: Utorrent цветной "tooltip" под мышкой после звершения закачки

null@example.com (OmTatSat) — Wed, 30 Dec 2015 19:43:27 +0000

Думаю понял о чём вы, в следующий раз постараюсь следовать вашему совету.

Re: AHK: Utorrent цветной "tooltip" под мышкой после звершения закачки

null@example.com (serzh82saratov) — Wed, 30 Dec 2015 19:25:49 +0000

если сам потеряю код, то смогу здесь скачать

Тут мы друзья, но я про топик говорил.

Ещё раз Спасибо за помощь.

Дублируем в репу, раз уже плюсомёт включили, надо же теперь шоты из *овномёта чем то компенсировать.

Re: AHK: Utorrent цветной "tooltip" под мышкой после звершения закачки

null@example.com (OmTatSat) — Wed, 30 Dec 2015 18:57:04 +0000

serzh82saratov Спасибо, использовал ваш первый вариант, так как последний "прозрачный" для кликов.

; Скомпилированый exe должен иметь такое название uTorrent_Downloaded.exe
; который нужно выбрать в настройках "Advanced" "Run Program"
; при клике на тултип откроется папка загруженых торентов
#NoTrayIcon
#SingleInstance, force
CoordMode, Mouse, Relative
DetectHiddenWindows, on
text=Торрент загружен.`nКлик для открытия.


CoordMode, Mouse, Screen
    DllCall("DestroyWindow", "Ptr", hStatic)
    Gui, +AlwaysOnTop +ToolWindow -0x400000 -DPIScale
    Gui, Color, FF0000
    Gui, Font, Italic s18 cWhite, Times New Roman
    Gui Add, Text, hwndhStatic x10 y10 Center
    , Торрент загружен.`nКлик для открытия.
    
    GuiControlGet, Pos, Pos, %hStatic%    
    h := PosY*2+PosH
    w := PosX*2+PosW
    
    MouseGetPos, mX, mY
    x := mX+15
    y := mY+15
    
    SysGet, Mon, Monitor 
    x := MonRight < x+w ? MonRight-w : x
    y := MonBottom < y+h ? MonBottom-h : y 
    
    Gui, Show, NA x%x% y%y% w%w% h%h%


loop
{
  sleep,10
  MouseGetPos, X, Y
	sleep, 2000
	MouseGetPos, X2, Y2
    
	b := y - y2
	c := x - x2
	;ToolTip, %b%
	if ((b <>0) or (c <>0)) ; смещение мышки
    {
		sleep, 4000
		if !MouseIsOver("ahk_exe uTorrent_Downloaded.exe")
		{
			Process, close, uTorrent_Downloaded.exe
	return
}
}
}
~LButton Up::
MouseGetPos,x,y,id
WinGetTitle, title, ahk_id %id%
;ToolTip, %title%
If title = uTorrent_Downloaded.exe
{
	run, G:\TORRENTS ; путь к папке загруженых торентов
	
	Process, close, uTorrent_Downloaded.exe
}

MouseIsOver(WinTitle) {
      MouseGetPos, , , Win
    return WinExist(WinTitle . " ahk_id " . Win)
}

к чему тут Utorrent...

Думал выложить готовый вариант для конкретного применения, даже если сам потеряю код, то смогу здесь скачать, заместо заново искать и склеивать куски кодов... Может и кому-то пригодится. У меня огромная панель задач автоскрывающаяся, и когда закачивался торент то она вылетала и закрывала 5ую часть экрана, с этим скриптиком жить стало легче. Если подобные поделки здесь выкладывать нельзя, то не буду. Ещё раз Спасибо за помощь.

Re: AHK: Utorrent цветной "tooltip" под мышкой после звершения закачки

null@example.com (serzh82saratov) — Wed, 30 Dec 2015 17:02:04 +0000

http://forum.script-coding.com/viewtopi … 539#p97539

Приводите примеры кода касающиеся самого вопроса, к чему тут Utorrent...

AHK: Utorrent цветной "tooltip" под мышкой после звершения закачки

null@example.com (OmTatSat) — Wed, 30 Dec 2015 09:56:23 +0000

Как сделать, чтобы "tooltip" не выходил за границы экрана?

; Скомпилированый exe должен иметь такое название uTorrent_Downloaded.exe
; который нужно выбрать в настройках "Advanced" "Run Program"
; при клике на тултип откроется папка загруженых торентов
#NoTrayIcon
#SingleInstance, force
CoordMode, Mouse, Relative
DetectHiddenWindows, on
text=Торрент загружен.`nКлик для открытия.


MouseGetPos, x, y
textx := x+20
texty := y+20
Gui, Color, FF0000, FFFFFF
Gui, Add, Text, x0 y0, %text%

Gui, -Caption +ToolWindow
Gui, Show, x%textx% y%texty%, MouseTextID
winset, Transcolor, FF2FFF 255, MouseTextID

loop
{
  sleep,10
  MouseGetPos, X, Y
	sleep, 2000
	MouseGetPos, X2, Y2
    
	b := y - y2
	c := x - x2
	;ToolTip, %b%
	if ((b <>0) or (c <>0)) ; смещение мышки
    {
		sleep, 4000
		if !MouseIsOver("ahk_exe uTorrent_Downloaded.exe")
		{
			Process, close, uTorrent_Downloaded.exe
	return
}
}
}
~LButton Up::
MouseGetPos,x,y,id
WinGetTitle, title, ahk_id %id%
;ToolTip, %title%
If title = MouseTextID
{
	run, G:\TORRENTS ; путь к папке загруженых торентов
	
	Process, close, uTorrent_Downloaded.exe
}

MouseIsOver(WinTitle) {
      MouseGetPos, , , Win
    return WinExist(WinTitle . " ahk_id " . Win)
}