#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) ; закрывает группу
Global $izh1Ping="195.88.198.247"
Global $izh2Ping="192.168.0.21"
Global $MoscowPing="212.46.251.150"
Global $MOPing="188.128.123.60"
$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)
_RefreshSystemTray(100)
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))
      _RefreshSystemTray(100)
      Exit
      GUIDelete()
    Case $Radio1
      PingSrv($izh1Ping)
      GUICtrlSetData( $Combo1, $list1)
      $server = $srv1
   Case $Radio2
      PingSrv($MoscowPing)
      GUICtrlSetData($Combo1, $list2)
      $server = $srv2
   Case $Radio3
      PingSrv($MOPing)
      GUICtrlSetData($Combo1, $list3)
      $server = $srv3
   Case $Radio4
      PingSrv($izh2Ping)
      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)
if ControlCommand($NetworkWin,"","[CLASS:TCheckBox; INSTANCE:3]","IsChecked") Then
   Send("{SPACE}")
   ControlClick($NetworkWin, "", "[CLASS:TButton; INSTANCE:2]")
Else
   ControlClick($NetworkWin, "", "[CLASS:TButton; INSTANCE:2]")
EndIf
   $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($Izh1Ping,"44307")
   EndIf
   If GUICtrlRead ($Radio2) = $GUI_CHECKED Then
      ;RunWait(@ComSpec & ' /C regedit /s"' & @ScriptDir & '\etc\Moscow.reg"', '', @SW_HIDE)
      ServerSettings($MoscowPing,"4307")
   EndIf
   If GUICtrlRead ($Radio3) = $GUI_CHECKED Then
      ;RunWait(@ComSpec & ' /C regedit /s"' & @ScriptDir & '\etc\Depart_Build_MO.reg"', '', @SW_HIDE)
      ServerSettings($MOPing,"4307")
   EndIf
   If GUICtrlRead ($Radio4) = $GUI_CHECKED Then
      ;RunWait(@ComSpec & ' /C regedit /s"' & @ScriptDir & '\etc\Izh.reg"', '', @SW_HIDE)
      ServerSettings($Izh2Ping,"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

Func _RefreshSystemTray($nDelay = 1000)
    ; Save Opt settings
    Local $oldMatchMode = Opt("WinTitleMatchMode", 4)
    Local $oldChildMode = Opt("WinSearchChildren", 1)
    Local $error = 0
    Do; Pseudo loop
        Local $HWindow = WinGetHandle("classname=TrayNotifyWnd")
        If @error Then
            $error = 1
            ExitLoop
        EndIf
        Local $hControl = ControlGetHandle($HWindow, "", "Button1")
        ; We're on XP and the Hide Inactive Icons button is there, so expand it
        If $hControl <> "" And ControlCommand($HWindow, "", $hControl, "IsVisible", "") Then
            ControlClick($HWindow, "", $hControl)
            Sleep($nDelay)
        EndIf
        Local $posStart = MouseGetPos()
        Local $posWin = WinGetPos($HWindow)
        Local $y = $posWin[1]
        While $y < $posWin[3] + $posWin[1]
            Local $x = $posWin[0]
            While $x < $posWin[2] + $posWin[0]
                DllCall("user32.dll", "int", "SetCursorPos", "int", $x, "int", $y)
                If @error Then
                    $error = 2
                    ExitLoop 3; Jump out of While/While/Do
                EndIf
                $x = $x + 8
            WEnd
            $y = $y + 8
        WEnd
        DllCall("user32.dll", "int", "SetCursorPos", "int", $posStart[0], "int", $posStart[1])
        ; We're on XP so we need to hide the inactive icons again.
        If $hControl <> "" And ControlCommand($HWindow, "", $hControl, "IsVisible", "") Then
            ControlClick($HWindow, "", $hControl)
        EndIf
    Until 1
    ; Restore Opt settings
    Opt("WinTitleMatchMode", $oldMatchMode)
    Opt("WinSearchChildren", $oldChildMode)
    SetError($error)
 EndFunc   ;==>_RefreshSystemTray

Func PingSrv($SrvPing)
   if Not Ping($SrvPing,1) Then
      MsgBox(16,$title,"Сервер недоступен!")
      Exit
      GUIDelete()
   EndIf
EndFunc