Send automatic text from to input box or edit inputbox text

[Kikileu]

Hi I'm sorry for my English, I'm a newbie in autoit, and I made a script for my work, the scrip sends two dates $currentdate and $expirationdate.
But I have a problem, I need that selecting the auto radio will send those dates;
but selecting the manual radio I need write two dates in the inputbox and send them, thank you for you help 😄

expandcollapse popup

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=
Local $Form1 = GUICreate("Form1", 289, 198, 192, 124)
Local $Input1 = GUICtrlCreateInput("", 129, 50, 105, 21)
GUICtrlSetData(-1, "aaaa-mm-dd", "")
Local $Input2 = GUICtrlCreateInput("", 130, 87, 105, 21)
GUICtrlSetData(-1, "aaaa-mm-dd", "")
Local $Button2 = GUICtrlCreateButton("Send", 171, 139, 75, 24)
Local $Label1 = GUICtrlCreateLabel("Date1", 73, 53, 33, 17)
Local $Label2 = GUICtrlCreateLabel("Date2", 73, 89, 33, 17)
Local $Radio1 = GUICtrlCreateRadio("Auto", 77, 17, 78, 17)
GUICtrlCreateCheckbox("", 304, 98, 36, 17)
Local $Radio2 = GUICtrlCreateRadio("Manual", 157, 17, 113, 17)
GUICtrlCreateCheckbox("", 304, 98, 36, 17)
Local $Button1 = GUICtrlCreateButton("Save", 53, 139, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
         Case $Button2
            _Load ()
         Case $Button1
            Select
               Case GUICtrlRead($Radio1) = 1

               Case GUICtrlRead($Radio2) = 1

            EndSelect
    EndSwitch
 WEnd


 _load ()
Func _load ()

Local $currentdate, $expirationdate, $month
Sleep(20)
$month = @MON
$month += 1
$currentdate = StringRight(@Year, 4) & ("-") & StringFormat("%02u-%02u", @MON, @MDAY)
$expirationdate = StringRight(@Year, 4) & ("-") & StringRight($month, 2) & ("-") & StringRight(@MDAY, 2)

Sleep(20)
   WinActivate ("Untitle - Notepad", "")
Sleep(20)
   WinWaitActive ("Untitle - Notepad", "", 0)
Sleep(20)
    Send ($currentdate)
Sleep(20)
    Send("{TAB}")
Sleep(20)
    Send ($expirationdate)
Send("{ENTER}")
EndFunc

 

[caramen]

Hello, 

I’ll try to help you.

1) you need to complet what’s happen for your sélect case radio1&2

2) not sûre for the ctrlread 

3) you can remove the second call : _load () because he won’t be called anyway here.

 

[Subz]

Something like this:

expandcollapse popup

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=
Local $Form1 = GUICreate("Form1", 289, 198, 192, 124)
Local $Input1 = GUICtrlCreateInput("", 129, 50, 105, 21)
GUICtrlSetData(-1, "aaaa-mm-dd", "")
Local $Input2 = GUICtrlCreateInput("", 130, 87, 105, 21)
GUICtrlSetData(-1, "aaaa-mm-dd", "")
Local $Button2 = GUICtrlCreateButton("Send", 171, 139, 75, 24)
Local $Label1 = GUICtrlCreateLabel("Date1", 73, 53, 33, 17)
Local $Label2 = GUICtrlCreateLabel("Date2", 73, 89, 33, 17)
Local $Radio1 = GUICtrlCreateRadio("Auto", 77, 17, 78, 17)
GUICtrlCreateCheckbox("", 304, 98, 36, 17)
Local $Radio2 = GUICtrlCreateRadio("Manual", 157, 17, 113, 17)
GUICtrlCreateCheckbox("", 304, 98, 36, 17)
Local $Button1 = GUICtrlCreateButton("Save", 53, 139, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Select
        Case $nMsg = $GUI_EVENT_CLOSE
            Exit
         Case $nMsg = $Button2
            _SendDates(GUICtrlRead($Input1), GUICtrlRead($Input2))
        Case $nMsg = $Radio1 And GUICtrlRead($Radio1) = $GUI_CHECKED
             _SendDates ()
    EndSelect
 WEnd

Func _SendDates($_vCurrentDate = "Auto", $_vExpirationDate = "Auto")
    Local $iMonth = @MON + 1
    Local $vCurrentDate = $_vCurrentDate = "Auto" ? StringRight(@Year, 4) & ("-") & StringFormat("%02u-%02u", @MON, @MDAY) : $_vCurrentDate
    Local $vExpirationDate = $_vExpirationDate = "Auto" ? StringRight(@Year, 4) & ("-") & StringRight($iMonth, 2) & ("-") & StringRight(@MDAY, 2) : $_vExpirationDate
    Sleep(20)
        WinActivate ("Untitled - Notepad", "")
        Sleep(20)
        WinWaitActive ("Untitled - Notepad", "", 0)
    Sleep(20)
        Send ($vCurrentDate)
    Sleep(20)
        Send("{TAB}")
    Sleep(20)
        Send ($vExpirationDate)
        Send("{ENTER}")
EndFunc

 

[Kikileu]

18 hours ago, Subz said:

Something like this:

expandcollapse popup

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=
Local $Form1 = GUICreate("Form1", 289, 198, 192, 124)
Local $Input1 = GUICtrlCreateInput("", 129, 50, 105, 21)
GUICtrlSetData(-1, "aaaa-mm-dd", "")
Local $Input2 = GUICtrlCreateInput("", 130, 87, 105, 21)
GUICtrlSetData(-1, "aaaa-mm-dd", "")
Local $Button2 = GUICtrlCreateButton("Send", 171, 139, 75, 24)
Local $Label1 = GUICtrlCreateLabel("Date1", 73, 53, 33, 17)
Local $Label2 = GUICtrlCreateLabel("Date2", 73, 89, 33, 17)
Local $Radio1 = GUICtrlCreateRadio("Auto", 77, 17, 78, 17)
GUICtrlCreateCheckbox("", 304, 98, 36, 17)
Local $Radio2 = GUICtrlCreateRadio("Manual", 157, 17, 113, 17)
GUICtrlCreateCheckbox("", 304, 98, 36, 17)
Local $Button1 = GUICtrlCreateButton("Save", 53, 139, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Select
        Case $nMsg = $GUI_EVENT_CLOSE
            Exit
         Case $nMsg = $Button2
            _SendDates(GUICtrlRead($Input1), GUICtrlRead($Input2))
        Case $nMsg = $Radio1 And GUICtrlRead($Radio1) = $GUI_CHECKED
             _SendDates ()
    EndSelect
 WEnd

Func _SendDates($_vCurrentDate = "Auto", $_vExpirationDate = "Auto")
    Local $iMonth = @MON + 1
    Local $vCurrentDate = $_vCurrentDate = "Auto" ? StringRight(@Year, 4) & ("-") & StringFormat("%02u-%02u", @MON, @MDAY) : $_vCurrentDate
    Local $vExpirationDate = $_vExpirationDate = "Auto" ? StringRight(@Year, 4) & ("-") & StringRight($iMonth, 2) & ("-") & StringRight(@MDAY, 2) : $_vExpirationDate
    Sleep(20)
        WinActivate ("Untitled - Notepad", "")
        Sleep(20)
        WinWaitActive ("Untitled - Notepad", "", 0)
    Sleep(20)
        Send ($vCurrentDate)
    Sleep(20)
        Send("{TAB}")
    Sleep(20)
        Send ($vExpirationDate)
        Send("{ENTER}")
EndFunc

 

 

 

its useful to me thank you 👍👍