How do I close some pop ups that appear and their positions always move. - (Moved)

[haripurnanto]

Hi Everyone,

I have Splitter App as attached.

I want to ask, how do I close some pop ups that appear and their positions always move.

Thank you for your attention and cooperation.

Regards,
Hari 

Swift Splitter Incoming 3.0.jfif

[Melba23]

Moved to the appropriate forum.

And this is the second time we have had to do this - please post in the correct section in future.

Moderation Team

Edited December 18, 2021 by Melba23

[ad777]

expandcollapse popup

Global $aListe;
Global $ADD
Global $data
Global $xw
Global $sae  = 1 ? 1;;true
Global $st
           Global $Prev,$Preva;
           ;SWIFT Splitter 3.0 (incoming) <- title of window
           ;MessageBox Text <- "MT9xx Parser Canceled!"
           _NoMessage("SWIFT Splitter 3.0 (incoming)","MT9xx Parser Canceled!")
           ;this code made by Ad777
           ;$TextIn; the text inside MessageBox
           ;$Window Title :the title of window(not MessageBox Title)
Func _NoMessage($WindowTitle,$TextIn,$class = "Static")
    WinWaitActive($WindowTitle)
     While 1
        if WinActive($WindowTitle) Then
        $aListe = WinList();
               For $iae = 1 To $aListe[0][0] Step 1

                      If $aListe[$iae][0] <> "" And BitAND(WinGetState($aListe[$iae][1]), 2) Then
                         if $aListe[$iae][0] = $WindowTitle Then
                            $ADD &= $aListe[$iae-1][0]
                         EndIf
                  $Preva &= $aListe[$iae][0];;
                  $xw =$ADD
                          For $i = 0 To 15 Step 1
                  if ControlGetText($xw,"",$class&$i) = $TextIn And WinActive($xw) Then

    WinKill($xw)
 EndIf
 Next
                  EndIf
               Next
                   if $sae = 1  Then
                   $Prev = $Preva ;;;
                $sae = 1 ? 0;false
                   EndIf
                   if _WindowIn($WindowTitle) = 1 Then
                       if $Preva = $Prev  Then
;;;if it's equal do stufff

             EndIf
          EndIf
                    ;          $state = "off"

$iae = 0
               $Preva = ""

               $ADD = ""
  if _WindowIn($WindowTitle) = 0 Then
     $Prev = "";
               Local $aList = WinList()
    For $i = 1 To $aList[0][0]
        If $aList[$i][0] <> "" And BitAND(WinGetState($aList[$i][1]), 2) Then
           $Prev &= $aList[$i][0]
EndIf
    Next
 EndIf
 EndIf
WEnd
EndFunc

 Func _WindowIn($MainGui)

 $PX = MouseGetPos()[0]
   $WX = WinGetPos($MainGui)[0]
   $PY = MouseGetPos()[1]
   $WY = WinGetPos($MainGui)[1]
local $Wd = WinGetClientSize($MainGui)[0]+$WX+2
local $Wh = WinGetClientSize($MainGui)[1]+$WY+25
local $Wh2 = WinGetClientSize($MainGui)[1]-$Wh
if  $PX >= $WX  and $PY >= $WY+26 and $PY < $Wh And $PY > $Wh2 and $PX <= $Wd then; And $WY <$PY Then
Return 1
 Else
 Return 0
EndIf
EndFunc

 

[Danp2]

@haripurnantoHow is this question different from your prior one?

[haripurnanto]

Hi Danp2, 

I'm sorry before, that the previous question was not quite right and this second question is correct.

Regards,
Hari

[haripurnanto]

Hi ad777,

Thank you very much for helping me in making AutoIT scripts, when I tried it, the error still appeared.

Regards,
Hari

[ad777]

srry the code was little mistake (winactive): here it's fixed! make sure the title & text in correct!

expandcollapse popup

Global $aListe;
Global $ADD
Global $data
Global $xw
Global $sae  = 1 ? 1;;true
Global $st
           Global $Prev,$Preva;
           ;SWIFT Splitter 3.0 (incoming) <- title of window
           ;MessageBox Text <- "MT9xx Parser Canceled!"
           _NoMessage("SWIFT Splitter 3.0 (incoming)","MT9xx Parser Canceled!")
           ;this code made by Ad777
           ;$TextIn; the text inside MessageBox
           ;$Window Title :the title of window(not MessageBox Title)
Func _NoMessage($WindowTitle,$TextIn,$class = "Static")
    ;WinWaitActive($WindowTitle)
     While 1
       ; if WinActive($WindowTitle) Then
        $aListe = WinList();
               For $iae = 1 To $aListe[0][0] Step 1

                      If $aListe[$iae][0] <> "" And BitAND(WinGetState($aListe[$iae][1]), 2) Then
                         if $aListe[$iae][0] = $WindowTitle Then
                            $ADD &= $aListe[$iae-1][0]
                         EndIf
                  $Preva &= $aListe[$iae][0];;
                  $xw =$ADD
                          For $i = 0 To 15 Step 1
                  if ControlGetText($xw,"",$class&$i) = $TextIn And WinActive($xw) Then
    WinKill($xw)
 EndIf
 Next
                  EndIf
               Next
                   if $sae = 1  Then
                   $Prev = $Preva ;;;
                $sae = 1 ? 0;false
                   EndIf
                   if _WindowIn($WindowTitle) = 1 Then
                       if $Preva = $Prev  Then
;;;if it's equal do stufff

             EndIf
          EndIf
                    ;          $state = "off"

$iae = 0
               $Preva = ""

               $ADD = ""
  if _WindowIn($WindowTitle) = 0 Then
     $Prev = "";
               Local $aList = WinList()
    For $i = 1 To $aList[0][0]
        If $aList[$i][0] <> "" And BitAND(WinGetState($aList[$i][1]), 2) Then
           $Prev &= $aList[$i][0]
EndIf
    Next
 EndIf
; EndIf
WEnd
EndFunc

 Func _WindowIn($MainGui)

 $PX = MouseGetPos()[0]
   $WX = WinGetPos($MainGui)[0]
   $PY = MouseGetPos()[1]
   $WY = WinGetPos($MainGui)[1]
local $Wd = WinGetClientSize($MainGui)[0]+$WX+2
local $Wh = WinGetClientSize($MainGui)[1]+$WY+25
local $Wh2 = WinGetClientSize($MainGui)[1]-$Wh
if  $PX >= $WX  and $PY >= $WY+26 and $PY < $Wh And $PY > $Wh2 and $PX <= $Wd then; And $WY <$PY Then
Return 1
 Else
 Return 0
EndIf
EndFunc

 

Edited December 18, 2021 by ad777

[Danp2]

Ok. But instead of abandoning the prior thread, you could have replied to the forum members that tried to assist you and provided additional details. 🙂