#include <GUIConstants.au3>
#include <WinAPIEx.au3>

Global $srv1 = "Главное управление №8", $srv2 = "Спецстрой России(Москва)", $srv3 = "Департамент строительства МО", $srv4 = "Главное управление №8(192.168.0.21)", $list1, $list2, $list3, $list4, $server

Global $title = "Настройка TrueConf v.1.0"

$Form1_1 = GUICreate($title, 354, 372, 821, 257) ;Создаем окно
$Button1 = GUICtrlCreateButton("Подключиться", 109, 345, 129, 25) ;Создаем кнопку
GUICtrlCreateGroup("Выберите учетную запись", 3, 170, 350, 120)
$Combo1 = GUICtrlCreateCombo("", 18, 190, 320, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL, $CBS_DROPDOWNLIST)) ;Создаем выпадающий список
GUICtrlSendMsg(-1, $CB_SETDROPPEDWIDTH, 320, 0) ;
GUICtrlCreateGroup("", -99, -99, 1, 1) ; закрывает группу
GUISetState(@SW_SHOW) ;Состояние окна(Показывать)
GUICtrlCreateGroup("", 3, 0, 350, 150)
$Radio1 = GUICtrlCreateRadio($srv1, 8, 24, 235, 16) ;Создаем радиокнопку
$Radio2 = GUICtrlCreateRadio($srv2, 8, 55, 235, 16)
$Radio3 = GUICtrlCreateRadio($srv3, 8, 85, 285, 16)
$Radio4 = GUICtrlCreateRadio($srv4, 8, 118, 285, 16)
GUICtrlCreateGroup("", -99, -99, 1, 1) ; закрывает группу
$DataPath=@ScriptDir & "\etc\data.ini"
Global $hKey
$hKey = _WinAPI_RegOpenKey($HKEY_CURRENT_USER, 'SOFTWARE\TrueConf')
If Not $hKey Then
    MsgBox(16, $title, 'TrueConf Не найден!' & @CRLF & "Установите клиент TrueConf!")
    GUIDelete()
    Exit
EndIf

$arr = IniReadSection($DataPath, $srv1) ;Читаем данные из файла data.ini из секции Сервер1
For $i = 1 To $arr[0][0]
  $list1 &= "|" & $arr[$i][0]
Next
$arr = IniReadSection($DataPath, $srv2)
For $i = 1 To $arr[0][0]
  $list2 &= "|" & $arr[$i][0]
Next
$arr = IniReadSection($DataPath, $srv3)
For $i = 1 To $arr[0][0]
  $list3 &= "|" & $arr[$i][0]
Next

$arr = IniReadSection($DataPath, $srv4)
For $i = 1 To $arr[0][0]
  $list4 &= "|" & $arr[$i][0]
Next
;MsgBox(0,"",$DataPath)
While 1
  Switch GUIGetMsg()
    Case $GUI_EVENT_CLOSE
      Exit
   Case $Button1
      If ProcessExists("TrueConf.exe") Then
         ProcessClose("TrueConf.exe")
      EndIf
       Run(@ProgramFilesDir & "\TrueConf Client\TrueConf.exe")
       ServerSelect()
      ; Активация клиента
      $client = WinWait("TrueConf Client")
      WinActivate($client)
      Send("{ALT}{ENTER}")
      Sleep(500)
      ;MsgBox(0,"","Выполняю функцию Login")
      Login(GUICtrlRead($Combo1))
      Exit
      GUIDelete()
    Case $Radio1
      GUICtrlSetData( $Combo1, $list1)
      $server = $srv1
    Case $Radio2
      GUICtrlSetData($Combo1, $list2)
      $server = $srv2
   Case $Radio3
      GUICtrlSetData($Combo1, $list3)
      $server = $srv3
  Case $Radio4
      GUICtrlSetData($Combo1, $list4)
      $server = $srv4
  EndSwitch
WEnd

Func ServerSettings($IP,$Port)
  ; Активация клиента
$client = WinWait("TrueConf Client")
WinActivate($client)
Send("{ALT}{LEFT 3}")
sleep(500)
send("{DOWN 3}")
Sleep(500)
Send("{Enter}")
Sleep(500)
$NetworkWin=WinWait("Сетевые настройки")
WinActivate($NetworkWin)
Sleep(500)
Send("{SPACE}")
Sleep(500)
Send("{Tab 2}")
Sleep(500)
send("{Enter}")
$ServerWin = WinWait("Сервер")
WinActivate($Server)
Sleep(500)
ControlSetText($ServerWin, "", "[CLASS:TEdit; INSTANCE:3]", $IP)
Sleep(500)
ControlSetText($ServerWin, "", "[CLASS:TEdit; INSTANCE:4]", $Port)
Sleep(500)
ControlClick($ServerWin, "", "[CLASS:TButton; INSTANCE:3]")
WinWait("Сетевые настройки")
WinActivate($NetworkWin)
ControlClick($NetworkWin, "", "[CLASS:TButton; INSTANCE:5]")
EndFunc

Func ServerSelect()
   If GUICtrlRead ($Radio1) = $GUI_CHECKED Then
      ;RunWait(@ComSpec & ' /C regedit /s"' & @ScriptDir & '\etc\Izh_External.reg"', '', @SW_HIDE)
   ServerSettings("195.88.198.247","44307")
   EndIf
   If GUICtrlRead ($Radio2) = $GUI_CHECKED Then
      ;RunWait(@ComSpec & ' /C regedit /s"' & @ScriptDir & '\etc\Moscow.reg"', '', @SW_HIDE)
      ServerSettings("212.46.251.150","4307")
   EndIf
   If GUICtrlRead ($Radio3) = $GUI_CHECKED Then
      ;RunWait(@ComSpec & ' /C regedit /s"' & @ScriptDir & '\etc\Depart_Build_MO.reg"', '', @SW_HIDE)
      ServerSettings("188.128.123.60","4307")
   EndIf
   If GUICtrlRead ($Radio4) = $GUI_CHECKED Then
      ;RunWait(@ComSpec & ' /C regedit /s"' & @ScriptDir & '\etc\Izh.reg"', '', @SW_HIDE)
      ServerSettings("192.168.0.21","4307")
   EndIf
EndFunc

Func Login($nick)
  Local $data = StringSplit(IniRead($DataPath, $server, $nick, ''), "|")
  If @error Then Return
  Local $user = $data[1], $pass = $data[2]
  ;MsgBox(0,"","Вводим логин и пароль")
  Opt("WinTitleMatchMode", 2)
  $login = WinWait("авторизация", "")
  WinActivate($login)
  Sleep(200) ; Дождаться, когда контролы станут активны
  ControlSetText($login, "", "[CLASS:TEdit; INSTANCE:2]", $user) ; Поле с именем
  ControlSetText($login, "", "[CLASS:TEdit; INSTANCE:1]", $pass) ; Поле с паролем
  ControlClick($login, "", "[CLASS:TButton; INSTANCE:1]") ; Кнопка
EndFunc