[Closed] Move Taskbar

[IanN1990]

Heya,

I had a really good idea i would like to try out, I already have written some code that shows and hides the taskbar depending in the mouse moves over the top right screen but now i want to have the task-bar in both left and right screen **Not at the same time as i dont think that is possible"" but i thought if i could move it. So if the mouse hovers over leftscreen, it moves the taskbar to leftscreen and then shows it etc

Would anyone have any idea how i could move it, WinMove doesn't work

My current Soluation

Edited May 11, 2012 by IanN1990

[guinness]

Have a look at this >>

Edit: I wish it was that simple as using WinMove but alas we have to look at using the API SHAppBarMessage. I think I've found a new project!

Edited November 30, 2011 by guinness

[IanN1990]

Aye i saw that post before, but reading though the content it seamed out of my level Though i am pleased to hear u found a new coding project i always find them really fun to do

Edit** though re-reading though that post, mousedrag is prob someone i could pull off XD but it would be very unprofessional and prob unreliable

Edited November 30, 2011 by IanN1990

[guinness]

There is nothing wrong with using MouseClickDrag (if it works) because who's going to see it? As I've said to you before (not in these words) overtime what you class as 'complex code' will just make more & more sense. When I first saw DllStructGetData/DllStructSetData or any of the DLL functions as a matter of fact, I felt there was no way I would ever understand that aspect of coding or AutoIt. Finally the jigsaw is starting to look like the picture that came on the box (though 1 piece is probably missing.)

Edit: By the way I'm far from over learning this wonderful language & I appreciate that most of my fellow MVP's & Dev's have a greater knowledge of coding than I've gained since joining this forum.

Edited November 30, 2011 by guinness

[IanN1990]

expandcollapse popup

;Show Taskbar
$size = WinGetPos("[Class:Shell_TrayWnd]")
$pos = MouseGetPos()
if $pos[0] <= 0 then
    if $pos[0] >= -60 then
        if $pos[1] >=60 Then
            sleep(100)
            if $pos[0] <= 0 and $pos[0] >= -60 and $pos[1] >=60 and $TaskbarHover=0 Then
                $TaskbarHover=1
                Find_Taskbar()
                if $task=1 Then
                WinSetState("[Class:AutoIt v3 GUI]", "", @SW_HIDE)
                ControlShow('','', WinGetHandle("[CLASS:Button]"))
                WinSetTrans("[Class:Shell_TrayWnd]", "", 255)
                WinSetOnTop("[Class:MozillaWindowClass]", "", 1)    
            Else
                WinSetTrans("[Class:Shell_TrayWnd]", "", 1)
                $pos1 = MouseGetPos()
                MouseClickDrag("left", 1925, 875,-5, 875, 0)
                MouseMove($Pos1[0], $Pos1[1], 0)
                WinSetState("[Class:AutoIt v3 GUI]", "", @SW_HIDE)
                ControlShow('','', WinGetHandle("[CLASS:Button]"))
                WinSetTrans("[Class:Shell_TrayWnd]", "", 255)
                WinSetOnTop("[Class:MozillaWindowClass]", "", 1)
                EndIf
            EndIf
        EndIf
    EndIf
EndIf

If $pos[0] >= 1920 then
    if $pos[0] <= 1980 then
        if $pos[1] >=60 Then
            sleep(100)
            $pos = MouseGetPos()
            if $pos[0] >= 1920 and $pos[0] <= 1980 and $pos[1] >=60 and $TaskbarHover=0 Then
            $TaskbarHover=1
            Find_Taskbar()
                if $task=0 Then
                WinSetState("[Class:AutoIt v3 GUI]", "", @SW_HIDE)
                ControlShow('','', WinGetHandle("[CLASS:Button]"))
                WinSetTrans("[Class:Shell_TrayWnd]", "", 255)
                WinSetOnTop("[Class:MozillaWindowClass]", "", 1)    
            Else
                WinSetTrans("[Class:Shell_TrayWnd]", "", 1)
                $pos1 = MouseGetPos()
                MouseClickDrag("left", -5, 875, 1925, 875, 0)
                MouseMove($Pos1[0], $Pos1[1], 0)
                WinSetState("[Class:AutoIt v3 GUI]", "", @SW_HIDE)
                ControlShow('','', WinGetHandle("[CLASS:Button]"))
                WinSetTrans("[Class:Shell_TrayWnd]", "", 255)
                WinSetOnTop("[Class:MozillaWindowClass]", "", 1)
                EndIf
            EndIf
        EndIf
    EndIf
EndIf

    $Thumbnail = WinGetState("[Class:TaskListThumbnailWnd]", "")
    $Nofication = WinGetState("[Class:NotifyIconOverflowWindow]", "")
Find_Taskbar()

if $task=0 Then
        if $TaskbarHover=1 and WinActive("Start menu") or WinActive("[Class:TaskListThumbnailWnd]") or BitAnd($Thumbnail, 2) or BitAnd($Nofication, 2) Then
        elseIf $pos[0] >=1985 or $pos[0]<=1920 and $TaskbarHover=1 Then
        $TaskbarHover=0
        WinSetTrans("[Class:Shell_TrayWnd]", "", 0)
        ControlHide('','', WinGetHandle("[CLASS:Button]"))
        WinSetState("[Class:AutoIt v3 GUI]", "", @SW_SHOW)
        winflash("[Class:AutoIt v3 GUI]", "", 2, 0)
    EndIf
    EndIf
        
If $task=1 Then
        if $TaskbarHover=1 and WinActive("Start menu") or WinActive("[Class:TaskListThumbnailWnd]") or BitAnd($Thumbnail, 2) or BitAnd($Nofication, 2) Then
        elseIf $pos[0] <=-65 or $pos[0]>=0 and $TaskbarHover=1 Then
        $TaskbarHover=0
        WinSetTrans("[Class:Shell_TrayWnd]", "", 0)
        ControlHide('','', WinGetHandle("[CLASS:Button]"))
        WinSetState("[Class:AutoIt v3 GUI]", "", @SW_SHOW)
        winflash("[Class:AutoIt v3 GUI]", "", 2, 0)
        EndIf
    EndIf

Func Find_Taskbar()
    ; Find taskbar
    Local $iPrevMode = AutoItSetOption("WinTitleMatchMode", 4)
    Local $aTaskBar_Pos = WinGetPos("classname=Shell_TrayWnd")
    AutoItSetOption("WinTitleMatchMode", $iPrevMode)
    ; Determine position of taskbar
    If $aTaskBar_Pos[0] > 0 Then
        ; TaskBar at RIGHT
        If $aTaskBar_Pos[0] > @DesktopWidth - $aTaskBar_Pos[2] Then
            $task=0
        Else
           $task=0
        EndIf
    ElseIf $aTaskBar_Pos[3] = @DesktopHeight Then
        ; TaskBar at LEFT
        If $aTaskBar_Pos[0] < 0 Then
            $task=1
        Else
            $task=1
        EndIf
    EndIf
EndFunc

Well it works but the click+drag is rather slow and sluggish Gives more the impression there is 2 taskbar being moved rather then 2 taskbars appearing when hovered over

**Edited A fully working model with little bugs, will work for Windows 7 32 Bit, 3 Screens 1920x1080 each, Mainscreen = Center

***Edited again for improved taskbar detection, i will go though it later to see if i can remove any ifs or improve the code

***Edited the code again, spent 2 hours completely re-writing the script. Improved performance, before it was 1 cpu its now 0 cpu as well as less ram, lines of code and more functions as well. Enjoy

expandcollapse popup

#NoTrayIcon
local $taskbarhovered=1
$hGUI = GUICreate("", 0, 0)
GUISetState()
WinSetState("[Class:AutoIt v3 GUI]", "", @SW_MINIMIZE)

While 1
sleep(250)
$size = WinGetPos("[Class:Shell_TrayWnd]")
$pos = MouseGetPos()
if $pos[0] < 0 Then
   if $pos[0] > -60 Then
    sleep(150)
     $pos = MouseGetPos()
     if $pos[0] < 0 and $pos[0] > -60 and $TaskbarHovered=0 Then
      if $size[0] < 0 then
      $TaskbarHovered=1
      Show()
      Else
      $TaskbarHovered=1
      WinSetTrans("[Class:Shell_TrayWnd]", "", 1)
      $pos1 = MouseGetPos()
      MouseClickDrag("left", 1925, 875,-5, 875, 0)
      MouseMove($Pos1[0], $Pos1[1], 0)
      Show()
      EndIf
     EndIf
    Elseif $pos[1] < 30 then
   MsgBox(4096, "Test", "This is for IE not yet programmed", 10)
  Else
   $Thumbnail = WinGetState("[Class:TaskListThumbnailWnd]", "")
   $Nofication = WinGetState("[Class:NotifyIconOverflowWindow]", "")
   if $TaskbarHovered=1 and WinActive("Start menu") or WinActive("[Class:TaskListThumbnailWnd]") or BitAnd($Thumbnail, 2) or BitAnd($Nofication, 2)  Then
   Else
   If $TaskbarHovered = 1 and $pos[0] <-400 and $size[0] < 0 Then
    $TaskbarHovered = 0
    Hide()
   EndIf
   EndIf
  EndIf
Else
   If $TaskbarHovered = 1 and $size[0] < 0 Then
    $TaskbarHovered = 0
    Hide()
   EndIf
  EndIf
if $pos[0] > 1920 Then
   if $pos[0] < 1980 Then
    sleep(150)
     $pos = MouseGetPos()
     if $pos[0] > 1920 and $pos[0] < 1980 and $TaskbarHovered=0 Then
      if $size[0] > 0 Then
      $TaskbarHovered=1
      Show()
      Else
      $TaskbarHovered=1
      WinSetTrans("[Class:Shell_TrayWnd]", "", 1)
      $pos1 = MouseGetPos()
      MouseClickDrag("left", -5, 875, 1925, 875, 0)
      MouseMove($Pos1[0], $Pos1[1], 0)
      Show()     
      EndIf
     EndIf
    Elseif $pos[1] < 30 and $size[0] > 0  then
   MsgBox(4096, "Test", "This is for Firefox not yet programmed", 10)
  Else
   $Thumbnail = WinGetState("[Class:TaskListThumbnailWnd]", "")
   $Nofication = WinGetState("[Class:NotifyIconOverflowWindow]", "")
   if $TaskbarHovered=1 and WinActive("Start menu") or WinActive("[Class:TaskListThumbnailWnd]") or BitAnd($Thumbnail, 2) or BitAnd($Nofication, 2)  Then
   Else
   If $TaskbarHovered = 1 and $pos[0] < 2320 and $size[0] > 0  Then
    $TaskbarHovered = 0
    Hide()
   EndIf
   EndIf
  EndIf
Else
   If $TaskbarHovered = 1 and $size[0] > 0  Then
    $TaskbarHovered = 0
    Hide()
   EndIf
  EndIf
WEnd
 
 
 
Func Hide ()
WinSetTrans("[Class:Shell_TrayWnd]", "", 0)
ControlHide('','', WinGetHandle("[CLASS:Button]"))
WinSetState("[Class:AutoIt v3 GUI]", "", @SW_SHOW)
Winflash("[Class:AutoIt v3 GUI]", "", 2, 0)
EndFunc
func Show ()
WinSetState("[Class:AutoIt v3 GUI]", "", @SW_HIDE)
ControlShow('','', WinGetHandle("[CLASS:Button]"))
WinSetTrans("[Class:Shell_TrayWnd]", "", 255)
WinSetOnTop("[Class:MozillaWindowClass]", "", 1)
EndFunc

Edited December 3, 2011 by IanN1990