Форма с выпадающим списком

[AlexVong]

Версия AutoIt: 3.3.8.1

Описание:

Добрый день друзья. Нужна помощь в создании формы с выпадающим списком. Выпадающий список будет содержать url адреса. При выборе одного из адресов - открыть ссылку в IE, а форму закрыть.
Примечания: Адресов порядка 20 шт. и они будут не измены...

 

[InnI]

GUICreate("URL", 300, 30)
$combo = GUICtrlCreateCombo("", 5, 5, 290, 20)
GUISetState()

GUICtrlSetData($combo, "www.autoit-script.ru|www.yandex.ru|www.mail.ru")

Do
  Switch GUIGetMsg()
    Case -3
      Exit
    Case $combo
      Run(@ProgramFilesDir & "\Internet Explorer\iexplore.exe " & GUICtrlRead($combo))
      ; ShellExecute(GUICtrlRead($combo)) ; в браузере по умолчанию
      Exit
  EndSwitch
Until 0

 

[AlexVong]

InnI
Спасибо!

А можно сделать чтобы в выпадающем списке высвечивались не адреса а названия? Например: Форум autoit, Поисковик, Почта и т.д.

 

[InnI]

AlexVong [?]

не адреса а названия

GUICreate("URL", 300, 30)
$combo = GUICtrlCreateCombo("", 5, 5, 290, 20)
GUISetState()

Global $Names[3] = ["Форум autoit","Поисковик","Почта"]
Global $URLs[3] = ["www.autoit-script.ru","www.yandex.ru","www.mail.ru"]

For $i = 0 To UBound($Names) - 1
  GUICtrlSetData($combo, $Names[$i])
Next

Do
  Switch GUIGetMsg()
    Case -3
      Exit
    Case $combo
      $str = GUICtrlRead($combo)
      For $i = 0 To UBound($Names) - 1
        If $str = $Names[$i] Then Run(@ProgramFilesDir & "\Internet Explorer\iexplore.exe " & $URLs[$i])
      Next
      Exit
  EndSwitch
Until 0