Sign in to follow this  
Followers 0
Recce

Implementation of GUI stops script from processing

6 posts in this topic

I replaced an MsgBox with a GUI box, but the script stops after the GUI box, unlike the MsgBox?

Please help a noob!

Thomas

:)

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=S2G4.ico
#AutoIt3Wrapper_outfile=SHP2GPX.exe
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <ButtonConstants.au3>
#include "CustomMsgBox.au3"
#include <Misc.au3>
#Include <File.au3>
#include <Process.au3>

_Singleton("TheNameOfMyScript")
Opt("WinWaitDelay",100)
Opt("WinTitleMatchMode",2)
Opt("WinDetectHiddenText",1)
Opt("MouseCoordMode",0)
Opt("GUIOnEventMode", 1)  ; Change to OnEvent mode 



HotKeySet("{ESC}", "Exitkey") ; HotKey set to ESC
Func Exitkey()
    MsgBox(262192,"Mission Planning Utility","Du har afsluttet progammet ved at trykke på ""Esc"".")
    FileDelete("C:\Pfps\MPU\SHP2GPX\LOWRANCE.usr")
    FileDelete("C:\Pfps\MPU\SHP2GPX\*.gpx")
    FileDelete("C:\Pfps\MPU\SHP2GPX\*.gdb")
    FileSetTime ( "C:\Pfps\MPU\SHP2GPX\Input SHP\FalconView Shape - Overskriv denne fil.shp", "20031101010101" , "0", "0")
    Exit
EndFunc

;Tjek fil overskrevet _line
$tjek = FileGetTime ("C:\Pfps\MPU\SHP2GPX\Input SHP\FalconView Shape - Overskriv denne fil.shp" , "0" , "1" )
$realtime = 20031101010101
;Tjek fil overskrevet
If FileExists("C:\Pfps\MPU\SHP2GPX\Input SHP\FalconView Shape - Overskriv denne fil_line.shp") Then
    $tjek = 20081101010101
EndIf
;Tjek fil overskrevet _poly
If FileExists("C:\Pfps\MPU\SHP2GPX\Input SHP\FalconView Shape - Overskriv denne fil_poly.shp") Then
    $tjek = 20081101010101
EndIf


;Kildefilen er ikke opdateret MsgBox org
$ja = 0
If $tjek = $realtime Then $ja = MsgBox(262208, "Mission Planning Utility", "Kildefilen (tegningen) kan ikke findes!" & @CRLF & @CRLF & "Kontroller venligst følgende når tegningen gemmes i FalconView:  " & @CRLF & "- Sti:  C:\Pfps\MPU\SHP2GPX\Input SHP\FalconView Shape - Overskriv denne fil.shp " & @CRLF & "- Filtype:    Shape Files (*.shp) " & @CRLF & "- Overskriv den eksisterende fil " & @CRLF & @CRLF & "Program Afsluttet") 
If $ja = 1 Then 
    Exit
EndIf

If $tjek =0 Then 
    ;Cleaner input folder
    FileDelete("C:\Pfps\MPU\SHP2GPX\Input SHP\*.*")

    FileCopy("C:\Pfps\MPU\SHP2GPX\FalconView Shape - Overskriv denne fil.dbf_org", "C:\Pfps\MPU\SHP2GPX\Input SHP\FalconView Shape - Overskriv denne fil.dbf", "9")
    FileCopy("C:\Pfps\MPU\SHP2GPX\FalconView Shape - Overskriv denne fil.shp_org", "C:\Pfps\MPU\SHP2GPX\Input SHP\FalconView Shape - Overskriv denne fil.shp", "9")
    FileCopy("C:\Pfps\MPU\SHP2GPX\FalconView Shape - Overskriv denne fil.shx_org", "C:\Pfps\MPU\SHP2GPX\Input SHP\FalconView Shape - Overskriv denne fil.shx", "9")
    FileCopy("C:\Pfps\MPU\SHP2GPX\Desktop.ini_org", "C:\Pfps\MPU\SHP2GPX\Input SHP\Desktop.ini", "9")
    FileCopy("C:\Pfps\MPU\SHP2GPX\Husk! - Skift til - Shape Files (¤.shp).drw_org", "C:\Pfps\MPU\SHP2GPX\Input SHP\Husk! - Skift til - Shape Files (¤.shp).drw", "9")
    
    ;Sætter tid
    FileSetTime ( "C:\Pfps\MPU\SHP2GPX\Input SHP\FalconView Shape - Overskriv denne fil.shp", "20031101010101" , "0", "0")
    ;Melder fejl om fil
    MsgBox(262208, "Mission Planning Utility", "Kildefilen (tegningen) kan ikke findes!" & @CRLF & @CRLF & "Kontroller venligst følgende når tegningen gemmes i FalconView:  " & @CRLF & "- Sti:  C:\Pfps\MPU\SHP2GPX\Input SHP\FalconView Shape - Overskriv denne fil.shp " & @CRLF & "- Filtype:    Shape Files (*.shp) " & @CRLF & "- Overskriv den eksisterende fil " & @CRLF & @CRLF & "Program Afsluttet") 
    Exit
EndIf
; Slet Output GPX
FileDelete("C:\Pfps\MPU\SHP2GPX\Output GPX\MapSource GPX file.gpx")
;Global Mapper SHP-->C:\Pfps\MPU\SHP2GPX\LOWRANCE.usr
ShellExecuteWait("C:\Pfps\MPU\SHP2GPX\shp2gpx_script.gms" , "" , "C:\Pfps\MPU\SHP2GPX\")
If @error Then
    MsgBox(262192,"Mission Planning Utility","Global Mapper svarer ikke"& @CRLF & @CRLF & "Expoteringen kan ikke fortsættes og er standset." & @CRLF & @CRLF & "Geninstaller Global Mapper v.903 eller nyere")
    FileDelete("C:\Pfps\MPU\SHP2GPX\LOWRANCE.usr")
    FileDelete("C:\Pfps\MPU\SHP2GPX\*.gpx")
    FileDelete("C:\Pfps\MPU\SHP2GPX\*.gdb")
    FileSetTime ( "C:\Pfps\MPU\SHP2GPX\Input SHP\FalconView Shape - Overskriv denne fil.shp", "20031101010101" , "0", "0")
    Exit
    EndIf


;Vent til C:\Pfps\MPU\SHP2GPX\LOWRANCE.usr er oprettet
$l=0
Do
    Sleep(99)
    $l = $l + 1
    If $l = 100 Then ExitLoop
Until FileExists("C:\Pfps\MPU\SHP2GPX\LOWRANCE.usr")

; Hvis tom SHP fil Melder fejl og lukker.
$fejl = 1
$fejl = FileExists("C:\Pfps\MPU\SHP2GPX\LOWRANCE.usr")
If $fejl = 0 Then
    MsgBox(262160,"Error", "Tom kildefil (tegening)"  & @CRLF & @CRLF & "Prøv igen med ny tegning" & @CRLF & @CRLF & "Program afsluttet")
    Exit
    EndIf

; GpsBable fra USR-->GPX  TEMP fil Se Bat fil
;RunWait ("GPSBable_script.exe", "C:\Pfps\MPU\SHP2GPX\")
RunWait(@ComSpec & ' /c ' & 'C:\Pfps\MPU\KML2GPX\gpsbabel -i lowranceusr -f "C:\Pfps\MPU\SHP2GPX\LOWRANCE.usr" -x nuketypes,waypoints -o gpx -F "C:\Pfps\MPU\SHP2GPX\temp.gpx"','', @SW_HIDE)

$mainwindow = GUICreate("Mission Planning Utility", 530, 100, -1, -1,BitOr($WS_CAPTION,$WS_POPUP,$WS_SYSMENU),$WS_EX_TOPMOST)
GUISetIcon("C:\Pfps\MPU\SHP2GPX\S2G4.ico")
GUICtrlCreateIcon ("shell32.dll", 1001, 20, 10, 32, 32, -1)
GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")
GUICtrlCreateLabel("Denne knap vil overføre tegninger fra FalconView til MapSource/PDA som Spor eller Rute.", 70, 20)
$Sporbutton = GUICtrlCreateButton("Spor", 100, 50, 60)
$okbutton = GUICtrlCreateButton("Rute", 190, 50, 60)
$PDAbutton = GUICtrlCreateButton("PDA", 280, 50, 60)
$CANCELbutton = GUICtrlCreateButton("Cancel", 370, 50, 60)
GUICtrlSetOnEvent($okbutton, "OKButton")
GUICtrlSetOnEvent($Sporbutton, "Sporbutton")
GUICtrlSetOnEvent($PDAbutton, "PDAbutton")
GUICtrlSetOnEvent($CANCELbutton, "CANCELbutton")
GUISetState(@SW_SHOW)

While 1
  Sleep(1000)  ; Idle around
WEnd

Func OKButton() ;RUTE
    TrayTip("For at afbryde:", "        Tryk Esc", 999, 1)
    ;RunWait ("GPSBable_script_route.exe", "C:\Pfps\MPU\SHP2GPX\")
    RunWait(@ComSpec & ' /c ' & 'C:\Pfps\MPU\KML2GPX\gpsbabel -i gpx -f "C:\Pfps\MPU\SHP2GPX\temp.gpx" -x transform,rte=trk,del -o gpx -F "C:\Pfps\MPU\SHP2GPX\temp2.gpx"','', @SW_HIDE)
    $k=0
    Do
        Sleep(99)
        $k = $k + 1
        If $k = 100 Then ExitLoop
    Until FileExists("C:\Pfps\MPU\SHP2GPX\temp2.gpx")
    ;RunWait ("GPSBable_script_route2.exe", "C:\Pfps\MPU\SHP2GPX\")
    RunWait(@ComSpec & ' /c ' & 'C:\Pfps\MPU\KML2GPX\gpsbabel -i gpx -f "C:\Pfps\MPU\SHP2GPX\temp2.gpx" -x transform,wpt=rte -o gdb -F "C:\Pfps\MPU\SHP2GPX\temp3.gdb"','', @SW_HIDE)
    $k2=0
    Do
        Sleep(99)
        $k2 = $k2 + 1
        If $k2 = 100 Then ExitLoop
    Until FileExists("C:\Pfps\MPU\SHP2GPX\temp3.gdb")
    ;RunWait ("GPSBable_script_route3.exe", "C:\Pfps\MPU\SHP2GPX\")
    RunWait(@ComSpec & ' /c ' & 'C:\Pfps\MPU\KML2GPX\gpsbabel -i gdb -f "C:\Pfps\MPU\SHP2GPX\temp3.gdb" -o gpx -F "C:\Pfps\MPU\SHP2GPX\Output GPX\MapSource GPX file.gpx"','', @SW_HIDE)
EndFunc

Func Sporbutton()
    TrayTip("For at afbryde:", "        Tryk Esc", 999, 1)
    FileCopy("C:\Pfps\MPU\SHP2GPX\temp.gpx", "C:\Pfps\MPU\SHP2GPX\Output GPX\MapSource GPX file.gpx", "9")
EndFunc

Func CLOSEClicked()
  ;Note: at this point @GUI_CTRLID would equal $GUI_EVENT_CLOSE, 
  ;and @GUI_WINHANDLE would equal $mainwindow 
  Exit
EndFunc

Func PDAbutton()
    MsgBox(4096, "Test", "PDA", 10)
    Exit
EndFunc

Func CANCELbutton()
    Exit
EndFunc


;Cleaner input folder
FileDelete("C:\Pfps\MPU\SHP2GPX\Input SHP\*.*")

FileCopy("C:\Pfps\MPU\SHP2GPX\FalconView Shape - Overskriv denne fil.dbf_org", "C:\Pfps\MPU\SHP2GPX\Input SHP\FalconView Shape - Overskriv denne fil.dbf", "9")
FileCopy("C:\Pfps\MPU\SHP2GPX\FalconView Shape - Overskriv denne fil.shp_org", "C:\Pfps\MPU\SHP2GPX\Input SHP\FalconView Shape - Overskriv denne fil.shp", "9")
FileCopy("C:\Pfps\MPU\SHP2GPX\FalconView Shape - Overskriv denne fil.shx_org", "C:\Pfps\MPU\SHP2GPX\Input SHP\FalconView Shape - Overskriv denne fil.shx", "9")
FileCopy("C:\Pfps\MPU\SHP2GPX\Desktop.ini_org", "C:\Pfps\MPU\SHP2GPX\Input SHP\Desktop.ini", "9")
FileCopy("C:\Pfps\MPU\SHP2GPX\Husk! - Skift til - Shape Files (¤.shp).drw_org", "C:\Pfps\MPU\SHP2GPX\Input SHP\Husk! - Skift til - Shape Files (¤.shp).drw", "9")

; åben fil i mapsource OLD: Run(@ComSpec & " /c " & 'START "" "c:\Pfps\MPU\SHP2GPX\Output GPX\MapSource GPX file.gdb"', "", @SW_HIDE)

;Vent til GPX filen er skrevet før MapSource åbnes

$k3=0
Do
    Sleep(99)
    $k3 = $k3 + 1
    If $k3 = 100 Then ExitLoop
Until FileExists("C:\Pfps\MPU\SHP2GPX\Output GPX\MapSource GPX file.gpx")

; Søger efter mapsource sti
$MSpath = 0
$MSpath2 = 0
$MSpath = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Garmin\Applications\MapSource", "InstallDir")
$MSpath2 = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\MapSource.exe", "")
; Bekræfter mapsource sti
If FileExists ( $MSpath ) = 1 Then 
    Run(@ComSpec & " /c " & '""' & $MSpath & '" "c:\Pfps\MPU\SHP2GPX\Output GPX\MapSource GPX file.gpx"', "", @SW_HIDE)
    ElseIf FileExists ($MSpath2) = 1 Then
    Run(@ComSpec & " /c " & '""' & $MSpath2 & '" "c:\Pfps\MPU\SHP2GPX\Output GPX\MapSource GPX file.gpx"', "", @SW_HIDE)
ElseIf FileExists ( "C:\MapSource\MapSource.exe") = 1 Then
    Run(@ComSpec & " /c " & '""' & "C:\MapSource\MapSource.exe" & '" "c:\Pfps\MPU\SHP2GPX\Output GPX\MapSource GPX file.gpx"', "", @SW_HIDE)
ElseIf FileExists ( "C:\Garmin\MapSource.exe") = 1 Then
    Run(@ComSpec & " /c " & '""' & "C:\Garmin\MapSource.exe" & '" "c:\Pfps\MPU\SHP2GPX\Output GPX\MapSource GPX file.gpx"', "", @SW_HIDE)   
ElseIf FileExists ( "C:\Garmin\MapSource\MapSource.exe") = 1 Then
    Run(@ComSpec & " /c " & '""' & "C:\Garmin\MapSource\MapSource.exe" & '" "c:\Pfps\MPU\SHP2GPX\Output GPX\MapSource GPX file.gpx"', "", @SW_HIDE) 
Else 
    MsgBox(16,"", "MapSource kan ikke findes. Prøv at installere MapSource igen")
    Exit
EndIf
TrayTip("Mission Planning Utility", "        Overførsel fuldført.", 4, 1)
Sleep(3000)

FileDelete("C:\Pfps\MPU\SHP2GPX\LOWRANCE.usr")
FileDelete("C:\Pfps\MPU\SHP2GPX\*.gpx")
FileDelete("C:\Pfps\MPU\SHP2GPX\*.gdb")
FileSetTime ( "C:\Pfps\MPU\SHP2GPX\Input SHP\FalconView Shape - Overskriv denne fil.shp", "20031101010101" , "0", "0")

Exit

Share this post


Link to post
Share on other sites



Either, move the rest of the script under idle loop to an OnAutoItExit() function or don't use on event mode and just process a message loop and do ExitLoop to get to the rest of the script.

Share this post


Link to post
Share on other sites

Thanks Authenticity!

I am having trouble using the OnAutoItExit() function.

I prefers this because I cannot understands the "Message-loop Mode" so I stick to OnEvent Mode

But how do I define when this OnAutoItExit() Func should be called?

It only needs to be called when the Func OKButton, Sporbutton and PDAbutton are called, not when CANCELbutton is called?

Kind Regards

/Thomas

Share this post


Link to post
Share on other sites

#4 ·  Posted (edited)

Then I see that a message loop is more appropriate approach.

; Opt('GUIOnEventMode', 1)
; ...

$mainwindow = GUICreate("Mission Planning Utility", 530, 100, -1, -1,BitOr($WS_CAPTION,$WS_POPUP,$WS_SYSMENU),$WS_EX_TOPMOST)
GUISetIcon("C:\Pfps\MPU\SHP2GPX\S2G4.ico")
GUICtrlCreateIcon ("shell32.dll", 1001, 20, 10, 32, 32, -1)
GUICtrlCreateLabel("Denne knap vil overføre tegninger fra FalconView til MapSource/PDA som Spor eller Rute.", 70, 20)
$Sporbutton = GUICtrlCreateButton("Spor", 100, 50, 60)
$okbutton = GUICtrlCreateButton("Rute", 190, 50, 60)
$PDAbutton = GUICtrlCreateButton("PDA", 280, 50, 60)
$CANCELbutton = GUICtrlCreateButton("Cancel", 370, 50, 60)
GUISetState()

While 1
    Switch GUIGetMsg()
        Case $okbutton
            OKButton()
            
        Case $Sporbutton
            Sporbutton()
            
        Case $PDAbutton
            MsgBox(4096, "Test", "PDA", 10)
            ExitLoop
        
        Case $CANCELbutton, -3 ; $GUI_EVENT_CLOSE
            Exit
    EndSwitch
WEnd


;Cleaner input folder
FileDelete("C:\Pfps\MPU\SHP2GPX\Input SHP\*.*")

FileCopy("C:\Pfps\MPU\SHP2GPX\FalconView Shape - Overskriv denne fil.dbf_org", "C:\Pfps\MPU\SHP2GPX\Input SHP\FalconView Shape - Overskriv denne fil.dbf", "9")
FileCopy("C:\Pfps\MPU\SHP2GPX\FalconView Shape - Overskriv denne fil.shp_org", "C:\Pfps\MPU\SHP2GPX\Input SHP\FalconView Shape - Overskriv denne fil.shp", "9")
FileCopy("C:\Pfps\MPU\SHP2GPX\FalconView Shape - Overskriv denne fil.shx_org", "C:\Pfps\MPU\SHP2GPX\Input SHP\FalconView Shape - Overskriv denne fil.shx", "9")
FileCopy("C:\Pfps\MPU\SHP2GPX\Desktop.ini_org", "C:\Pfps\MPU\SHP2GPX\Input SHP\Desktop.ini", "9")
FileCopy("C:\Pfps\MPU\SHP2GPX\Husk! - Skift til - Shape Files (¤.shp).drw_org", "C:\Pfps\MPU\SHP2GPX\Input SHP\Husk! - Skift til - Shape Files (¤.shp).drw", "9")

; åben fil i mapsource OLD: Run(@ComSpec & " /c " & 'START "" "c:\Pfps\MPU\SHP2GPX\Output GPX\MapSource GPX file.gdb"', "", @SW_HIDE)

;Vent til GPX filen er skrevet før MapSource åbnes

$k3=0
Do
    Sleep(99)
    $k3 = $k3 + 1
    If $k3 = 100 Then ExitLoop
Until FileExists("C:\Pfps\MPU\SHP2GPX\Output GPX\MapSource GPX file.gpx")

; Søger efter mapsource sti
$MSpath = 0
$MSpath2 = 0
$MSpath = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Garmin\Applications\MapSource", "InstallDir")
$MSpath2 = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\MapSource.exe", "")
; Bekræfter mapsource sti
If FileExists ( $MSpath ) = 1 Then
    Run(@ComSpec & " /c " & '""' & $MSpath & '" "c:\Pfps\MPU\SHP2GPX\Output GPX\MapSource GPX file.gpx"', "", @SW_HIDE)
    ElseIf FileExists ($MSpath2) = 1 Then
    Run(@ComSpec & " /c " & '""' & $MSpath2 & '" "c:\Pfps\MPU\SHP2GPX\Output GPX\MapSource GPX file.gpx"', "", @SW_HIDE)
ElseIf FileExists ( "C:\MapSource\MapSource.exe") = 1 Then
    Run(@ComSpec & " /c " & '""' & "C:\MapSource\MapSource.exe" & '" "c:\Pfps\MPU\SHP2GPX\Output GPX\MapSource GPX file.gpx"', "", @SW_HIDE)
ElseIf FileExists ( "C:\Garmin\MapSource.exe") = 1 Then
    Run(@ComSpec & " /c " & '""' & "C:\Garmin\MapSource.exe" & '" "c:\Pfps\MPU\SHP2GPX\Output GPX\MapSource GPX file.gpx"', "", @SW_HIDE)   
ElseIf FileExists ( "C:\Garmin\MapSource\MapSource.exe") = 1 Then
    Run(@ComSpec & " /c " & '""' & "C:\Garmin\MapSource\MapSource.exe" & '" "c:\Pfps\MPU\SHP2GPX\Output GPX\MapSource GPX file.gpx"', "", @SW_HIDE) 
Else
    MsgBox(16,"", "MapSource kan ikke findes. Prøv at installere MapSource igen")
    Exit
EndIf
TrayTip("Mission Planning Utility", "        Overførsel fuldført.", 4, 1)
Sleep(3000)

FileDelete("C:\Pfps\MPU\SHP2GPX\LOWRANCE.usr")
FileDelete("C:\Pfps\MPU\SHP2GPX\*.gpx")
FileDelete("C:\Pfps\MPU\SHP2GPX\*.gdb")
FileSetTime ( "C:\Pfps\MPU\SHP2GPX\Input SHP\FalconView Shape - Overskriv denne fil.shp", "20031101010101" , "0", "0")
Exit

Func OKButton() ;RUTE
    TrayTip("For at afbryde:", "        Tryk Esc", 999, 1)
    ;RunWait ("GPSBable_script_route.exe", "C:\Pfps\MPU\SHP2GPX\")
    RunWait(@ComSpec & ' /c ' & 'C:\Pfps\MPU\KML2GPX\gpsbabel -i gpx -f "C:\Pfps\MPU\SHP2GPX\temp.gpx" -x transform,rte=trk,del -o gpx -F "C:\Pfps\MPU\SHP2GPX\temp2.gpx"','', @SW_HIDE)
    $k=0
    Do
        Sleep(99)
        $k = $k + 1
        If $k = 100 Then ExitLoop
    Until FileExists("C:\Pfps\MPU\SHP2GPX\temp2.gpx")
    ;RunWait ("GPSBable_script_route2.exe", "C:\Pfps\MPU\SHP2GPX\")
    RunWait(@ComSpec & ' /c ' & 'C:\Pfps\MPU\KML2GPX\gpsbabel -i gpx -f "C:\Pfps\MPU\SHP2GPX\temp2.gpx" -x transform,wpt=rte -o gdb -F "C:\Pfps\MPU\SHP2GPX\temp3.gdb"','', @SW_HIDE)
    $k2=0
    Do
        Sleep(99)
        $k2 = $k2 + 1
        If $k2 = 100 Then ExitLoop
    Until FileExists("C:\Pfps\MPU\SHP2GPX\temp3.gdb")
    ;RunWait ("GPSBable_script_route3.exe", "C:\Pfps\MPU\SHP2GPX\")
    RunWait(@ComSpec & ' /c ' & 'C:\Pfps\MPU\KML2GPX\gpsbabel -i gdb -f "C:\Pfps\MPU\SHP2GPX\temp3.gdb" -o gpx -F "C:\Pfps\MPU\SHP2GPX\Output GPX\MapSource GPX file.gpx"','', @SW_HIDE)
EndFunc

Func Sporbutton()
    TrayTip("For at afbryde:", "        Tryk Esc", 999, 1)
    FileCopy("C:\Pfps\MPU\SHP2GPX\temp.gpx", "C:\Pfps\MPU\SHP2GPX\Output GPX\MapSource GPX file.gpx", "9")
EndFuncoÝ÷ Ù±ßÛ:w¯z{f¡×¢±©l¡÷²&åx¬µÚ,¢g­)à)jëh×6Global $fLoop = True

; Rest of the script
While $fLoop
    Sleep(1000) ; Idle
WEnd

Func PDAbutton()
    MsgBox(4096, "Test", "PDA", 10)
    $fLoop = False
EndFunc
Edited by Authenticity

Share this post


Link to post
Share on other sites

Thank you Authenticity!!

:)

It works very well.

Can I make the GUI box disappear when the button is pressed?

Now the GUI stays open until the process has finished.

Share this post


Link to post
Share on other sites

#6 ·  Posted (edited)

Can I make the GUI box disappear when the button is pressed?

Now the GUI stays open until the process has finished.

I found the answer:

GUIDelete()

Not sure my brain is made for programming :)

Thank God this forum exists!

:party:

Edited by Recce

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
Sign in to follow this  
Followers 0