Jump to content

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


Recommended Posts

  • Moderators

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 by Melba23

Public_Domain.png.2d871819fcb9957cf44f4514551a2935.png Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind

Open spoiler to see my UDFs:

Spoiler

ArrayMultiColSort ---- Sort arrays on multiple columns
ChooseFileFolder ---- Single and multiple selections from specified path treeview listing
Date_Time_Convert -- Easily convert date/time formats, including the language used
ExtMsgBox --------- A highly customisable replacement for MsgBox
GUIExtender -------- Extend and retract multiple sections within a GUI
GUIFrame ---------- Subdivide GUIs into many adjustable frames
GUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView items
GUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeView
Marquee ----------- Scrolling tickertape GUIs
NoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxes
Notify ------------- Small notifications on the edge of the display
Scrollbars ----------Automatically sized scrollbars with a single command
StringSize ---------- Automatically size controls to fit text
Toast -------------- Small GUIs which pop out of the notification area

 

Link to post
Share on other sites
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

 

Link to post
Share on other sites

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

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 by ad777
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
  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...