Advertisement
kacpertrz1

Untitled

Jun 18th, 2016
61
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.64 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. Sleep(100)
  10. $oIE = _IECreate("http://www.csgopolygon.com/")
  11. Sleep(100)
  12. Send("{ENTER}")
  13. ;PRACUJEMY NIŻEJ.........................
  14. Sleep(1000)
  15.  
  16. ;PRACUJEMY WYŻEJ..........................
  17. Send("{F12}") ;Otwieramy konsole??
  18. Sleep(1000)
  19. Send("^2")
  20. Sleep(1000) ; 2s przerwy na zaladowanie strony.
  21. Send("^v") ; CTRL + V
  22. Sleep(250)
  23. Send("^{ENTER}")
  24. Else
  25. MsgBox(0, "", "Plik " & $filepath & " nie istnieje!")
  26. EndIf
  27. EndFunc
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement