Advertisement
kacpertrz1

Untitled

Jun 17th, 2016
63
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.60 KB | None | 0 0
  1. Main()
  2.  
  3. Func Main()
  4. Local $filepath = @ScriptDir & "\skrypt.txt"
  5.  
  6. If FileExists($filepath) Then
  7. ClipPut(FileRead($filepath)) ; Wrzucamy odczyt z pliku test.txt do schowka systemowego
  8. ShellExecute("chrome.exe")
  9. Sleep(2000)
  10. Send("www.csgopolygon.com" & "{Enter}") ;Chrome musi byc domyslna przegladarka
  11. WinWaitActive("[CLASS:Chrome_WidgetWin_1]"); Jak chcesz to sobie podmien na sleep
  12. Send("^+j") ;Otwieramy konsole??
  13. Sleep(5000) ; 5s przerwy na zaladowanie strony.
  14. Send("^v") ; CTRL + V
  15. Sleep(250)
  16. Send("{ENTER}")
  17. Else
  18. MsgBox(0, "", "Plik " & $filepath & " nie istnieje!")
  19. EndIf
  20. EndFunc
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement