preparats := "Аспирин;ASPIRINE||Парацетомол;PARACETOMOL|Витамин;VITAMIN"
Gui, Add, DropDownList, vPreparat w300, % RegExReplace(preparats, ";[^|]+")
Gui, Show,
Return

*NumPad0::
    GuiControlGet, Preparat
    RegExMatch(preparats, "\Q" . Preparat . "\E;\K[^|]+", m)
    SendInput, % m
return

GuiClose:
ExitApp

arr := [{"Аспирин": "ASPIRINE"}, {"Парацетомол": "PARACETOMOL"}, {"Витамин": "VITAMIN"}]
dictionary := {}, str := ""
for k, v in arr
{
   for k1, v1 in v
   {
      dictionary[k1 ""] := v1
      str .= k1 "|"
   }
}
str := substr(str, 1, -1)
Gui, Add, DropDownList, vPreparat w300, % str
Gui, Show,
Return

*NumPad0::
    GuiControlGet, Preparat
    SendInput, % dictionary[Preparat ""]
return

GuiClose:
ExitApp

dictionary := {Аспирин: "ASPIRINE", Парацетомол: "PARACETOMOL", Витамин: "VITAMIN"}
Gui, Add, DropDownList, vPreparat w300, Аспирин|Парацетомол|Витамин
Gui, Show,
Return

*NumPad0::
    GuiControlGet, Preparat
    SendInput, % dictionary[Preparat]
return

GuiClose:
ExitApp

Gui, Add, DropDownList, vPreparat gDropDownList w300, Аспирин|Парацетомол|Витамин
Gui, Show,
Return

*vk60::
Gui Submit, NoHide
; Проверка и замена русского значения на английское
if (Preparat = "Аспирин") {
    SendInput, ASPIRINE
} else if (Preparat = "Парацетомол") {
    SendInput, PARACETOMOL
} else if (Preparat = "Витамин") {
    SendInput, VITAMIN
}
sleep, 500
return

DropDownList:
Аспирин := ASPIRINE
Парацетомол := PARACETOMOL
Витамин := VITAMIN
Return

GuiClose:
ExitApp

%Preparat%

Gui, Add, DropDownList, vPreparat gDropDownList w300, Аспирин|Парацетомол|Виттамин|
Gui, Show,
Return


 *vk60::
Gui Submit, NoHide
SendInput, %Preparat% 
sleep, 500
Return

DropDownList:
Аспирин := ASPIRINE
Парацетомол := PARACETOMOL
Витамин := VITAMIN
Return

Return
GuiClose:
ExitApp