kacpertrz1

Untitled

Jun 17th, 2016
30
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.62 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) ; 2s przerwy na zaladowanie strony.
  19. Send("^v") ; CTRL + V
  20. Sleep(250)
  21. Send("^{ENTER}")
  22. Else
  23. MsgBox(0, "", "Plik " & $filepath & " nie istnieje!")
  24. EndIf
  25. EndFunc
Add Comment
Please, Sign In to add comment