Autohotkey 如何要求用户在自动热键中插入日期范围

Autohotkey 如何要求用户在自动热键中插入日期范围,autohotkey,Autohotkey,我有一个代码可以打开名为Enmark的软件并浏览菜单。一旦到达某个屏幕,就需要插入一个日期范围。我希望在代码运行之前有一个由ahk生成的弹出窗口,要求用户选择DDMMYY格式的2个日期(开始日期和结束日期),然后在到达相应屏幕时调用它。 如果弹出窗口是日历,那就更好了 ; Run E2A Extracts settitlematchmode 2

我有一个代码可以打开名为Enmark的软件并浏览菜单。一旦到达某个屏幕,就需要插入一个日期范围。我希望在代码运行之前有一个由ahk生成的弹出窗口,要求用户选择DDMMYY格式的2个日期(开始日期和结束日期),然后在到达相应屏幕时调用它。 如果弹出窗口是日历,那就更好了

; Run E2A Extracts                                                                  
  settitlematchmode 2                                   
  run "C:\Program Files (x86)\Enmark Systems\enlink7\Enlink.exe" "C:\Program Files (x86)\Enmark Systems\enlink7\Enmark Systems - Enlink.CFT"                                    
  winwait    Enlink                                 
  SLEEP 1000                                        
  ifwinnotexist  Enlink                                 
  sleep 1000                                        
  send nwuser1{ENTER}                                       
  sleep 5000                                        
;
;QMPRDRP2 (Quality Metals Production Report 2) file extract
  winactivate Enlink
  send{ESC}QMPRDRP2{ENTER}7{ENTER}E{ENTER}REP{ENTER}{ENTER}
;send (Starting Date DDMMYY){ENTER}
;send (Ending Date DDMMYY){ENTER}
  WINWAIT DPREP
  WINACTIVATE DPREP                             
  SLEEP 2000                                        
  winmaximize DPREP

这是什么?你回答了你自己的问题吗?我想出来了。@tjorchrt我编辑了代码,使其更有意义,并测试了代码,以确保其工作正常。@TCO好的,我将删除我的帖子。
Gui, -MinimizeBox -MaximizeBox +hwndGuiID
Gui, Add, Text,, Start date:
Gui, Add, MonthCal, vStartCal
Gui, Add, Text,, End date:
Gui, Add, MonthCal, vEndCal
Gui, Add, Button, gAcceptBtn, Accept dates and continue
Gui, Show,, Get Dates

Loop
{
    WinWaitClose, ahk_id %GuiID%
    MsgBox, 4132, Check dates, % "Start Date: " StartDate "`nEnd Date: " EndDate "`n`nIs this correct?"
    IfMsgBox, Yes
        break
    Gui, Show
}
return
;
; *** End of auto-execute section ***
AcceptBtn:
    Gui, Submit
    StartDate := SubStr(StartCal, 5, 2) . SubStr(StartCal, 7, 2) . SubStr(StartCal, 3, 2)
    EndDate := SubStr(EndCal, 5, 2) . SubStr(EndCal, 7, 2) . SubStr(EndCal, 3, 2)

    Esc::ExitApp