View difference between Paste ID: Mi2zXBSM and 9RkeU9BB
SHOW: | | - or go back to the newest paste.
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-
82+