Skocz do zawartości
PłaceZa

Gotowe skrypty do kompilacji AUTOIT

Rekomendowane odpowiedzi

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

Edytowane przez PłaceZa
  • Super 2

 

 

Odnośnik do komentarza

Dołącz do nas za darmo i naucz się zarabiać!

  • Dostęp do darmowych poradników pokazujących krok po kroku jak zarabiać w Internecie
  • Sposoby zarabiania niepublikowane nigdzie indziej
  • Aktywna społeczność, która pomoże Ci rozwiązać problemy i doradzi
  • Profesjonalne treści na temat SEO, social media, afiliacji, kryptowalut i wiele więcej!

 

 

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.

  • Super 1

 

Użytkownik oskarżony o oszustwo.

 

Odnośnik do komentarza

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

Edytowane przez PłaceZa

 

 

Odnośnik do komentarza

ś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
Edytowane przez Blitzzer
Odnośnik do komentarza

Jeśli chcesz dodać odpowiedź, zaloguj się lub zarejestruj nowe konto

Jedynie zarejestrowani użytkownicy mogą komentować zawartość tej strony.

Zarejestruj nowe konto

Załóż nowe konto. To bardzo proste!

Zarejestruj się

Zaloguj się

Posiadasz już konto? Zaloguj się poniżej.

Zaloguj się


×
×
  • Dodaj nową pozycję...

Powiadomienie o plikach cookie

Ta strona korzysta z ciasteczek aby świadczyć usługi na najwyższym poziomie. Dalsze korzystanie z witryny oznacza zgodę na ich wykorzystanie. Polityka prywatności .