Jump to content

Recommended Posts

nitekram

I am trying to do something, but it appears that I am having issues with trying to get the right functions called, in the right order.

What I want to do is move a window to a certain position and then move it back, but as stated, the order appears to be an issue, as if the window is minimized, the wingetclientsize is not able to pull the info, not is the wingetpos. It appears to be able to get the size and position of the window in question is activated, but I have to activate it first, but that defeats the purpose, as once activated, the functions called to get the position and size, are not correct, as the screen is now active. I have tried to use wingetstate, to get the state first, but I am not sure how to move the window back to the original location with the right state.

If window is minimized, I want it to go back to minimized state, as well as keeping the window size the same, so if the user activates the window, the user does not have to resize it.

If the window is active and is on another screen, it appears I do not have the same issue.

Here is my attempt, but I have tried other combinations. Has anyone got an idea on how to resolve this issue?

Func MoveVNC($Move)
    CreateLogEntry("Called MoveVNC($Move) $Move = " & $Move)
    Local $aStartBar = StartBar()
    Local $bMove = False
    Local $VNC = 'NAMEOFWINDOW'
    Static $aWin_VNC_Pos = ''
    Static $iWin_VNC_State = ''
    Static $aWin_VNC_Size = ''

    #cs
        ;$aWin_VNC_Pos = WinGetPos($VNC, '')
        MsgBox('','VNC POS','')
        _ArrayDisplay(WinGetPos($VNC, ''))
        MsgBox('','VNC STATE',WinGetState($VNC, ''))
        WinActivate($VNC)
        Sleep(20)
        WinWaitActive($VNC, '', 10)
        Sleep(20)
        Local $aSize = WinGetClientSize($VNC, '')
        MsgBox('','VNC SIZE','')
        _ArrayDisplay($aSize)
    #ce


    If $Move = 'Get' Then
        Opt("WinTitleMatchMode", -1) ;1=start, 2=subStr, 3=exact, 4=advanced, -1 to -4=Nocase
        If WinExists($VNC) Then
            WinActivate($VNC)
            Sleep(20)
            WinWaitActive($VNC, '', 10)
            Sleep(20)

            $aWin_VNC_Pos = WinGetPos($VNC, '')
            Sleep(20)
            ;_ArrayDisplay($aWin_VNC_Pos, '$aWin_VNC_Pos')

            $iWin_VNC_State = WinGetState($VNC, '')
            Sleep(20)

            $aWin_VNC_Size = WinGetClientSize($VNC, '')
            ;_ArrayDisplay($aWin_VNC_Size)
            ;MsgBox('','$VNC',$VNC)


            ;MsgBox('', '$iWin_VNC_State', $iWin_VNC_State)
            ;WinSetState($VNC, '', @SW_MAXIMIZE)
            ;Sleep(20)

            WinMove($VNC, '', 0, 0, 1600, 950) ;  - (3 * $aStartBar[3])
            Sleep(20)

            ;MouseClick('Left', 1764, 174)
            $bMove = True
        Else
            MsgBox($MB_TOPMOST, 'ERROR GET', 'Window ' & $VNC & ' Does not exists - VNC is not running!')
        EndIf

        If Not $bMove Then
            CreateLogEntry("MoveVNC(GET) FAILED")
            Return False
        Else
            CreateLogEntry("MoveVNC(GET) PASSED")
            Return True
        EndIf
    ElseIf $Move = 'Put' Then
        CreateLogEntry("Called MoveVNC($Move) $Move = " & $Move)
        If WinExists($VNC) Then

            ;WinSetState($VNC, '', @SW_RESTORE)
            ;If @error Then MsgBox('', '', @error)
            ;Sleep(20)
            WinMove($VNC, '', $aWin_VNC_Pos[0], $aWin_VNC_Pos[1], $aWin_VNC_Pos[2], $aWin_VNC_Pos[3])
            If @error Then MsgBox('', '', @error)
            Sleep(20)
            ;WinSetState($VNC, '', $iWin_VNC_State)
            ;If @error Then MsgBox('', 'Not setting state', @error & ' ' & $VNC)
            ;Sleep(20)
            $bMove = True
        Else
            MsgBox($MB_TOPMOST, 'ERROR PUT', 'Window ' & $VNC & ' Does not exists - VNC is not running!')
        EndIf

        If Not $bMove Then
            CreateLogEntry("MoveVNC(PUT) FAILED")
            Return False
        Else
            CreateLogEntry("MoveVNC(PUT) PASSED")
            Return True
        EndIf
    EndIf
    CreateLogEntry("    Returned from MoveVNC()")
EndFunc   ;==>MoveVNC

 


All by me:

"Sometimes you have to go back to where you started, to get to where you want to go." 

"Everybody catches up with everyone, eventually" 

"As you teach others, you are really teaching yourself."

From my dad

"Do not worry about yesterday, as the only thing that you can control is tomorrow."

 

WindowsError.gif

WIKI | Tabs; | Arrays; | Strings | Wiki Arrays | How to ask a Question | Forum Search | FAQ | Tutorials | Original FAQ | ONLINE HELP | UDF's Wiki | AutoIt PDF

AutoIt Snippets | Multple Guis | Interrupting a running function | Another Send

StringRegExp | StringRegExp Help | RegEXTester | REG TUTOR | Reg TUTOT 2

AutoItSetOption | Macros | AutoIt Snippets | Wrapper | Autoit  Docs

SCITE | SciteJump | BB | MyTopics | Programming | UDFs | AutoIt 123 | UDFs Form | UDF

Learning to script | Tutorials | Documentation | IE.AU3 | Games? | FreeSoftware | Path_Online | Core Language

Programming Tips

Excel Changes

ControlHover.UDF

GDI_Plus

Draw_On_Screen

GDI Basics

GDI_More_Basics

GDI Rotate

GDI Graph

GDI  CheckExistingItems

GDI Trajectory

Replace $ghGDIPDll with $__g_hGDIPDll

DLL 101?

Array via Object

GDI Swimlane

GDI Plus French 101 Site

GDI Examples UEZ

GDI Basic Clock

GDI Detection

Ternary operator

Share this post


Link to post
Share on other sites
MilesAhead

There may be a clue in the remarks for WinGetClientSize.  It says minimized windows return 0s for the client measurements.  However non-minimized hidden windows return the correct dimensions.  You could try hiding the minimized windows then setting their state to normal after moving them off screen.  Never did it myself but there must be a way to "restore" a minimized window invisibly and move it out of the screen area without flicker.

I have never had a multi-monitor setup so I can't help with that aspect(no pun intended.)

 

Share this post


Link to post
Share on other sites
nitekram

So I am still testing, but there needs to be a change in the help file, unless the window is activated first, the hiding of it makes no difference - meaning you will still get ZEROs for a hidden window, which means you have to activate it first (bring window up) then Hide it?

 

I have found these, but not sure if it pertains to this, and if so, is this the type of code that Autoit is using?
http://stackoverflow.com/questions/2766709/minimized-window-position-in-wpf

http://stackoverflow.com/questions/5531548/how-to-restore-a-minimized-window-in-code-behind

 

I have created this code below, and it appears to work, though I do not like the flashing screens - using double monitors...are the links above something that will help find info for even minimized windows?

 

Func MoveVNC($Move)

    CreateLogEntry("Called MoveVNC($Move) $Move = " & $Move)
    Local $aStartBar = StartBar()
    Local $bMove = False
    Local $VNC = 'name' ;|0x052D1378
    Static $aWin_VNC_Pos = ''
    Static $iWin_VNC_State = ''
    Static $aWin_VNC_Size = ''

    If $Move = 'Get' Then
        Opt("WinTitleMatchMode", -1) ;1=start, 2=subStr, 3=exact, 4=advanced, -1 to -4=Nocase
        If WinExists($VNC) Then
            $iWin_VNC_State = WinGetState($VNC, '')
            ;MsgBox('','Window State',$iWin_VNC_State)
            WinActivate($VNC, '')
            WinWaitActive($VNC, '', 10)
            If @error Then
                MsgBox(0, 'ERROR 0', 'Window timed out or does not exist')
                Return
            EndIf

            WinSetState($VNC, '', @SW_HIDE)
            $aWin_VNC_Pos = WinGetPos($VNC, '')
            Sleep(20)
            WinSetState($VNC, '', @SW_SHOW)
            WinMove($VNC, '', 0, 0, 1600, 950) ; MAX size for the VNC Client - for larger, it would have to be changed on the VNC Server
            $bMove = True
        Else
            MsgBox($MB_TOPMOST, 'ERROR GET', 'Window ' & $VNC & ' Does not exists - VNC is not running!')
        EndIf

        If Not $bMove Then
            CreateLogEntry("MoveVNC(GET) FAILED")
            Return False
        Else
            CreateLogEntry("MoveVNC(GET) PASSED")
            Return True
        EndIf
    ElseIf $Move = 'Put' Then
        CreateLogEntry("Called MoveVNC($Move) $Move = " & $Move)
        If WinExists($VNC) Then

            If $iWin_VNC_State = 23 Then ; if minimized, set size preexisting size and then minimize
                WinMove($VNC, '', $aWin_VNC_Pos[0], $aWin_VNC_Pos[1], $aWin_VNC_Pos[2], $aWin_VNC_Pos[3])
                WinSetState($VNC, '', @SW_MINIMIZE)
            Else
                ; just put the window in its previous location
                WinMove($VNC, '', $aWin_VNC_Pos[0], $aWin_VNC_Pos[1], $aWin_VNC_Pos[2], $aWin_VNC_Pos[3])
            EndIf
            $bMove = True
        Else
            MsgBox($MB_TOPMOST, 'ERROR PUT', 'Window ' & $VNC & ' Does not exists - VNC is not running!')
        EndIf
        Opt("WinTitleMatchMode")
        If Not $bMove Then
            CreateLogEntry("MoveVNC(PUT) FAILED")
            Return False
        Else
            CreateLogEntry("MoveVNC(PUT) PASSED")
            Return True
        EndIf
    EndIf
    CreateLogEntry("    Returned from MoveVNC()")
EndFunc   ;==>MoveVNC

If anyone can improve this, I would be grateful!

Edited by nitekram

All by me:

"Sometimes you have to go back to where you started, to get to where you want to go." 

"Everybody catches up with everyone, eventually" 

"As you teach others, you are really teaching yourself."

From my dad

"Do not worry about yesterday, as the only thing that you can control is tomorrow."

 

WindowsError.gif

WIKI | Tabs; | Arrays; | Strings | Wiki Arrays | How to ask a Question | Forum Search | FAQ | Tutorials | Original FAQ | ONLINE HELP | UDF's Wiki | AutoIt PDF

AutoIt Snippets | Multple Guis | Interrupting a running function | Another Send

StringRegExp | StringRegExp Help | RegEXTester | REG TUTOR | Reg TUTOT 2

AutoItSetOption | Macros | AutoIt Snippets | Wrapper | Autoit  Docs

SCITE | SciteJump | BB | MyTopics | Programming | UDFs | AutoIt 123 | UDFs Form | UDF

Learning to script | Tutorials | Documentation | IE.AU3 | Games? | FreeSoftware | Path_Online | Core Language

Programming Tips

Excel Changes

ControlHover.UDF

GDI_Plus

Draw_On_Screen

GDI Basics

GDI_More_Basics

GDI Rotate

GDI Graph

GDI  CheckExistingItems

GDI Trajectory

Replace $ghGDIPDll with $__g_hGDIPDll

DLL 101?

Array via Object

GDI Swimlane

GDI Plus French 101 Site

GDI Examples UEZ

GDI Basic Clock

GDI Detection

Ternary operator

Share this post


Link to post
Share on other sites
MilesAhead

So I am still testing, but there needs to be a change in the help file, unless the window is activated first, the hiding of it makes no difference - meaning you will still get ZEROs for a hidden window, which means you have to activate it first (bring window up) then Hide it?

I was thinking more along the lines of WinSetState using @SW_RESTORE, then hiding it or moving it off screen.  The idea being it may be less of a flicker than activation.  But since I haven't had a need to do this I would have to experiment just as you are.  No real time saving there I'm afraid.

 

Edited by MilesAhead

Share this post


Link to post
Share on other sites
nitekram

That really does the same thing as activating the screen (as far as I was able to see), so really no change that I noticed.

 


All by me:

"Sometimes you have to go back to where you started, to get to where you want to go." 

"Everybody catches up with everyone, eventually" 

"As you teach others, you are really teaching yourself."

From my dad

"Do not worry about yesterday, as the only thing that you can control is tomorrow."

 

WindowsError.gif

WIKI | Tabs; | Arrays; | Strings | Wiki Arrays | How to ask a Question | Forum Search | FAQ | Tutorials | Original FAQ | ONLINE HELP | UDF's Wiki | AutoIt PDF

AutoIt Snippets | Multple Guis | Interrupting a running function | Another Send

StringRegExp | StringRegExp Help | RegEXTester | REG TUTOR | Reg TUTOT 2

AutoItSetOption | Macros | AutoIt Snippets | Wrapper | Autoit  Docs

SCITE | SciteJump | BB | MyTopics | Programming | UDFs | AutoIt 123 | UDFs Form | UDF

Learning to script | Tutorials | Documentation | IE.AU3 | Games? | FreeSoftware | Path_Online | Core Language

Programming Tips

Excel Changes

ControlHover.UDF

GDI_Plus

Draw_On_Screen

GDI Basics

GDI_More_Basics

GDI Rotate

GDI Graph

GDI  CheckExistingItems

GDI Trajectory

Replace $ghGDIPDll with $__g_hGDIPDll

DLL 101?

Array via Object

GDI Swimlane

GDI Plus French 101 Site

GDI Examples UEZ

GDI Basic Clock

GDI Detection

Ternary operator

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

  • Similar Content

    • jantograaf
      By jantograaf
      Hi all,
      I'm having some trouble restoring a program which uses a normal AutoIT-GUI and is used as a ToolKit for our customers to open different (external) tools, check their network connections or ping different destinations. Almost all customers are running this script on Win7 x64. 
      What do I want to do?
      When the program is already running and the user tries to start it for a second time, it should exit the second instance after activating/restoring the first instance.
      What did I do to integrate this?
      I used a little piece of script found on the forums to prevent opening a second instance and modified it as follows:
      $g_szVersion = "VSOL ToolKit" If WinExists($g_szVersion) Then Local $gState = WinGetState($g_szVersion) MsgBox(0,"","gState = " & $gState) ;For debugging purposes WinSetState($g_szVersion,"",@SW_SHOW) MsgBox(0,"","gState = " & $gState) ;For debugging purposes WinSetState($g_szVersion,"",@SW_RESTORE) MsgBox(0,"","gState = " & $gState) ;For debugging purposes WinActivate($g_szVersion) Exit EndIf AutoItWinSetTitle($g_szVersion) I have tried it with only the @SW_SHOW, only the @SW_RESTORE, both of them in a different order, same difference, it doesn't work.
      What does happen then?
      It detects the current state (when it's minimized) as '5', which means enabled and hidden. After setting the state to show, the state changes to 7. Restoring doesn't change the state. But what is really odd, is that the window doesn't appear but AutoIt seems to create a néw window with the same title as the existing one. 

      It doesn't matter if the window was originally minimized by clicking the minimize button in the GUI or by a line of code in my script. For example, when users open a software package from within my script, a similar function to this one will be called:
      Func VSOL_FFTOOLS_SHOW_DOWNLOADS() GUISetState(@SW_MINIMIZE,$VSOL_BACKEND) ShellExecute(@UserProfileDir & "\Downloads") EndFunc The only thing that does work, is when the window is running in a non-minimized state (somewhere behind the current window), it gets activated and receives the focus when trying to start the second instance.
      If anyone could help me out with this one, I'd be forever thankful :-)
      Thanks in advance!
      Kind regards,
      Jan Geurts
    • AndyK70
      By AndyK70
      I'm trying to fill a ListView with all normal viewable windows to act with them.
      First I tried with WinList:
      Local $aWinList = WinList("[REGEXPTITLE:(?i)(.+)]") Local $aTmp, $iID ;~ _ArrayDisplay($aWinList) For $i = $aWinList[0][0] To 1 Step -1 ; going backwards not disturbing the index while cycling through and deleting some If StringStripWS( $aWinList[$i][0], 3) == "" Or _ Not BitAND(WinGetState($aWinList[$i][1]), $WIN_STATE_VISIBLE) Or _ BitAND(WinGetState($aWinList[$i][1]), $WIN_STATE_MINIMIZED ) Then _ArrayDelete($aWinList, $i) Else ; Window has a Title and is "visible" $aTmp = WinGetPos($aWinList[$i][1]) If $aTmp[0] < -1000 Or $aTmp[1] < -1000 Then ; Window is minimized or tray icon _ArrayDelete($aWinList, $i) EndIf EndIf Next $aWinList[0][0] = UBound($aWinList)-1 ; getting actual # of windows ; Each row is now [ID]=> [Title], [hWnd] But it keeps getting Windows which are definitely not there at least not visible:

      Those windows "Rechner", "Einstellungen", "Netflix", "Microsoft Store", ... are not there!?! 
      It should list only the first three windows, which are real.
      I even tried it with _WinAPI_ UDF:
      $hWnd = _WinAPI_GetForegroundWindow() ; Add items _GUICtrlListView_BeginUpdate($idListview) If $hWnd <> 0 Then $iI = 0 Do If _WinAPI_IsWindow($hWnd) And _WinAPI_IsWindowVisible Then _GUICtrlListView_AddItem($idListview, WinGetTitle($hWnd)) _GUICtrlListView_AddSubItem($idListview, $iI, $hWnd, 1) $iI += 1 $hWnd = _WinAPI_GetWindow($hWnd, $GW_HWNDNEXT) EndIf Until $hWnd = 0 EndIf But it is the same...
       
      How can i distinguish those invisible windows from normal ones?
      PS: I'm using Windows 10, maybe it is important to know?
    • davidacrozier
      By davidacrozier
      I am attempting to drag and drop a file from one windows explorer window to another windows explorer window (henceforth referred to as window1 and window2).  I am not using the web.  I have used autowinexp.au3 (taken from LarsJ's automatewindowsexplorer.au3) to give focus (function GetFileFocus)  to a file on window1.   The problem is that sometimes the file with the focus is not displayed on window1 because it is farther down the list than what is displayed in window1.  There are other ways to accomplish this (like copy and paste) but I want to emulate the GUI doing a drag and drop.  I work as a digital forensicator and my task is to examine what artifacts are left behind on move/copy vs a drag and drop.  Please note that when I open window1 and window2 they are on top of each other, so I drag window2 over about 1150 pixels and that part works great.    
      My code is listed below.  Please understand that I have tried several different methods to accomplish this task.  The last one was to estimate that the top of the window1 header is approximately 320 pixels and to multiply the index of the file by 20 pixels since that appears to be the approximate height of individual files using the AutoIT Windows Info tool.  Ideally the program would search window1 for the file name text and provide a mouse position for it.  Or the program would allow me to scroll to where the file name is located.  Any and all ideas are welcome.
      Using Windows 10
      AutoIT v3.3.14.2
      Thanks!
      DavidaCrozier
      PS Any problems in autowinexp.au3 are mine and not the author of automatewindowsexplorer.au3.  
       
      DragAndDropForum.au3
      autowinexp.au3
    • PeteF
      By PeteF
      Full script w/details in comments below, just in case you need to run it to see the problem.  Basically WinGetPos is incorrectly returning the W & H sizes, while at the same time correctly returning the positions. To compound the problem, I ran the same script on 2 different PCs and it gets2 different results as follows:
      Win7 Pro PC.. GUICreate used to set W:300, H:100.       WinGetPos returns W:307, H:127  (PC screen res: 1366x768)
      WinXP PC..... GUICreate used to set W:300, H:100.       WinGetPos returns W:308, H:134   (PC screen res: 1152x864)
      The bigger problem occurs when you consider I want to save the Window sizes and recreate the window at a later date. but due to this problem, each time I ran the program the Window would get larger and larger.    --pete
      #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> ; SCRIPT DESC.: Simple script here. Create & display one Window of a specific ; size & position. This Window is always ON TOP of other windows. ; User may resize the window to cover up unwanted content (as in use with a Web-Browser). ; Upon user closing the Window, DEBUG msgbox in script returns window size & position ; to be used in further development of this script. ; ; PROBLEM: If user does not resize the Window and simply clicks "X" to close the window, ; the DEBUG msgbox is reporting the wrong SIZES. It's actually the AutoIt WinGetPos ; function that is returning correct positions, but incorrectly returning the sizes. ; It should be returning 300 (W), 100 (H), but it's incorrectly returning 307 (W), 127 (H) ; _MAIN() Func _MAIN() ;Local $sFilePath = "..\GUI\logo4___.gif" Local $l_SizeWidth_1, $l_SizeHeight_1, $l_PosLeft_1, $l_PosTop_1 ; Defaults for Window 1 Size and Position $l_SizeWidth_1 = 300 $l_SizeHeight_1 = 100 $l_PosLeft_1 = 50 $l_PosTop_1 = 50 ; Create re-sizable GUI window/form that is blank with a black background and stays on TOP over over windows. Local $hGUI = GUICreate("COVER UNWANTED CONTENT", $l_SizeWidth_1, $l_SizeHeight_1, $l_PosLeft_1, $l_PosTop_1, _ $WS_OVERLAPPEDWINDOW, $WS_EX_TOPMOST) ; Black Background GUISetBkColor(0x000000) ;GUICtrlCreatePic("..\GUI\msoobe.jpg", 0, 0, 400, 100) ; Display the GUI. GUISetState(@SW_SHOW, $hGUI) ; Create a picture control with a transparent image. ;GUICtrlCreatePic($sFilePath, 0, 0, 169, 68) ; Display the Window GUISetState(@SW_SHOW) ; Loop until the user exits. While 1 Switch GUIGetMsg() ; CASE IF USER X's out, CLOSE THE WINDOWS & QUIT Case $GUI_EVENT_CLOSE ExitLoop ; CASE Open a second window EndSwitch WEnd ; Obtain the window(s) Size & Positions _WindowPositionAndSize($hGUI) ; Save the window(s) size & positions ; TBD ; Delete the previous GUIs and all controls. GUIDelete($hGUI) EndFunc ;==>_MAIN Func _WindowPositionAndSize($WindowID) ; Retrieve the position as well as height and width of the window. Local $aPos = WinGetPos($WindowID) ; DEBUG msgbox ; Display the array values returned by WinGetPos. MsgBox(0, "", "X-Pos: " & $aPos[0] & @CRLF & _ "Y-Pos: " & $aPos[1] & @CRLF & _ "Width: " & $aPos[2] & @CRLF & _ "Height: " & $aPos[3] ) ; DEBUG notes ; Width 300 off by a factor of.. 0.9740261 ; Height 100 off by a factor of.. 0.7874017 ; I was hoping to add in some correction factors, but thse factors ; change dramatically at different Width & Height settings. Need a better fix! EndFunc ;==>_WindowPositioAndSize  
       
    • Reizvoller
      By Reizvoller
      Func workSpaceSetup () ConsoleWrite ("workSpaceSetup" &@CRLF) $workSpace = WinGetHandle ("some site - Google Chrome") ConsoleWrite ($workSpace&@CRLF) $pos1 = WinGetPos ($workSpace) WinMove ($workSpace , "", $pos1[0] , $pos1[1] , 1366, 768, 0) EndFunc So the script is first, the error I get is second in the quote.
      This is one function of many for an app I am building but it is the first one that runs so I know there aren't other things at play here.
      The idea is to keep the window in the same space it is when the script runs but just resize it as this app is used across multiple computers with different screen resolutions.
      Could someone please elaborate upon what "Subscript used on non-accessible variable" means? 
      Oh and the variable is declared as "Global $pos1 = 0" at the top outside of any functions with the other global variables.
      Any advice would be greatly appreciated!
      -Reiz
×