.au3

#RequireAdmin
#include <WinAPIProc.au3>
#include <GuiListBox.au3>
$er=0
$path = ("C:\other\Steam Desktop Authenticator\Steam Desktop Authenticator.exe") ;here

_checkSDA ()

$login = "here"
Run(@ScriptDir & "\" & "here.bat")
_steamstart ()
_csname ()
$login = "here"
Run(@ScriptDir & "\" & "here.bat")
_steamstart ()
_csname ()
$login = "here"
Run(@ScriptDir & "\" & "here.bat")
_steamstart ()
_csname ()

Func _checkSDA ()
    if not WinExists("Steam Desktop Authenticator") then
        Run($path)
        Local $iID = ProcessExists('Steam Desktop Authenticator.exe')
        If FileGetVersion(_WinAPI_GetProcessFileName($iID)) <> "1.0.10.0" then
            WinWaitActive("New Version","",5)
            WinActivate("New Version")
            WinWaitActive("New Version")
            Send("{right}")
            Send("{enter}")
        Else
            WinActivate("Steam Desktop Authenticator")
        EndIf
    Else
    WinActivate("Steam Desktop Authenticator")
    EndIf
    WinMove("Steam Desktop Authenticator", "", 1575, 0)
    WinActivate("Steam Desktop Authenticator")
EndFunc

Func _steamstart ()
   WinWaitActive("Steam Desktop Authenticator","", 2)
   SendKeepActive("Steam Desktop Authenticator")
   WinActivate("Steam Desktop Authenticator")
   WinWaitActive("Steam Desktop Authenticator","", 10)
   ControlClick("Steam Desktop Authenticator", "", "[NAME:listAccounts]")
   $listboxHandle = ControlGetHandle("Steam Desktop Authenticator", "", "[NAME:listAccounts]")
   $count = _GUICtrlListBox_GetCount($listboxHandle)
   $b = 0
   For $sdai = 0 To $count - 1
      $itemText = _GUICtrlListBox_GetText($listboxHandle, $sdai)
      If $itemText = $login then
         SendKeepActive($listboxHandle)
         _GUICtrlListBox_SetCurSel($listboxHandle, $sdai)
         _GUICtrlListBox_ClickItem($listboxHandle, $sdai, "left", False)
         SendKeepActive("")
         $b = 1
      EndIf
   Next
   If $b = 0 then
      MsgBox (0, "Ошибка", "Аккаунт '" & $c & "' отсутствует в SDA")
      Exit
   EndIf
   $listboxHandle = ControlGetHandle("Steam Desktop Authenticator", "", "[Text:Copy")
   SendKeepActive($listboxHandle)
   Sleep(1000)
   WinActivate("Steam Desktop Authenticator")
   ControlClick("Steam Desktop Authenticator", "", "[Text:Copy]")
   WinActivate("Steam Desktop Authenticator")
   ControlClick("Steam Desktop Authenticator", "", "[Text:Copy]")
   SendKeepActive("")
   WinSetState("Steam Desktop Authenticator", "", @SW_MINIMIZE)
   Do
      Sleep(300)
   Until WinExists("Вход в Steam")
   $swh=WinGetHandle("Вход в Steam")
   WinSetTitle($swh, "", "Вход_Steam "& $login)
   WinActivate("Вход_Steam "& $login)
   WinWaitActive("Вход_Steam "& $login,"",5)
   SendKeepActive("Вход_Steam "& $login)
   WinActivate("Вход_Steam "& $login)
   WinWaitActive("Вход_Steam "& $login)
   Sleep(100)
   AutoItSetOption("PixelCoordMode",0)
   $ppp=0xE0E1E6
   $pp=0xE0E1E6
   $pppp=0xE0E1E6
   $er=0
   Do
      $sss=WinGetHandle("Вход_Steam "& $login)
      $ppp=PixelGetColor ( 526, 280, $sss)
      $pp=PixelGetColor ( 415, 200, $sss)
      $pppp=PixelGetColor ( 251, 250, $sss)
      $hhh=Hex($ppp,6)
      $hh=Hex($pp,6)
      $hhhh=Hex($pppp,6)
      WinActivate("Вход_Steam "& $login)
      If $pp=0x2B77FF Or $pppp=0x2B78FF then
         $er=1
      EndIf
   Until $ppp=0x1A99FF Or $pp=0x2B77FF Or $pppp=0x2B78FF
   Sleep(100)
   WinActivate("Вход_Steam "& $login)
   Send('+{INS}')
   SendKeepActive("")
EndFunc

Func _csname ()
   WinExists("Counter-Strike: Global Offensive - Direct3D 9")
   WinActivate("Counter-Strike: Global Offensive - Direct3D 9")
   WinWaitActive("Counter-Strike: Global Offensive - Direct3D 9")
   $z = 0
   while $z = 0
      $x = WinGetPos("Counter-Strike: Global Offensive - Direct3D 9")
      if $x[2] < 420 and $x[3] < 420 then
         $z = 1
      EndIf
   WEnd
   WinSetTitle("Counter-Strike: Global Offensive - Direct3D 9", "", "#" & $login)
   $m = 0
   While $m = 0
      $k = Winlist()
      for $i = 1 to $k[0][0]
         if StringRegExp($k[$i][0], "#" & $login) then
            $m = 1
         EndIf
      Next

   WEnd
   WinSetState("#" & $login, "", @SW_MINIMIZE)
EndFunc