[dl] Telewizja za darmo przez internet :-)

piotrek54 · 25 Lutego 2012


#region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Res_Description=by piotrek54
#AutoIt3Wrapper_Res_Fileversion=1.0
#endregion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>

$oie = _IECreateEmbedded()
#region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Livve", 472, 326, 192, 124)
$Object1 = GUICtrlCreateObj($oie, 0, 0, 361, 321)
$List1 = GUICtrlCreateList("", 346, 4, 123, 227)
GUICtrlSetData(-1, "AXN Crime|AXN HD|Boomerang|Canal+ Film HD|Canal+ HD|Canal+ Sport HD|Cartoon Network|Cinemax HD|Comedy Central|Discovery Channel|Discovery Science|Disney Channel|Dr.HOUSE|Eska TV|EuroSport 2 HD|FilmBox HD|Kuchnia+ HD|MiniMini+ HD|National Geographic|Nickelodeon HD|nPremium 1 HD|nPremium 2 HD|nPremium 3 HD|nPremium 4 HD|Pingwiny z madagaskaru|Polsat|Polsat 2|Polsat sport HD|Puls|TVN 24|TVN 7 HD|TVN HD|TVN Style|TVN Turbo|TVP HD|Viva Polska")
$BtnProxy = GUICtrlCreateButton("Zmień Proxy", 346, 304, 123, 20)
$BtnPin = GUICtrlCreateButton("Przyczep/Odczep", 346, 284, 123, 20)
$BtnRef = GUICtrlCreateButton("Przejdź/Odświerz", 346, 262, 123, 21)
$Combo1 = GUICtrlCreateCombo("Źródło", 348, 236, 119, 25)
GUICtrlSetData(-1, 'Weeb.tv|Alternatywne')
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###

Dim $proxy[30] = ["192.115.106.236:3128", "192.115.106.236:8080", "66.119.33.134:8000", "200.141.76.227:8080", "66.250.69.2:81 ", "170.224.224.101:8000", "216.72.63.198:8080", "61.32.11.130:8080", "211.15.62.123:8000", "201.17.167.229:6588", "81.22.95.139:6588", "200.55.26.65:8080", "61.95.206.50:6588", "203.101.41.19:6588", "210.87.135.125:80", "193.140.140.76:8080", "195.87.69.242:80", "193.140.140.70:8080", "193.95.90.51:80", "193.95.113.114:80", "193.95.27.2:8080", "193.95.90.52:80", "193.95.100.86:80", "161.200.52.2:80", "203.144.198.122:80", "203.144.197.194:80", "203.154.67.164:8080", "203.144.216.211:80", "61.19.158.50:8080", "203.107.174.34:8080"]
$referer = $proxy[Random(0, 29)]

HttpSetProxy(2, $referer)
$source1 = "tvn"
Global $togglebar
Func ToggleBarState()
$togglebar = Not $togglebar
If $togglebar = True Then
GUICtrlSetState($List1, $GUI_HIDE)
GUICtrlSetState($BtnRef, $GUI_HIDE)
GUICtrlSetState($BtnPin, $GUI_HIDE)
GUICtrlSetState($BtnProxy, $GUI_HIDE)
GUICtrlDelete($Object1)
$Object1 = GUICtrlCreateObj($oie, 2, 0, 487, 321)
_IENavigate($oie, "http://weeb.tv/mini-channel/" & $source1)
EndIf
If $togglebar = False Then
GUICtrlSetState($List1, $GUI_SHOW)
GUICtrlSetState($BtnRef, $GUI_SHOW)
GUICtrlSetState($BtnPin, $GUI_SHOW)
GUICtrlSetState($BtnProxy, $GUI_SHOW)
GUICtrlDelete($Object1)
$Object1 = GUICtrlCreateObj($oie, 2, 0, 361, 321)
_IENavigate($oie, "http://weeb.tv/mini-channel/" & $source1)
EndIf
EndFunc   ;==>ToggleBarState
HotKeySet("^m", 'ToggleBarState')
Global $togglepin
Func TogglePinState()
$togglepin = Not $togglepin
If $togglepin = True Then
MsgBox(0, "", "Od teraz program będzie zawsze na wierzchu !")
WinSetOnTop("Livve", "", 1)
EndIf
If $togglepin = False Then
WinSetOnTop("Livve", "", 0)
MsgBox(0, "", "Od teraz program nie będzie przeszkadzał !")
EndIf
EndFunc   ;==>TogglePinState
HotKeySet("^n", 'TogglePinState')

While 1
$nMsg = GUIGetMsg()

If $nMsg = $GUI_EVENT_CLOSE Then
WinSetOnTop("Livve", "", 0)
MsgBox(0, "Dzięki !", "Program by piotrek54" & @CRLF & "Stream z serwisu weeb.tv")
Exit
EndIf
If $nMsg = $BtnRef Then
Switch GUICtrlRead($List1)
Case "TVP HD"
$source1 = "tvp"
$source2 = ""
Case "TVN HD"
$source1 = "tvn"
$source2 = "http://pl.justin.tv/tobi686/popout"
Case "TVN 24"
$source1 = "tvn24"
$source2 = ""
Case "Polsat"
$source1 = "polsat"
$source2 = ""
Case "Polsat 2"
$source1 = "polsat2"
$source2 = ""
Case "TVN 7 HD"
$source1 = "tvn7hd"
$source2 = ""
Case "Puls"
$source1 = "puls"
$source2 = ""
Case "nPremium HD"
$source1 = "npremium1"
$source2 = ""
Case "Canal+ HD"
$source1 = "cplus"
$source2 = ""
Case "Cinemax HD"
$source1 = "cinmax"
$source2 = ""
Case "Comedy Central"
$source1 = "comedycentral"
$source2 = ""
Case "Canal+ Film HD"
$source1 = "cplusfilm"
$source2 = ""
Case "FilmBox HD"
$source1 = "filmbox"
$source2 = ""
Case "Axn HD"
$source1 = "axn"
$source2 = ""
Case "nPremium 4 HD"
$source1 = "npremium4"
$source2 = ""
Case "nPremium 3 HD"
$source1 = "npremium3"
$source2 = ""
Case "nPremium 2 HD"
$source1 = "npremium2"
$source2 = ""
Case "AXN Crime"
$source1 = "axncrime"
$source2 = ""
Case "Scifi Universal"
$source1 = "sfu"
$source2 = ""
Case "AleKino+ HD"
$source1 = "alekino"
$source2 = ""
Case "TV 4"
$source1 = "tv4"
$source2 = ""
Case "Dr.HOUSE"
$source1 = "gry"
$source2 = ""
Case "Viva Polska"
$source1 = "kaszpik"
$source2 = ""
Case "TVN Style"
$source1 = "tvnstyle"
$source2 = ""
Case "Pingwiny z madagaskaru"
$source1 = "men"
$source2 = ""
Case "Discovery Science"
$source1 = "discoveryscenice"
$source2 = ""
Case "National Geographic"
$source1 = "natgeochannel"
$source2 = ""
Case "TVN Turbo"
$source1 = "tvnturbo"
$source2 = ""
Case "TVN Style"
$source1 = "tvnstyle"
$source2 = ""
Case "EuroSport 2 HD"
$source1 = "eurosport2"
$source2 = ""
Case "Kuchnia+ HD"
$source1 = "kuchnia"
$source2 = ""
Case "Eska TV"
$source1 = "men2"
$source2 = @ScriptDir&"/eska.html"
Case "Canal+ Sport HD"
$source1 = "sport"
$source2 = ""
Case "Boomerang"
$source1 = "boomerang"
$source2 = ""
Case "Disney Channel"
$source1 = "disneychannel"
$source2 = ""
Case "Polsat sport HD"
$source1 = "polsatsport"
$source2 = ""
Case "Nickelodeon HD"
$source1 = "nickhd"
$source2 = ""
Case "Cartoon Network"
$source1 = "cn"
$source2 = ""
Case "MiniMini+ HD"
$source1 = "minimini"
$source2 = ""
Case "Discovery Channel"
$source1 = "discovery"
$source2 = ""
EndSwitch
If GUICtrlRead($Combo1) = "Weeb.tv" Then
$url = "http://weeb.tv/mini-channel/" & $source1
EndIf
If GUICtrlRead($Combo1) = "Alternatywne" Then
$url = $source2
EndIf
If GUICtrlRead($Combo1) = "Źródło" Then
MsgBox(0,"Error","Nie wybrałes źródła! Wybieram domyślne...")
$url = "http://weeb.tv/mini-channel/" & $source1
EndIf
_IENavigate($oie, $url)
EndIf
If $nMsg = $BtnProxy Then
HttpSetProxy(2, $referer)
EndIf
If $nMsg = $BtnPin Then
TogglePinState()
EndIf
WEnd

Działa to na podstawie serwisu weeb.tv, ten skrypt łączy się przez proxy - jednak nic to nie daje Tak więc czeka na nas limit czasowy (70 min, chyba) i limit osób oglądających.Jak ktoś wie jak to ominąć niech pisze

Skróty:

CTRL + N Odpięcie/Przypięcie programu do ekranu (zawsze na wierzchu)

CTRL + M Ukrycie/Odkrycie bocznego paska z kanałami.

SS:

Skan: https://www.virustotal.com/file/3c49d47fded7d7a7cbdbf2bb898c36afb71daf0774b70f475d38c3bea8339fc3/analysis/1330197032/

DL: http://www.mediafire.com/?oewcwyn7v2w1ab6

bodzio275 · 25 Lutego 2012

NIe wiem jak to nazwać zły dział.?

piotrek54 · 25 Lutego 2012

@up

Dlaczego ? Przecież skrypt jest ......

nerv234 · 25 Lutego 2012

No pięknie, GZ.

piotrek54 · 25 Lutego 2012

"

GZ. "

?? eeem.

"pięknie"

Layout jest domyślny, więc według mnie jest prymitywny

GameOverMan · 25 Lutego 2012

Pomysł świetny . Oglądałem kiedyś telewizje właśnie na takiej stronie.

Mi się program nawet przyda.

ivanek :D · 25 Lutego 2012

to naprawde dzialaaaaaaaaa? jaq to zrobić bo ja nie znać się na tym

GameOverMan · 25 Lutego 2012

@UP

Przecież masz kod.

Z uruchomieniem programu nie powinno być problemu.

piotrek54 · 25 Lutego 2012

Dodałem skan i dl, bo niektórzy nie interesują się autoit a chcą sobie pooglądać

C.J · 25 Lutego 2012

Skończyłem przeglądać ten skrypt, kiedy zauważyłem to..

Odświerz

ZakuG · 10 Marca 2012

Mam sposób na ominięcie limitu 70 min :P

Pobieramy to:

http://www.programs.pl/program,23507,Free_Hide_IP.html

Strona główna twórców:

http://www.free-hideip.com/

Jak to działa?

Program "zmienia" nasze IP na IP amerykańskie. Coś na zasadzie bramki proxy, tyle że o wiele lepsze.

Skoro program został napisany pod bibliotekę IE to powinno Wam bez problemu działać, gdyż z programu można korzystać pod IE oraz FF.

Jeżeli komuś nie działa przez program (mało prawdopodobne) to może wejść przez FF albo IE na www.weeb.tv i normalnie oglądać przez stronę z HideIP.

Testowałem-działa.

Włączyłeś program?

Sprawdź czy działa!

piotrek54 · 10 Marca 2012

@up

Zaraz sprawdzę, w programie też powinno działać bo on poprostu wchodzi na weeb.tv i odpala odtwarzacz mini.Więc jesli wam działa z tym programem na internet explorerze to w livve też bd.

@edit

Nie działa, najpierw pojawiało się "Brak odebranych danych" a po kilkukrotnym F5 strona wczytuje się tak wolno że szkoda gadać. Nie mówiąc już o pobieraniu strumieniowego video o.0

ZakuG · 10 Marca 2012

a zamiana biblioteki na FF.au3 nie zmieni nic?

Dołączam bibliotekę.

piotrek54 · 10 Marca 2012

Sprawdzałem w przeglądarce ..... Pozatym IE od FF nie różni się praktycznie niczym.

vance14 · 1 Kwietnia 2012

Ja chciałem zdekomplikować, a ty wstawiłeś kod Ogólnie program fajny i leci lajk

piotrek54 · 3 Kwietnia 2012

@up

Spoko, używam obfuscatora automatycznie.Do każdego skryptu nawet jeśli udostępniam kod (nie chce mi się odznaczać "use obfuscator" )

Komplikator · 17 Kwietnia 2012

już to nie działa wiec chyba temat od kosza może iść,dowód : http://screenshooter.net/2285500/tewjkdo

Zaloguj się

👋 Witaj na MPCForum!

[dl] Telewizja za darmo przez internet :-)

Rekomendowane odpowiedzi

piotrek54

piotrek54

bodzio275

bodzio275

piotrek54

piotrek54

nerv234

nerv234

piotrek54

piotrek54

GameOverMan

GameOverMan

ivanek :D

ivanek :D

GameOverMan

GameOverMan

piotrek54

piotrek54

C.J

C.J

ZakuG

ZakuG

piotrek54

piotrek54

ZakuG

ZakuG

piotrek54

piotrek54

vance14

vance14

piotrek54

piotrek54

Komplikator

Komplikator

Zarchiwizowany