Poradnik Gotowe skrypty do kompilacji AUTOIT

Wszystkie skrypty udostępnione, są zrobione przez amatora  
Skrypty można udostępniać na innym forum.

FAQ:

««««««««««««¤»»»»»»»»»»»»

Pytanie: Jak uruchomić skrypt w spojlerze, twój program?
Odpowiedź: Trzeba go skompilować, pod tym linkiem znajdziesz poradnik jak tego dokonać.
Odp.fast: Ściągasz Autoit, Edytor Scite, otwierasz Scite, musisz zapisać w rozszerzeniu ^_*.au3 ^{₍inaczej go nie skompilujesz₎}

a później wciśnij CTRL+f7 lub przejdź w zakładkę Tools>Compile.

«·«·«·«·«·«·«·«·««««¤»»»»·»·»·»·»·»·»·»·»

1. Skrypt odświeża twoją stronę lub nabija viewsy. 

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****

#AutoIt3Wrapper_Compression=4

#AutoIt3Wrapper_Compile_Both=y

#AutoIt3Wrapper_UseX64=y

#AutoIt3Wrapper_Res_Comment=ktoś to przeczytał?

#AutoIt3Wrapper_Res_Description=ktoś to przeczytał?

#AutoIt3Wrapper_Res_Fileversion=ktoś to przeczytał?

#AutoIt3Wrapper_Res_LegalCopyright=ktoś to przeczytał?

#AutoIt3Wrapper_Res_Language=1040

#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

#include <ButtonConstants.au3>

#include <EditConstants.au3>

#include <GUIConstantsEx.au3>

#include <WindowsConstants.au3>

#include <Ie.au3>

#include <Misc.au3>

 

; Tutaj są klawisze XD

HotKeySet("{PAUSE} ", "TogglePause")

HotKeySet("{END} ", "End")

 

#Region ### START Koda GUI section ### Form=

$Form1 = GUICreate("Form1", 615, 275, 192, 124)

Const $Button1 = GUICtrlCreateEdit  ( "Przyciskiem Pause/Break Zatrzymujesz skrypt"&@CRLF&"Przyciskiem END wyłączasz okno", 208, 192, 400, 80)

$Group1 = GUICtrlCreateGroup("Group1", 8, 8, 193, 145)

GUICtrlCreateGroup("", -99, -99, 1, 1)

 

$Input1 = GUICtrlCreateInput("URL", 10, 160, 604, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER))

$Input2 = GUICtrlCreateInput("Predkosc w sekundach", 10, 190, 150, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER))

Global $Paused

Global $oie1

GUISetState(@SW_SHOW)

$oie1 = _IECreateEmbedded()

 

 

GUICtrlCreateObj($oie1,8,8,593,145)

;GUICtrlSetState(-1,$GUI_HIDE)

 

 

#EndRegion ### END Koda GUI section ###

 

#Region Funkcji #

Func TogglePause()

    $Paused = NOT $Paused

    While $Paused

        Sleep(100)

Wend

EndFunc

Func end()

Exit

EndFunc

Func Button()

_IELoadWait($oie1)

$oIE1.document.parentWindow.scroll(2,2)

EndFunc

#endregion Koniec Funkcjuf #

 

 

While 1

_IeNavigate($oie1,GuiCtrlRead($Input1))

$oIE1.document.parentWindow.scroll(10,235)

   Button()

 

      sleep(GuiCtrlRead($input2)&'000')

 

WEnd

 

Ustawienia:
klawisz: End - Wyłączamy skrypt
klawisz: Pause - Zatrzymujemy skrypt
Ten Skrypt jest odpowiednikiem:

› Nabijanie Wyświetleń, DailyMotion,Vimeo,Meta

Mi kod kompletnie się nie podoba. Nie dość że zrobiłeś to na IE co jest najmniej wydajne z dostępnych biblotek to jeszcze poszedłeś na łatwiznę i po odpaleniu programu on ciągle się odświeża nawet jak żadnego url nie wpiszę :/. Sorry ale moim zdaniem program słabo zrobiony.

Do takich czynności chyba lepiej użyć wtyczki Reload Every pod Firefoxa. Wystarczy otworzyć kilka kart i ustawić dla nich automatyczne odświeżanie co 3-5 sekund

Do takich czynności chyba lepiej użyć wtyczki Reload Every pod Firefoxa. Wystarczy otworzyć kilka kart i ustawić dla nich automatyczne odświeżanie co 3-5 sekund

+

@aMuliC - Wiem, wrzuciłem prosty szablon żeby każdy zrobił go pod siebie. Co do wykonania, sprawdzałem inny skrypt ktory przełącza mi proxy, i potrzebowałem coś co odwiedza mi stronę. Dlatego wrzuciłem taki jaki jest. Nie ma lipy

No nie mówię że źle zrobiłeś wrzucając go, po prostu moim zdaniem jest mało funkcjonalny.

świetny pomysł z tym tematem, może ktoś wrzuci coś ciekawszego. Ja od siebie wrzucam kod na wrzucanie pastebin:
 

SKRYPT - Dodawanie do pastebin:

#include <ButtonConstants.au3>#include <EditConstants.au3>#include <GUIConstantsEx.au3>#include <WindowsConstants.au3>#include <ie.au3>#include <GuiScrollBars.au3>#Region ### START Koda GUI section ### Form=$Form1 = GUICreate("Form1", 955, 588, 192, 124)$Edit1 = GUICtrlCreateEdit("", 16, 48, 801, 153)GUICtrlSetData(-1, "Sprawdź czy działa")$Button1 = GUICtrlCreateButton("Dodaj swoj opis na pastebin.com", 40, 208, 185, 41)$Input1 = GUICtrlCreateInput("http:// pierwszy link", 232, 208, 585, 21)GUICtrlSetBkColor(-1, 0xD7E4F2)$Input2 = GUICtrlCreateInput("http:// drugi link", 232, 232, 585, 21)GUICtrlSetBkColor(-1, 0xD7E4F2)$Input3 = GUICtrlCreateInput("http:// trzeci link", 232, 256, 585, 21)GUICtrlSetBkColor(-1, 0xD7E4F2)$Input4 = GUICtrlCreateInput("Captcha",416, 368, 169, 21,BitOR($ES_CENTER,$ES_MULTILINE))$oie = _IECreateEmbedded()GUICtrlCreateObj($oie,20,280,390,390)GUISetState(@SW_SHOW)#EndRegion ### END Koda GUI section ###_IENavigate($oie,'http://pastebin.com/')While 1	$nMsg = GUIGetMsg()	Switch $nMsg		Case $GUI_EVENT_CLOSE			Exit		Case $Button1			$poleedit = _IEGetObjByName($oie,'paste_code')			_IEFormElementSetValue($poleedit,GuiCtrlRead($Edit1))			_IELoadWait($oie)$size = WinGetPos("[active]")WinMove("[active]",'','1','1')MouseMove(253,326)MouseWheel ( "down",30 )Sleep(700)MouseClick("left")_IELoadWait($oie)$lol = _IEPropertyGet($oie, "locationurl")GuiCtrlsetData($input1,$lol)GuiCtrlsetData($input2,$lol)GuiCtrlsetData($input3,$lol)	EndSwitchWEnd