Sign in to follow this  
Followers 0
xShadowx

Send pause?

22 posts in this topic

Ok, im using a Send command and im wondering if there is a way to pause it, so someone can type a user and passinto a box and hit the "ok" button, then it keeps going again. Whould this be possable?

send("User Pass""{enter}")

Share this post


Link to post
Share on other sites



use 2 send() commands with a sleep() in the middle (or whatever parameter you need to let the script pause...)


Some Projects:[list][*]ZIP UDF using no external files[*]iPod Music Transfer [*]iTunes UDF - fully integrate iTunes with au3[*]iTunes info (taskbar player hover)[*]Instant Run - run scripts without saving them before :)[*]Get Tube - YouTube Downloader[*]Lyric Finder 2 - Find Lyrics to any of your song[*]DeskBox - A Desktop Extension Tool[/list]indifference will ruin the world, but in the end... WHO CARES :P---------------http://torels.altervista.org

Share this post


Link to post
Share on other sites

Ok, im using a Send command and im wondering if there is a way to pause it, so someone can type a user and passinto a box and hit the "ok" button, then it keeps going again. Whould this be possable?

send("User Pass""{enter}")
When you want to pause you could have something like this

MsgBox(262144,"Password required","Please enter your user name and password," & @CR " then hit the Continue button")

You could create a little gui with just a button which covered the ok button on the form for the password, then when the button was pressed you would know they had entered the password and your script could remove the little gui and press the real button then continue.

You will need some way to know if they get their name or password wrong.


Serial port communications UDF Includes functions for binary transmission and reception.printing UDF Useful for graphs, forms, labels, reports etc.Add User Call Tips to SciTE for functions in UDFs not included with AutoIt and for your own scripts.Functions with parameters in OnEvent mode and for Hot Keys One function replaces GuiSetOnEvent, GuiCtrlSetOnEvent and HotKeySet.UDF IsConnected2 for notification of status of connected state of many urls or IPs, without slowing the script.

Share this post


Link to post
Share on other sites

#4 ·  Posted (edited)

Well it isnt a specified password, they are just making a user/pass.

So it would be like.

send("{User} {Pass}""{enter}")

and it would be linked to a GUI with two type in boxes.

New User

-----------------

-----------------

New pass

-----------------

-----------------

|ok|

then it will keep going. If that is possable?

Edited by xShadowx

Share this post


Link to post
Share on other sites

Well it isnt a specified password, they are just making a user/pass.

So it would be like.

send("{User} {Pass}""{enter}")

and it would be linked to a GUI with two type in boxes.

New User

-----------------

-----------------

New pass

-----------------

-----------------

|ok|

then it will keep going. If that is possable?

I don't know because I don't understand.

Do you mean that at a certain stage you want to create a gui with 2 inputs and wait till the user has entered the data and hit the ok key?

Or is there already a gui which you didn't create and you want to know when the user has entered the data into the input boxes in that gui?

Or is it something else?


Serial port communications UDF Includes functions for binary transmission and reception.printing UDF Useful for graphs, forms, labels, reports etc.Add User Call Tips to SciTE for functions in UDFs not included with AutoIt and for your own scripts.Functions with parameters in OnEvent mode and for Hot Keys One function replaces GuiSetOnEvent, GuiCtrlSetOnEvent and HotKeySet.UDF IsConnected2 for notification of status of connected state of many urls or IPs, without slowing the script.

Share this post


Link to post
Share on other sites

#6 ·  Posted (edited)

Something I came up with quickly.

Posted Image

So when you type in the name and comfirm name (and they match, same with password) and hit ok, it will unpause the script and have the input user/pass of what you put in.

send("{user type in box} {password type in box} ""{enter}")

-----------------------------------------------------------------------^ is the ok button, so the script keeps going after you press ok.

Does that make sence?

Edited by xShadowx

Share this post


Link to post
Share on other sites

Something I came up with quickly.

Posted Image

So when you type in the name and comfirm name (and they match, same with password) and hit ok, it will unpause the script and have the input user/pass of what you put in.

send("{user type in box} {password type in box} ""{enter}")

-----------------------------------------------------------------------^ is the ok button, so the script keeps going after you press ok.

Does that make sence?

I think so. What is the problem with doing that?

Serial port communications UDF Includes functions for binary transmission and reception.printing UDF Useful for graphs, forms, labels, reports etc.Add User Call Tips to SciTE for functions in UDFs not included with AutoIt and for your own scripts.Functions with parameters in OnEvent mode and for Hot Keys One function replaces GuiSetOnEvent, GuiCtrlSetOnEvent and HotKeySet.UDF IsConnected2 for notification of status of connected state of many urls or IPs, without slowing the script.

Share this post


Link to post
Share on other sites

I have no idea how to do it. >=-P

Share this post


Link to post
Share on other sites

I have no idea how to do it. >=-P

Something like this maybe.

Send($firststring)
Send($secondstring)
;we've got to the bit where we need the gui
$name = ''
$pass = ''
While $name = '' Or $pass = ''
    GetUserName($name, $pass)
WEnd
;now we contiunue with the sends
Send($thirdstring)
.
.
.
Func GetUserName(ByRef $nn, ByRef $pp)

    $Gui1 = GUICreate(",....
    $Edit1 = GuiCtrlCreate(
;.
;.

    GUISetState()
    $done = False

    While Not $done
        Switch GUIGetMsg()
            Case $OKBtn
                $nn = GUICtrlRead($Input1)
                $pp = GUICtrlRead($Input2)
                $done = True
        EndSwitch
    WEnd

    GUIDelete($Gui1)
EndFunc  ;==>GetUserName

Serial port communications UDF Includes functions for binary transmission and reception.printing UDF Useful for graphs, forms, labels, reports etc.Add User Call Tips to SciTE for functions in UDFs not included with AutoIt and for your own scripts.Functions with parameters in OnEvent mode and for Hot Keys One function replaces GuiSetOnEvent, GuiCtrlSetOnEvent and HotKeySet.UDF IsConnected2 for notification of status of connected state of many urls or IPs, without slowing the script.

Share this post


Link to post
Share on other sites

This is what I got so far.

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Opt("TrayIconHide", 1)


; GUI
$Form1 = GuiCreate("",200,250,619,451)
GUICtrlCreateLabel("New User Name?", 5, 5, 770, 20, -1, $GUI_WS_EX_PARENTDRAG)
GUICtrlCreateLabel("Confirm Name.", 5, 46, 770, 20, -1, $GUI_WS_EX_PARENTDRAG)
GUICtrlCreateLabel("Password?", 5, 110, 770, 20, -1, $GUI_WS_EX_PARENTDRAG)
GUICtrlCreateLabel("Confirm Password.", 5, 150, 770, 20, -1, $GUI_WS_EX_PARENTDRAG)
GUISetState(@SW_SHOW)

;$
$Input1 = GUICtrlCreateInput("", 5, 22, 121, 21)
$Input2 = GUICtrlCreateInput("", 5, 62, 121, 21)
$check = GUICtrlCreateButton("Ok", 5, 90, 75, 17, 0)
$Input3 = GUICtrlCreateInput("", 5, 126, 121, 21)
$Input4 = GUICtrlCreateInput("", 5, 166, 121, 21)
$check1 = GUICtrlCreateButton("Ok", 5, 194, 75, 17, 0)
Global $popup
Global $popup1


While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $check
            If GUICtrlRead($Input1) = GUICtrlRead($Input2) Then
                GUICtrlDelete($popup)
                $popup = GUICtrlCreateButton("", 100, 90, 25, 17, 0)
                GUICtrlSetBkColor(-1, 0x00CC00)
            Else
                $popup = GUICtrlCreateButton("", 100, 90, 25, 17, 0)
                GUICtrlSetBkColor(-1, 0xFF0000)
            EndIf
            Case $check1
            If GUICtrlRead($Input3) = GUICtrlRead($Input4) Then
                GUICtrlDelete($popup1)
                $popup1 = GUICtrlCreateButton("", 100, 194, 25, 17, 0)
                GUICtrlSetBkColor(-1, 0x00CC00)
            Else
                $popup1 = GUICtrlCreateButton("", 100, 194, 25, 17, 0)
                GUICtrlSetBkColor(-1, 0xFF0000)
            EndIf
    EndSwitch
WEnd

Its a little messy, now how would I implement that code you just posted?

P.S. my send code isnt in there yet.

Share this post


Link to post
Share on other sites

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Opt("TrayIconHide", 1)

MsgBox(0, "step 1", "replace this with your sends")
$name = ''
$pass = ''
While $name = '' Or $pass = ''
    GetUserName($name, $pass)
WEnd
MsgBox(0, "step 2", "replace this with more sends")


Func GetUserName(ByRef $nn, ByRef $pp)
; GUI
    $Form1 = GUICreate("", 200, 250, 619, 451)
    GUICtrlCreateLabel("New User Name?", 5, 5, 770, 20, -1, $GUI_WS_EX_PARENTDRAG)
    GUICtrlCreateLabel("Confirm Name.", 5, 46, 770, 20, -1, $GUI_WS_EX_PARENTDRAG)
    GUICtrlCreateLabel("Password?", 5, 110, 770, 20, -1, $GUI_WS_EX_PARENTDRAG)
    GUICtrlCreateLabel("Confirm Password.", 5, 150, 770, 20, -1, $GUI_WS_EX_PARENTDRAG)
    GUISetState(@SW_SHOW)

    
    $Input1 = GUICtrlCreateInput("", 5, 22, 121, 21)
    $Input2 = GUICtrlCreateInput("", 5, 62, 121, 21)
    $check = GUICtrlCreateButton("Ok", 5, 90, 75, 17, 0)
    $Input3 = GUICtrlCreateInput("", 5, 126, 121, 21)
    $Input4 = GUICtrlCreateInput("", 5, 166, 121, 21)
    $check1 = GUICtrlCreateButton("Ok", 5, 194, 75, 17, 0)
    Local $popup
    Local $popup1


    While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
            Case $GUI_EVENT_CLOSE
                ExitLoop
            Case $check
                
                If GUICtrlRead($Input1) = GUICtrlRead($Input2) Then
                    $nn = GUICtrlRead($Input1)
                    GUICtrlDelete($popup)
                    $popup = GUICtrlCreateButton("", 100, 90, 25, 17, 0)
                    GUICtrlSetBkColor(-1, 0x00CC00)
                Else
                    $nn = ''
                    $popup = GUICtrlCreateButton("", 100, 90, 25, 17, 0)
                    GUICtrlSetBkColor(-1, 0xFF0000)
                EndIf
                
            Case $check1
                If GUICtrlRead($Input3) = GUICtrlRead($Input4) Then
                    $pp = GUICtrlRead($Input3)
                    GUICtrlDelete($popup1)
                    $popup1 = GUICtrlCreateButton("", 100, 194, 25, 17, 0)
                    GUICtrlSetBkColor(-1, 0x00CC00)
                Else
                    $pp = ''
                    $popup1 = GUICtrlCreateButton("", 100, 194, 25, 17, 0)
                    GUICtrlSetBkColor(-1, 0xFF0000)
                EndIf
        EndSwitch
        
        If $nn <> '' And $pp <> '' Then ExitLoop
    WEnd
    
    GUIDelete($Form1)
    Return
EndFunc  ;==>GetUserName


Serial port communications UDF Includes functions for binary transmission and reception.printing UDF Useful for graphs, forms, labels, reports etc.Add User Call Tips to SciTE for functions in UDFs not included with AutoIt and for your own scripts.Functions with parameters in OnEvent mode and for Hot Keys One function replaces GuiSetOnEvent, GuiCtrlSetOnEvent and HotKeySet.UDF IsConnected2 for notification of status of connected state of many urls or IPs, without slowing the script.

Share this post


Link to post
Share on other sites

#12 ·  Posted (edited)

Edit: Nevermind. Thank you mate you are the best. :)

Edit edit: One more question, is there a way to link

If $nn <> '' And $pp <> '' Then Exitloop
to a button? So when I click it it will exicute the send command(s)? Edited by xShadowx

Share this post


Link to post
Share on other sites

Edit: Nevermind. Thank you mate you are the best. :)

Edit edit: One more question, is there a way to link

If $nn <> '' And $pp <> '' Then Exitloop
to a button? So when I click it it will exicute the send command(s)?
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Opt("TrayIconHide", 1)
opt("GUIResizeMode",$GUI_DOCKALL)
MsgBox(0, "step 1", "replace this with your sends")
$name = ''
$pass = ''
While $name = '' Or $pass = ''
    GetUserName($name, $pass)
WEnd
MsgBox(0, "step 1", "replace this with more sends")


Func GetUserName(ByRef $nn, ByRef $pp)
; GUI
    $Form1 = GUICreate("", 131, 220, 619, 451)
    GUICtrlCreateLabel("New User Name?", 5, 5, 770, 20, -1, $GUI_WS_EX_PARENTDRAG)
    GUICtrlCreateLabel("Confirm Name.", 5, 46, 770, 20, -1, $GUI_WS_EX_PARENTDRAG)
    GUICtrlCreateLabel("Password?", 5, 110, 770, 20, -1, $GUI_WS_EX_PARENTDRAG)
    GUICtrlCreateLabel("Confirm Password.", 5, 150, 770, 20, -1, $GUI_WS_EX_PARENTDRAG)
    GUISetState(@SW_SHOW)

;$
    $Input1 = GUICtrlCreateInput("", 5, 22, 121, 21)
    $Input2 = GUICtrlCreateInput("", 5, 62, 121, 21)
    $check = GUICtrlCreateButton("Ok", 5, 90, 75, 17, 0)
    $Input3 = GUICtrlCreateInput("", 5, 126, 121, 21)
    $Input4 = GUICtrlCreateInput("", 5, 166, 121, 21)
    $check1 = GUICtrlCreateButton("Ok", 5, 194, 75, 17, 0)
    GUICtrlCreateLabel("",0,225,131,1)
    GUICtrlSetBkColor(-1,0x666666)
    $alldone = GUICtrlCreateButton("Apply", 30, 230, 70, 22)
    Local $popup
    Local $popup1
 $expanded = false

    While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
            Case $GUI_EVENT_CLOSE
                ExitLoop
            Case $check
                
                If GUICtrlRead($Input1) <> '' and GUICtrlRead($Input1) = GUICtrlRead($Input2) Then
                    $nn = GUICtrlRead($Input1)
                    GUICtrlDelete($popup)
                    $popup = GUICtrlCreateButton("", 100, 90, 25, 17, 0)
                    GUICtrlSetBkColor(-1, 0x00CC00)
                Else
                    $nn = ''
                    $popup = GUICtrlCreateButton("", 100, 90, 25, 17, 0)
                    GUICtrlSetBkColor(-1, 0xFF0000)
                EndIf
                
            Case $check1
                If GUICtrlRead($Input3) <> '' and GUICtrlRead($Input3) = GUICtrlRead($Input4) Then
                    $pp = GUICtrlRead($Input3)
                    GUICtrlDelete($popup1)
                    $popup1 = GUICtrlCreateButton("", 100, 194, 25, 17, 0)
                    GUICtrlSetBkColor(-1, 0x00CC00)
                Else
                    $pp = ''
                    $popup1 = GUICtrlCreateButton("", 100, 194, 25, 17, 0)
                    GUICtrlSetBkColor(-1, 0xFF0000)
                EndIf
            Case $alldone
                If $nn <> '' And $pp <> '' Then
                    ExitLoop
                Else
                    MsgBox(262144, "ERROR", "Please enter your User Name and Password")
                EndIf
        EndSwitch
        
        if not $expanded Then
            If $nn <> '' And $pp <> '' Then
                winmove($Form1,"", 619, 451,137, 290)
            EndIf
        EndIf
        
        
    WEnd
    
    GUIDelete($Form1)
    Return
EndFunc  ;==>GetUserName

Serial port communications UDF Includes functions for binary transmission and reception.printing UDF Useful for graphs, forms, labels, reports etc.Add User Call Tips to SciTE for functions in UDFs not included with AutoIt and for your own scripts.Functions with parameters in OnEvent mode and for Hot Keys One function replaces GuiSetOnEvent, GuiCtrlSetOnEvent and HotKeySet.UDF IsConnected2 for notification of status of connected state of many urls or IPs, without slowing the script.

Share this post


Link to post
Share on other sites

Edit: Nevermind. Thank you mate you are the best. :)

Edit edit: One more question, is there a way to link

If $nn <> '' And $pp <> '' Then Exitloop
to a button? So when I click it it will exicute the send command(s)?
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Opt("TrayIconHide", 1)
opt("GUIResizeMode",$GUI_DOCKALL)
MsgBox(0, "step 1", "replace this with your sends")
$name = ''
$pass = ''
While $name = '' Or $pass = ''
    GetUserName($name, $pass)
WEnd
MsgBox(0, "step 1", "replace this with more sends")


Func GetUserName(ByRef $nn, ByRef $pp)
; GUI
    $Form1 = GUICreate("", 131, 220, 619, 451)
    GUICtrlCreateLabel("New User Name?", 5, 5, 770, 20, -1, $GUI_WS_EX_PARENTDRAG)
    GUICtrlCreateLabel("Confirm Name.", 5, 46, 770, 20, -1, $GUI_WS_EX_PARENTDRAG)
    GUICtrlCreateLabel("Password?", 5, 110, 770, 20, -1, $GUI_WS_EX_PARENTDRAG)
    GUICtrlCreateLabel("Confirm Password.", 5, 150, 770, 20, -1, $GUI_WS_EX_PARENTDRAG)
    GUISetState(@SW_SHOW)

;$
    $Input1 = GUICtrlCreateInput("", 5, 22, 121, 21)
    $Input2 = GUICtrlCreateInput("", 5, 62, 121, 21)
    $check = GUICtrlCreateButton("Ok", 5, 90, 75, 17, 0)
    $Input3 = GUICtrlCreateInput("", 5, 126, 121, 21)
    $Input4 = GUICtrlCreateInput("", 5, 166, 121, 21)
    $check1 = GUICtrlCreateButton("Ok", 5, 194, 75, 17, 0)
    GUICtrlCreateLabel("",0,225,131,1)
    GUICtrlSetBkColor(-1,0x666666)
    $alldone = GUICtrlCreateButton("Apply", 30, 230, 70, 22)
    Local $popup
    Local $popup1
 $expanded = false

    While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
            Case $GUI_EVENT_CLOSE
                ExitLoop
            Case $check
                
                If GUICtrlRead($Input1) <> '' and GUICtrlRead($Input1) = GUICtrlRead($Input2) Then
                    $nn = GUICtrlRead($Input1)
                    GUICtrlDelete($popup)
                    $popup = GUICtrlCreateButton("", 100, 90, 25, 17, 0)
                    GUICtrlSetBkColor(-1, 0x00CC00)
                Else
                    $nn = ''
                    $popup = GUICtrlCreateButton("", 100, 90, 25, 17, 0)
                    GUICtrlSetBkColor(-1, 0xFF0000)
                EndIf
                
            Case $check1
                If GUICtrlRead($Input3) <> '' and GUICtrlRead($Input3) = GUICtrlRead($Input4) Then
                    $pp = GUICtrlRead($Input3)
                    GUICtrlDelete($popup1)
                    $popup1 = GUICtrlCreateButton("", 100, 194, 25, 17, 0)
                    GUICtrlSetBkColor(-1, 0x00CC00)
                Else
                    $pp = ''
                    $popup1 = GUICtrlCreateButton("", 100, 194, 25, 17, 0)
                    GUICtrlSetBkColor(-1, 0xFF0000)
                EndIf
            Case $alldone
                If $nn <> '' And $pp <> '' Then
                    ExitLoop
                Else
                    MsgBox(262144, "ERROR", "Please enter your User Name and Password")
                EndIf
        EndSwitch
        
        if not $expanded Then
            If $nn <> '' And $pp <> '' Then
                winmove($Form1,"", 619, 451,137, 290)
            EndIf
        EndIf
        
        
    WEnd
    
    GUIDelete($Form1)
    Return
EndFunc  ;==>GetUserName

Serial port communications UDF Includes functions for binary transmission and reception.printing UDF Useful for graphs, forms, labels, reports etc.Add User Call Tips to SciTE for functions in UDFs not included with AutoIt and for your own scripts.Functions with parameters in OnEvent mode and for Hot Keys One function replaces GuiSetOnEvent, GuiCtrlSetOnEvent and HotKeySet.UDF IsConnected2 for notification of status of connected state of many urls or IPs, without slowing the script.

Share this post


Link to post
Share on other sites

#15 ·  Posted (edited)

Thankyou very much mate, you are the greatest. :)

Edited by xShadowx

Share this post


Link to post
Share on other sites

Ah sorry mate, one more thing (last thing), I cant get a new button linked to a msg box (click the button, box pops up) but it ether doesnt pop up or it pops up before I press the button and I cant quit the popup. Have any suggestions?

Share this post


Link to post
Share on other sites

Ah sorry mate, one more thing (last thing), I cant get a new button linked to a msg box (click the button, box pops up) but it ether doesnt pop up or it pops up before I press the button and I cant quit the popup. Have any suggestions?

I have no idea xShadowx. I would need to see some code that showed the problem.

Serial port communications UDF Includes functions for binary transmission and reception.printing UDF Useful for graphs, forms, labels, reports etc.Add User Call Tips to SciTE for functions in UDFs not included with AutoIt and for your own scripts.Functions with parameters in OnEvent mode and for Hot Keys One function replaces GuiSetOnEvent, GuiCtrlSetOnEvent and HotKeySet.UDF IsConnected2 for notification of status of connected state of many urls or IPs, without slowing the script.

Share this post


Link to post
Share on other sites

#18 ·  Posted (edited)

Its pretty much the same code as before. Would there be a way to have a new GUI pop up after my send code(s)? The GUI would have buttons. Any ideas?

Shadow

Edited by xShadowx

Share this post


Link to post
Share on other sites

#19 ·  Posted (edited)

Here is my code

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Opt("TrayIconHide", 1)
Opt("GUIResizeMode", $GUI_DOCKALL)

$name = ''
$pass = ''


While $name = '' Or $pass = ''
    GetUserName($name, $pass)
WEnd

   ▲
   |
   |
   |
   |
My send codes
   |
   |
   |
   |
   ▼


Func OnAutoItExit ()
    FileDelete(@TempDir & "\Background.bmp")
EndFunc

Func GetUserName(ByRef $nn, ByRef $pp)
  ; GUI
    $Form1 = GUICreate("", 131, 220, 619, 451)
    GUICtrlCreatePic("Background.bmp", 0, 0, 131, 290)
    GUICtrlSetState(-1, $GUI_DISABLE)
    $font = GUICtrlCreateLabel("New User Name?", 5, 5, 770, 20)
    GUICtrlSetColor( -1, 0xF7FF00)
    GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
    GUICtrlSetFont(-1, 9, 700, $font) 
    $font = GUICtrlCreateLabel("Confirm Name.", 5, 46, 770, 20)
    GUICtrlSetColor( -1, 0xF7FF00)
    GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
    GUICtrlSetFont(-1, 9, 700, $font) 
    $font = GUICtrlCreateLabel("Password?", 5, 110, 770, 20)
    GUICtrlSetColor( -1, 0xF7FF00)
    GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
    GUICtrlSetFont(-1, 9, 700, $font) 
    $font = GUICtrlCreateLabel("Confirm Password.", 5, 150, 770, 20)
    GUICtrlSetColor( -1, 0xF7FF00)
    GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
    GUICtrlSetFont(-1, 9, 700, $font) 
    GUISetState()

  ;$
    FileInstall("C:\Background.bmp", @TempDir & "\Background.bmp")  
    $Input1 = GUICtrlCreateInput("", 5, 22, 121, 21)
    $Input2 = GUICtrlCreateInput("", 5, 62, 121, 21)
    $check = GUICtrlCreateButton("Ok", 5, 90, 75, 17, 0)
    $Input3 = GUICtrlCreateInput("", 5, 126, 121, 21)
    $Input4 = GUICtrlCreateInput("", 5, 166, 121, 21)
    $check1 = GUICtrlCreateButton("Ok", 5, 194, 75, 17, 0)
    GUICtrlCreateLabel("", 0, 225, 131, 1)
    GUICtrlSetBkColor(-1, 0x666666)
    $alldone = GUICtrlCreateButton("Apply", 30, 230, 70, 22)
    Local $popup
    Local $popup1
    $expanded = False

    While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
            Case $GUI_EVENT_CLOSE
                Exit
            Case $check

                If GUICtrlRead($Input1) <> '' And GUICtrlRead($Input1) = GUICtrlRead($Input2) Then
                    $nn = GUICtrlRead($Input1)
                    GUICtrlDelete($popup)
                    $popup = GUICtrlCreateButton("", 100, 90, 25, 17, 0)
                    GUICtrlSetBkColor(-1, 0x00CC00)
                Else
                    $nn = ''
                    $popup = GUICtrlCreateButton("", 100, 90, 25, 17, 0)
                    GUICtrlSetBkColor(-1, 0xFF0000)
                EndIf

            Case $check1
                If GUICtrlRead($Input3) <> '' And GUICtrlRead($Input3) = GUICtrlRead($Input4) Then
                    $pp = GUICtrlRead($Input3)
                    GUICtrlDelete($popup1)
                    $popup1 = GUICtrlCreateButton("", 100, 194, 25, 17, 0)
                    GUICtrlSetBkColor(-1, 0x00CC00)
                Else
                    $pp = ''
                    $popup1 = GUICtrlCreateButton("", 100, 194, 25, 17, 0)
                    GUICtrlSetBkColor(-1, 0xFF0000)
                EndIf
            Case $alldone
                If $nn <> '' And $pp <> '' Then
                    ExitLoop
                Else
                    MsgBox(262144, "ERROR", "Please enter your User Name and Password")
                EndIf
        EndSwitch

        If Not $expanded Then
            If $nn <> '' And $pp <> '' Then
                WinMove($Form1, "", 619, 451, 137, 280)
            EndIf
        EndIf


    WEnd
    GUIDelete($Form1)
    Return
EndFunc ;==>GetUserName

I would like a new GUI to pop up after the send code(s). not a msgbox (or can you add buttons to a msg box?). All help is appreciated.

Edited by xShadowx

Share this post


Link to post
Share on other sites

#20 ·  Posted (edited)

Here is my code

I would like a new GUI to pop up after the send code(s). not a msgbox (or can you add buttons to a msg box?). All help is appreciated.

You wrote a gui with no problem before so why not just have another one called when the sends are done?

A message box can have certain buttons as described in the help.

Edited by martin

Serial port communications UDF Includes functions for binary transmission and reception.printing UDF Useful for graphs, forms, labels, reports etc.Add User Call Tips to SciTE for functions in UDFs not included with AutoIt and for your own scripts.Functions with parameters in OnEvent mode and for Hot Keys One function replaces GuiSetOnEvent, GuiCtrlSetOnEvent and HotKeySet.UDF IsConnected2 for notification of status of connected state of many urls or IPs, without slowing the script.

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