39 lines
1.0 KiB
AutoHotkey
39 lines
1.0 KiB
AutoHotkey
|
#Include, func.ahk
|
|||
|
|
Menu, Tray, Icon, shell32.dll, 283 ; Set the tray icon to a keyboard
|
|||
|
|
SetWorkingDir, %A_MyDocuments%\D3K ; Make sure we can find the .ahks linked below
|
|||
|
|
csv = %A_MyDocuments%\Work_Docs\emails.csv ; Where the email CSV is
|
|||
|
|
|
|||
|
|
Gui, +AlwaysOnTop +ToolWindow
|
|||
|
|
|
|||
|
|
Gui, Add, Text, x2 y2 w60 h17 +Center, xID
|
|||
|
|
Gui, Add, Text, x65 y2 w120 h17 +Center, Name
|
|||
|
|
Gui, Add, Text, x190 y2 w100 h17 +Center, Email
|
|||
|
|
|
|||
|
|
Gui, Add, Edit, x2 y17 w60 h20 vXid
|
|||
|
|
Gui, Add, Edit, x65 y17 w120 h20 vName
|
|||
|
|
Gui, Add, Edit, x190 y17 w100 h20 vEmail
|
|||
|
|
|
|||
|
|
Gui, Add, Button, x172 y89 w70 h30 Default, OK
|
|||
|
|
|
|||
|
|
Gui, Show, h39 w292, Add dealer to CSV
|
|||
|
|
Return
|
|||
|
|
|
|||
|
|
ButtonOK:
|
|||
|
|
Gui, Submit
|
|||
|
|
writethis := Xid . "," . Email . "," . Name
|
|||
|
|
FileAppend, % "`n" writethis, %csv%
|
|||
|
|
Clipboard := Xid
|
|||
|
|
Return
|
|||
|
|
|
|||
|
|
|
|||
|
|
GuiEscape:
|
|||
|
|
GuiClose:
|
|||
|
|
ExitApp
|
|||
|
|
|
|||
|
|
Gui, Add, Edit, x5 y5 w55 h20 vXid, xID
|
|||
|
|
Gui, Add, Edit, x65 y5 w100 h20 vName, Name
|
|||
|
|
Gui, Add, Edit, x170 y5 w135 h20 vEmail, Email
|
|||
|
|
Gui, Add, Edit, x310 y5 w100 h20 vUname, Username
|
|||
|
|
Gui, Add, Button, x150 y49 w80 h20 Default, OK
|
|||
|
|
|
|||
|
|
Gui, Show, h30 w415, Add dealer to CSV
|