Advertisement
xaoc-here

cs go farm 18 ACC

Jul 1st, 2022
721
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ;0_1
  2. $steam = ("snajper610") ;указываем ваш логин
  3. $sda = ("D:\Program Files\SDA-1.0.10\Steam Desktop Authenticator.exe") ;указываем путь для сда
  4. Run(@ScriptDir & '\' & $steam & '_cs.bat') ; запускаем батник в папке с этим скриптом
  5. WinWaitActive("Steam Guard — Необходима авторизация компьютера")
  6. if not WinExists("Steam Desktop Authenticator") Then ; проверка запущен ли сда
  7.    Run($sda) ; запускаем sda
  8.    $b = 0
  9.    While $b = 0
  10.       $d = ControlGetText("Steam Desktop Authenticator", "", "[Class:WindowsForms10.EDIT.app.0.afceb_r9_ad1; INSTANCE:2]")
  11.       If $d <> "" Then
  12.          $b = 1
  13.       EndIf
  14.    WEnd
  15. EndIf
  16. WinActivate("Steam Desktop Authenticator")
  17. WinWaitActive("Steam Desktop Authenticator")
  18. Sleep (300)
  19. WinMove("Steam Desktop Authenticator", "", 1408, 296) ; перемещаем сда для удобства
  20. ControlClick("Steam Desktop Authenticator", "", "[Class:WindowsForms10.LISTBOX.app.0.afceb_r9_ad1; INSTANCE:1]")
  21. Sleep (300)
  22. Send("{end}")
  23. $sda = ControlGetText ("Steam Desktop Authenticator", "", "[Class:WindowsForms10.Window.8.app.0.afceb_r9_ad1; INSTANCE:2]")
  24. Send("{home}")
  25. $a = ControlGetText ("Steam Desktop Authenticator", "", "[Class:WindowsForms10.Window.8.app.0.afceb_r9_ad1; INSTANCE:2]")
  26. $b = 0
  27. $c = "Account: " & $steam ; название акка из сда
  28. if $a = $c Then
  29.    $b = 1
  30. EndIf
  31. While $b <>1
  32.    Send("{down 1}")
  33.    $a = ControlGetText ("Steam Desktop Authenticator", "", "[Class:WindowsForms10.Window.8.app.0.afceb_r9_ad1; INSTANCE:2]")
  34.    if $a = $c Then
  35.       $b = 1
  36.    EndIf
  37.    if $b <> 1 and $a = $sda then
  38.       MsgBox (0, "Ошибка", "Аккаунт отсутствует в SDA" )
  39.       Exit
  40.    EndIf
  41. WEnd
  42. $d = ControlGetText("Steam Desktop Authenticator", "", "[Class:WindowsForms10.EDIT.app.0.afceb_r9_ad1; INSTANCE:2]")
  43. ClipPut($d)
  44. WinSetState("Steam Desktop Authenticator", "", @SW_MINIMIZE)
  45. WinActivate("Steam Guard — Необходима авторизация компьютера")
  46. WinWaitActive("Steam Guard — Необходима авторизация компьютера")
  47. Send('+{INS}')
  48. Send("{enter}")
  49. WinActivate("Counter-Strike: Global Offensive — Steam")
  50. WinWaitActive("Counter-Strike: Global Offensive — Steam")
  51. WinWaitClose("Counter-Strike: Global Offensive — Steam")
  52. WinExists("Counter-Strike: Global Offensive")
  53. WinActivate("Counter-Strike: Global Offensive")
  54. WinWaitActive("Counter-Strike: Global Offensive")
  55. $z = 0
  56. while $z = 0
  57.    $x = WinGetPos("Counter-Strike: Global Offensive")
  58.    if $x[2] < 420 and $x[3] < 420 Then
  59.       $z = 1
  60.    EndIf
  61. WEnd
  62. WinSetTitle("Counter-Strike: Global Offensive", "", "csgo - " & $steam) ; переименовуем кс
  63. $m = 0
  64. While $m = 0
  65.    $k = Winlist()
  66.    for $i = 1 to $k[0][0]
  67.       if StringRegExp($k[$i][0], "csgo - " & $steam) then
  68.          $m = 1
  69.       EndIf
  70.    Next
  71.    if $m = 0 Then
  72.       WinSetTitle("Counter-Strike: Global Offensive", "", "csgo - "& $steam) ; переименовуем кс 2
  73.    EndIf
  74. WEnd
  75. WinExists("csgo - "& $steam)
  76. WinWaitActive("csgo - "& $steam)
  77. Sleep (3000)
  78. $x = WinGetPos("csgo - "& $steam)
  79. MouseClick('primary', $x[0] + 16, $x[1] + 64, 1) ; нажать играть
  80. MouseClick('primary', $x[0] + 169, $x[1] + 79, 1) ; нажать бой на смерть
  81. MouseClick('primary', $x[0] + 311, $x[1] + 313, 1) ; нажать начать
  82.  
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement