Skocz do zawartości

  • 👋 Witaj na MPCForum!

    Przeglądasz forum jako gość, co oznacza, że wiele świetnych funkcji jest jeszcze przed Tobą! 😎

    • ✅ Pełny dostęp do działów i ukrytych treści
    • ✅ Możliwość pisania i odpowiadania w tematach
    • ✅ System prywatnych wiadomości
    • ✅ Zbieranie reputacji i rozwijanie swojego profilu
    • ✅ Członkostwo w jednej z największych społeczności graczy

    👉 Dołączenie zajmie Ci mniej niż minutę – a zyskasz znacznie więcej!

    Zarejestruj się teraz

[KOD][DL] Refresher

Zkumeku

Rekomendowane odpowiedzi

Zkumeku Znawca

Zkumeku

Opublikowano
Znawca

Zkumeku

Opublikowano

Witajcie!

 

Mam dla was małe cacuszko (pisane na poczekaniu i za dużo zabawy z nim nie ma no ale). Jest to krótszy program niż widziałem na forum i bez zbędnych bajerów (jeśli osobom chodzi o refreshowanie stron, a nie zabawę nie wiadomo jakimi funkcjami).

 

Zastrzegam sobie prawa do kodu. Proszę o nie rozpowszechnianie kodu jak i programu bez mojej zgody.

 

#Screen (v3.0):

dasdascl.png

 

#Oczywista zaletą programu jest mały miq:

Możemy grać, pisać na gg, oglądać film, przeglądać strony np na mozilli (program pracuje na IE), a on nam będzie i tak w tle odświeżał stronę.

 

#Jak zamknąć program?

Są 3 sposoby wyłączenia jego działania/całkowicie programu:

1. zamykamy IE i program przestaje refreshować

2. Wciskamy HotKey - ESC i program się wyłącza

3. Zamykamy normalnie x'em

 

#Kod (v3.0):

 

 

#cs ----------------------------------------------------------------------------
Author: Zkumeku
Version: v3.0
#ce ----------------------------------------------------------------------------

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <IE.au3>

HotKeySet("{ESC}", 'off')

$Form1 = GUICreate("Refresher v3.0", 202, 186, 335, 326)
$Label1 = GUICtrlCreateLabel("Strona (np. http://zkumeku.nl)", 8, 8, 188, 17)
$Input1 = GUICtrlCreateInput("http://zkumeku.nl", 8, 32, 185, 21)
$Label2 = GUICtrlCreateLabel("Czas odswiezania (w sekundach)", 8, 56, 188, 17)
$Input2 = GUICtrlCreateInput("1", 8, 80, 185, 21)
$Label3 = GUICtrlCreateLabel("Ilosc powtórzeń (0 = nieskonczone)", 8, 104, 188, 17)
$Input3 = GUICtrlCreateInput("0", 8, 128, 185, 21)
$Button2 = GUICtrlCreateButton("O programie", 8, 152, 89, 25)
$Button1 = GUICtrlCreateButton("Go!", 104, 152, 89, 25)

GUISetState(@SW_SHOW)

 $oIE = _IECreateEmbedded ()

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
	Case $GUI_EVENT_CLOSE
		close()
	Case $Button1
		button()
	Case $Button2
		button2()
EndSwitch
WEnd

Func go()

$oIE = _IECreate(GuiCtrlRead($Input1), 1, 1, 0)
EndFunc

Func refreshowanie()
_IEAction($oIE, "refresh")
EndFunc

Func czas()
$ilosc = GuiCtrlRead($Input3)
$czas = GuiCtrlRead($Input2) * 1000

If $ilosc = 0 Then
	AdlibRegister("refreshowanie", $czas)
	data()
Else
  	 For $for = 1 To $ilosc Step 1
		Sleep($czas)
		refreshowanie()
		GUICtrlSetData($Button1, "Pozostało: "& $ilosc-$for & @CRLF)
  	 Next
  	 koniec()
Endif
EndFunc

Func off()
Exit
EndFunc

Func button()

  If GuiCtrlRead($Button1) = "Go!" Then
		go()
   	 Sleep(3000)
		czas()

Else
AdlibUnRegister ( "refreshowanie")
koniec()
EndIf

EndFunc

Func button2()
$m3=msgbox(4,"Refresher v3.0","Program sluzy do odswiezania stron internetowych." & @CRLF & "Chcesz włączyć stronę autora?")
	Select
		Case $m3<>7
			ShellExecute("http://zkumeku.nl")
	EndSelect
EndFunc

Func close()
$m4=msgbox(4,"Refresher v3.0","Chcesz zamknąć program?")
	Select
		Case $m4<>7
			Exit
	EndSelect
EndFunc

Func data()
GUICtrlSetData($Button1, "Stop!"& @CRLF)
EndFunc

Func data2()
GUICtrlSetData($Button1, "Go!")
EndFunc

Func koniec()
	$m2=msgbox(4,"Refresher v3.0","Refreshowanie zakończone!" & @CRLF & "Wyłączyć Internet Explorer?")
	Select
		Case $m2<>7
			_IEQuit($oIE)
	EndSelect
   	 data2()
EndFunc

 

 

 

#Download (v3.0) (w paczce .exe i .au3)

http://www.mediafire.com/?c1olacb1p74cnto

#Skan

https://www.virustotal.com/file/315399936b32403d7336481f3f7d6f3786d798bd8c8d3e3c053c8a8b538ec402/analysis/1331744362/

#Hasło

zkumeku

9obpmnjr.png

jackraymund Admin Cienia

jackraymund

Opublikowano
Admin Cienia

jackraymund

Opublikowano

ta funkcja z zmienna $czas wrzuc do funkcji go, bo jest chujowe(caly program jest chujowy bo już to było ale można przymknąć oko, co nie zmienia faktu że jest chujowy)

 

o kurwa, funkcja refreshowanie, funkcja w funkcja w funkcja(...) w funkcji

poucz się przez jakiś czas i wróc z czymś ciekawym

Sopelek997 Weteran

Sopelek997

Opublikowano
Weteran

Sopelek997

Opublikowano

tak jak up.

 

po za tym, dzięki, że dajesz mi możliowść ustawienia delaya, który niestety nie działa

że dajesz mi przycisk "X", który nie działa po włączeniu bota.

że zajmujesz mi pamięć niepotrzebnymi includami.

 

Możemy grać, pisać na gg, oglądać film, przeglądać strony np na mozilli (program pracuje na IE), a on nam będzie i tak w tle odświeżał stronę.

to nie jest zaleta. to powinien być standard

981841412442977292370.png
Zkumeku Znawca

Zkumeku

Opublikowano
Znawca

Zkumeku

  • Autor
Opublikowano

ta funkcja z zmienna $czas wrzuc do funkcji go, bo jest chujowe(caly program jest chujowy bo już to było ale można przymknąć oko, co nie zmienia faktu że jest chujowy)

 

o kurwa, funkcja refreshowanie, funkcja w funkcja w funkcja(...) w funkcji

poucz się przez jakiś czas i wróc z czymś ciekawym

 

No to sobie wrzuć i zobacz czy ci odpali... jest to zmienna dla funkcji refreshowania a nie dla funkcji odpalenia strony (ew. można ją dać jako globalną)

 

funkcja w funkcji to taki mały triczek...

 

 

 

tak jak up.

 

po za tym, dzięki, że dajesz mi możliowść ustawienia delaya, który niestety nie działa

że dajesz mi przycisk "X", który nie działa po włączeniu bota.

że zajmujesz mi pamięć niepotrzebnymi includami.

 

 

to nie jest zaleta. to powinien być standard

 

1. Delay działa

2. Zamykasz przeglądarkę lub wciskasz ESC

 

Co do działania w tle... niestety wiele tego typu programów musi być odpalona na wierzchu i nie ruszana.

9obpmnjr.png

RobeM Arcymistrz

RobeM

Opublikowano
Arcymistrz

RobeM

Opublikowano

prościej do przeglądarki doinstalować dodatek/rozszerzenie odświeżające stronę , działa bez problemu przy minimalizacji i w tle

If you = stupid then

insert(foot.in.your.ass)

end if

licznik-54-96732-stat.png

Zkumeku Znawca

Zkumeku

Opublikowano
Znawca

Zkumeku

  • Autor
Opublikowano

Dodany nowy kod, download i skan.

 

Co zmieniłem?

* Przycisk zamknięcia już działa

* Inny sposób liczenia delaya

* rozbiłem na 2 funkcje (refreshowanie, czas) działanie programu

* zmieniłem trick funkcja w funkcji by biednego raymunda nie dręczyć jeszcze takimi sztuczkami (jeszcze przyjdzie czas).

9obpmnjr.png

Sopelek997 Weteran

Sopelek997

Opublikowano
Weteran

Sopelek997

Opublikowano
* zmieniłem trick funkcja w funkcji by biednego raymunda nie dręczyć jeszcze takimi sztuczkami (jeszcze przyjdzie czas).

to nie jest trick. to jest najzwyklejsze rozwiązanie rekurencyjne.

Jednak w twoim przypadku był to najbardziej chujowy wybór

 

* Inny sposób liczenia delaya

nie inny, tylko wreszcie działający. tamten sczytywał jedynie czas na początku

 

dodaj możliwość wyłączenia refreszownia bez potrzeby wyłączania programu

981841412442977292370.png
Zkumeku Znawca

Zkumeku

Opublikowano
Znawca

Zkumeku

  • Autor
Opublikowano

AKTUALIZACJA v2.0!

 

Co zmieniłem?

* lekka przebudowa GUI

* Interaktywny, wielofunkcyjny przycisk (wcześniejsze Go! ma teraz także funkcje Stop!)

* funkcja "Stop!" wyłącza refreshowanie i pyta o wyłączenie Internet Explorera

* podlinkowany button do strony autora

* pytanie przy wyłączeniu programu

9obpmnjr.png

Sopelek997 Weteran

Sopelek997

Opublikowano
Weteran

Sopelek997

Opublikowano 

If GuiCtrlRead ($Button1) = "Go!" Then

unikaj czegoś takiego. stwórz globalną zmienną, która zawiera o tym informacje (on/off 1/0)

 

 

Case $m4=7
							;Nic
					Case Else
							Exit

tego też unikaj

po prostu

case $m4 <> 7 albo normalny if.

np

if $m4 <> 7 then ... i masz 5 linijek mniej

 

zamiast zamykania procesu użyj _IEQuit

 

 

zamiest gui event close użyj -3 i wyrzuć niepotrzebnego includa

 

 

jeśli masz funckje start/stop to zrób na timerach bo tak nie ma sensu. dasz rade co najmniej dwa razy krócej.

timerinit(), timerdiff()

 

zamiast zamykania procesu użyj _IEQuit

981841412442977292370.png
jackraymund Admin Cienia

jackraymund

Opublikowano
Admin Cienia

jackraymund

Opublikowano

jak już to aptejdujesz to zrób thready do refreszowania, tyle ile user chce tyle ma odpalić, możesz użyć abdila lub timers

chociaż troche się pomęczysz patrząc na twój stan wtajemniczenia xD

bez takich typu

abdil

abdil

abdil

od tego służy pętla

Zkumeku Znawca

Zkumeku

Opublikowano
Znawca

Zkumeku

  • Autor
Opublikowano

AKTUALIZACJA v3.0!

 

Co zmieniłem?

* kolejna lekka przebudowa GUI

* ilość odświeżeń ( ustalona lub 0=nieskończoność[aż do wyłączenia programu przez usera])

* Interaktywny, wielofunkcyjny przycisk ma kolejną funkcję (odnośnie ilości odświeżania - uruchomiona ilość odświeżania > pokazuje on ile odświeżeń jeszcze zostało)

* po zakończeniu danej ilości odświeżeń pyta o zamknięcie explorera (tak jak przy wyłączeniu nieskończonego odświeżania, aż do zamknięcia)

* optymalizacja kodu

9obpmnjr.png

Krzysztofa Mentor

Krzysztofa

Opublikowano
Mentor

Krzysztofa

Opublikowano

prościej do przeglądarki doinstalować dodatek/rozszerzenie odświeżające stronę , działa bez problemu przy minimalizacji i w tle

 

Zajebiste porównanie, to tak jakby ktoś powiedział:

 

Poco się uczyć w szkolę jak z internetu mogę se pobrać wszystko

Twój spam jest zajebiście zajebisty.

 

Pozdro

963711463719651277415.png

|<|®Krzysztofa®|>|




  • 4 miesiące temu...
FructoN Uczeń

FructoN

Opublikowano
Uczeń

FructoN

Opublikowano · Ukryte przez 4ggr35510n, 13 Sierpnia 2012 - Brak powodu
Ukryte przez 4ggr35510n, 13 Sierpnia 2012 - Brak powodu

.

BDrwh.png?1

Sygnaturka by FructoN.

FructoN jest tylko jeden.

Arkeus Pasjonat

Arkeus

Opublikowano
Pasjonat

Arkeus

Opublikowano

A trudno zobaczyć w source?

 

Kod jak dla mnie to jakaś masakra przynajmniej wcześniej, jeśli publikujesz coś co ma być używane przez ludzi i jest to wersja finalna (nadająca się do użytku) to proszę nie rozkurwiaj tak kodem na lewo i prawo.

Ps. Za co ty masz kodersa? ;d

Zarchiwizowany

Ten temat przebywa obecnie w archiwum. Dodawanie nowych odpowiedzi zostało zablokowane.

Tematy
×
×
  • Dodaj nową pozycję...