ASG

HotKeySet("{F4}", "_Exit")
Func _Exit()
Sleep(100)
Exit
EndFunc ;==> _Exit()
$steam = ("Login") ;Логин с батника
$sda = ("C:\Users\Taum\Desktop\SDA ALL\SDA NNN\1-20") ;Путь к SDA
Run(@ScriptDir & '\' & $steam & '.bat')
Sleep(16000)
WinActivate("Steam Guard — Необходима авторизация компьютера")
WinWaitActive("Steam Guard — Необходима авторизация компьютера")
if not WinExists("Steam Desktop Authenticator") Then
   Run($sda)
   Sleep(2000)
   Send("Пароль") ;Пароль от Sda(если нету, удаляйте строчку)
   Send("{enter}")
   $b = 0
   While $b = 0
      $d = ControlGetText("Steam Desktop Authenticator", "", "[Class:WindowsForms10.EDIT.app.0.afceb_r8_ad1; INSTANCE:2]")
      If $d <> "" Then
         $b = 1
      EndIf
   WEnd
EndIf
WinActivate("Steam Desktop Authenticator")
WinWaitActive("Steam Desktop Authenticator")
Sleep (300)
WinMove("Steam Desktop Authenticator", "", 1000, 167)
ControlClick("Steam Desktop Authenticator", "", "[Class:WindowsForms10.LISTBOX.app.0.afceb_r8_ad1; INSTANCE:1]")
Send("{end}")
$sda = ControlGetText ("Steam Desktop Authenticator", "", "[Class:WindowsForms10.Window.8.app.0.afceb_r8_ad1; INSTANCE:2]")
Send("{home}")
$a = ControlGetText ("Steam Desktop Authenticator", "", "[Class:WindowsForms10.Window.8.app.0.afceb_r8_ad1; INSTANCE:2]")
$b = 0
$c = "Account: " & $steam
if $a = $c Then
   $b = 1
EndIf
While $b <>1
   Send("{down 1}")
   $a = ControlGetText ("Steam Desktop Authenticator", "", "[Class:WindowsForms10.Window.8.app.0.afceb_r8_ad1; INSTANCE:2]")
   if $a = $c Then
      $b = 1
   EndIf
   if $b <> 1 and $a = $sda then
      MsgBox (0, "Ошибка", "Аккаунт отсутствует в SDA" )
      Exit
   EndIf
WEnd
$d = ControlGetText("Steam Desktop Authenticator", "", "[Class:WindowsForms10.EDIT.app.0.afceb_r8_ad1; INSTANCE:2]")
ClipPut($d)
WinSetState("Steam Desktop Authenticator", "", @SW_MINIMIZE)
WinActivate("Steam Guard — Необходима авторизация компьютера")
WinWaitActive("Steam Guard — Необходима авторизация компьютера")
Send('+{INS}')
Send("{enter}")