Advertisement
kacpertrz1

Untitled

Jun 17th, 2016
87
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.59 KB | None | 0 0
  1. #include <IE.au3>
  2. Main()
  3.  
  4. Func Main()
  5. Local $filepath = @ScriptDir & "\skrypt.txt"
  6.  
  7. If FileExists($filepath) Then
  8. ClipPut(FileRead($filepath)) ; Wrzucamy odczyt z pliku test.txt do schowka systemowego
  9. ShellExecute("chrome.exe") ;Chrome musi byc domyslna przegladarka
  10. Sleep(100)
  11. Send("http://www.csgopolygon.com/?login")
  12. Sleep(100)
  13. Send("{ENTER}")
  14. WinWaitActive("[CLASS:Chrome_WidgetWin_1]"); Jak chcesz to sobie podmien na sleep
  15. ;PRACUJEMY NIŻEJ.........................
  16. Sleep(8000)
  17. #include <IE.au3>
  18. $email = 'twojemail'
  19. $password = 'twojehaslo'
  20. $oIE = _IECreate('https://steamcommunity.com/openid/login?openid.ns=http%3A%2F%2Fspecs.openid.net%2Fauth%2F2.0&openid.mode=checkid_setup&openid.return_to=http%3A%2F%2Fpolygon-auth.com%2Fauthorization.php%3Flogin&openid.realm=http%3A%2F%2Fpolygon-auth.com&openid.ns.sreg=http%3A%2F%2Fopenid.net%2Fextensions%2Fsreg%2F1.1&openid.claimed_id=http%3A%2F%2Fspecs.openid.net%2Fauth%2F2.0%2Fidentifier_select&openid.identity=http%3A%2F%2Fspecs.openid.net%2Fauth%2F2.0%2Fidentifier_select', 0, 1, 1, 1)
  21.  
  22. $input_login = _IEGetObjById($oIE, "steamAccountName")
  23. $input_password = _IEGetObjById($oIE, "steamPassword")
  24.  
  25.  
  26. _IEFormElementSetValue($input_login, $email)
  27. _IEFormElementSetValue($input_password, $password)
  28. $klik=_IEGetObjById($oIE, "imageLogin")
  29. Sleep(2000)
  30. _IEAction($klik, "click")
  31. ;PRACUJEMY WYŻEJ..........................
  32. Send("^+j") ;Otwieramy konsole??
  33. Sleep(2000) ; 2s przerwy na zaladowanie strony.
  34. Send("^v") ; CTRL + V
  35. Sleep(250)
  36. Send("{ENTER}")
  37. Else
  38. MsgBox(0, "", "Plik " & $filepath & " nie istnieje!")
  39. EndIf
  40. EndFunc
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement