33 lines
845 B
AutoHotkey
33 lines
845 B
AutoHotkey
|
#SingleInstance force ; Only one instance at a time
|
||
|
|
SendMode, Input
|
||
|
|
FileEncoding, UTF-8 ; Makes sure the special characters don't break stuff
|
||
|
|
|
||
|
|
Menu, Tray, Icon, %A_MyDocuments%\D3K\icons\manual.ico
|
||
|
|
|
||
|
|
Gui, +AlwaysOnTop +ToolWindow
|
||
|
|
|
||
|
|
Gui, Add, Edit, x2 y3 w78 h20 vNumber +Left,
|
||
|
|
Gui, Add, Button, x22 y43 w70 h20 Default vHidden, Ok
|
||
|
|
Gui, Add, Button, x81 y3 w17 h20 gHelp +Center, ?
|
||
|
|
Gui, Show, h28 w100, ManSol
|
||
|
|
GuiControl, Hide, Hidden
|
||
|
|
|
||
|
|
Return
|
||
|
|
|
||
|
|
ButtonOk:
|
||
|
|
Gui, submit ; I have no idea what the regex means any more...
|
||
|
|
If RegExMatch(Number, "[[:alpha:]]+")
|
||
|
|
run, % "http://serviceadvisor.deere.com/WebSA/manuals/" Number
|
||
|
|
Else If RegExMatch(Number, "[[:digit:]]+")
|
||
|
|
run, % "https://serviceadvisor.deere.com/WebSA/solutions/en/" Number
|
||
|
|
ExitApp
|
||
|
|
Return
|
||
|
|
|
||
|
|
|
||
|
|
Help:
|
||
|
|
Run, https://daviddaily.dev/david/d3k/wiki/ManSol
|
||
|
|
Return
|
||
|
|
|
||
|
|
GuiClose:
|
||
|
|
GuiEscape:
|
||
|
|
ExitApp
|