Интернет радио и телевизија (стримови, прашања, генерална дискусија...)

[ziko tara]

pleesss

Mozeli neko poslat stabilne LIG tv kanale na pp HVALA

 

[ajdutin]

Šta je s tebe bilo? Fakat mi nije jasno, nekad se ispričamo na čatu a sad imaš nešto protiv mene? Stvarno mi je žao što ste postali takvi. Ja sam se povukao iz svega i čak i ne ulazim više na forume kao prije al' svi oni koji me znaju dobro znaju da nikad nisam pravio takve stvari.

Nadam se da mod ovo neće obrisati jer nije ok to prozivanje a i postavio sam source i svako može kompajlirati aplikaciju.

Evo i kompletan source te aplikacije i svako ko se razumije vidi da liste nigdje ne idu:

http://www.mediafire.com/file/rzn62ugzznuy40p/Playlist_Checker_VB.NET_Source.rar

Možete koristit Visual Basic i sami kompajlirati ovaj kod. Plus uvijek možete pokrenuti bilo koji network sniiffer alat i gledati šta aplikacija radi u pozadini i na koji file host šalje liste, jer negdje ih mora slati.

Ovo je kompletan kod. Liste tj. source se ubacuju u richtextbox i applikacija siječe dio koda tj. ono što radite ručno kad zamjenite "get.php" i "panel_api.php" uzima se unixtimestamp i konvertuje u datum. To je sve.

Imports System.Text.RegularExpressions
Imports System.Net

Public Class Form1

    Dim WebRequest As WebClient = New WebClient

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        For Each playlist In ListBox1.Items

            On Error Resume Next

            Application.DoEvents()

            TextBox1.Text = playlist

            WebRequest.Headers.Add("Referer", TextBox1.Text)
            WebRequest.Headers(HttpRequestHeader.UserAgent) = "Mozilla/5.0 (iPhone; U; CPU iPhone OS 3_0 like Mac OS X; en-us) AppleWebKit/528.18 (KHTML, like Gecko) Version/4.0 Mobile/7A341 Safari/528.16"
            Application.DoEvents()
            Dim sSource As String = WebRequest.DownloadString(TextBox1.Text)

            PageSource.Clear()
            PageSource.Text = sSource

            Dim text As String = PageSource.Text

            If text.Contains("http") Then

                Label1.Text = RichTextBox1.Lines.Length
                My.Computer.Network.DownloadFile(TextBox1.Text, "Playlists\Playlist " + Label1.Text + ".m3u")

                Dim file As System.IO.StreamWriter
                file = My.Computer.FileSystem.OpenTextFileWriter("Playlists\Playlists.txt", True)
                file.WriteLine(TextBox1.Text)
                file.Close()

            End If

            TextBox1.Text = TextBox1.Text.Replace("get.php", "panel_api.php")
            WebRequest.Headers.Add("Referer", TextBox1.Text)
            WebRequest.Headers(HttpRequestHeader.UserAgent) = "Mozilla/5.0 (iPhone; U; CPU iPhone OS 3_0 Like Mac OS X; en-us) AppleWebKit/528.18 (KHTML, Like Gecko) Version/4.0 Mobile/7A341 Safari/528.16"
            Application.DoEvents()
            Dim Source As String = WebRequest.DownloadString(TextBox1.Text)

            PageSource.Clear()
            PageSource.Text = Source

            PageSource.Text = PageSource.Text.Replace("""exp_date"":", "Datum_Isteka:")
            PageSource.Text = PageSource.Text.Replace("""exp_date"":""", "Datum_Isteka:")


            Dim r1 As New Regex("(?<=Datum_Isteka:).+?(?="")")
            Dim matches1 As MatchCollection = r1.Matches(PageSource.Text)

            Dim r2 As New Regex("(?<=""max_connections"":"").+?(?="")")
            Dim matches2 As MatchCollection = r2.Matches(PageSource.Text)

            Dim r3 As New Regex("(?<=""active_cons"":"").+?(?="")")
            Dim matches3 As MatchCollection = r3.Matches(PageSource.Text)

            For Each playlist1 As Match In matches1
                Application.DoEvents()

                For Each playlist2 As Match In matches2
                    Application.DoEvents()

                    For Each playlist3 As Match In matches3
                        Application.DoEvents()

                        TextBox2.Text = playlist1.Value
                        TextBox2.Text = TextBox2.Text.Replace("""", "")
                        TextBox2.Text = TextBox2.Text.Replace(",", "")


                        If TextBox2.Text = "null" Then

                            Dim uTime As String = UnixToTime(TextBox2.Text)
                            RichTextBox1.AppendText(playlist & " Expiration Date: NO." & " Maximum Connections: " & playlist2.Value & " Active Connections: " & playlist3.Value & Environment.NewLine)

                        Else

                            Dim uTime As String = UnixToTime(TextBox2.Text)
                            RichTextBox1.AppendText(playlist & " Expiration Date: " & uTime & " Maximum Connections: " & playlist2.Value & " Active Connections: " & playlist3.Value & Environment.NewLine)

                        End If

                    Next

                Next

            Next

            Dim startingPoint As Integer = -1
            Do
                startingPoint = RichTextBox1.Find("Expiration Date:", startingPoint + 1, RichTextBoxFinds.None)
                If (startingPoint >= 0) Then
                    Application.DoEvents()
                    RichTextBox1.SelectionStart = startingPoint
                    RichTextBox1.SelectionLength = "Expiration Date:".Length
                    RichTextBox1.SelectionColor = Color.Red
                End If
            Loop Until startingPoint < 0

            Dim startingPoint1 As Integer = -1
            Do
                startingPoint1 = RichTextBox1.Find("Maximum Connections:", startingPoint1 + 1, RichTextBoxFinds.None)
                If (startingPoint1 >= 0) Then
                    Application.DoEvents()
                    RichTextBox1.SelectionStart = startingPoint1
                    RichTextBox1.SelectionLength = "Maximum Connections:".Length
                    RichTextBox1.SelectionColor = Color.LawnGreen
                End If
            Loop Until startingPoint1 < 0

            Dim startingPoint2 As Integer = -1
            Do
                startingPoint2 = RichTextBox1.Find("Active Connections:", startingPoint2 + 1, RichTextBoxFinds.None)
                If (startingPoint2 >= 0) Then
                    Application.DoEvents()
                    RichTextBox1.SelectionStart = startingPoint2
                    RichTextBox1.SelectionLength = "Active Connections:".Length
                    RichTextBox1.SelectionColor = Color.LawnGreen
                End If
            Loop Until startingPoint2 < 0

        Next

    End Sub

    Private Sub PasteToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PasteToolStripMenuItem.Click
        Dim items() As String = Clipboard.GetText.Split(New String() {Environment.NewLine}, StringSplitOptions.RemoveEmptyEntries)
        ListBox1.Items.AddRange(items)
    End Sub

    Public Function UnixToTime(ByVal strUnixTime As String) As Date
        UnixToTime = DateAdd(DateInterval.Second, Val(strUnixTime), #1/1/1970#)
        If UnixToTime.IsDaylightSavingTime = True Then
            Application.DoEvents()
            UnixToTime = DateAdd(DateInterval.Hour, 1, UnixToTime)
        End If
    End Function

    Private Sub ClearToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ClearToolStripMenuItem.Click
        ListBox1.Items.Clear()
    End Sub

End Class

Nema potrebe za ovim uništavanjem svega, stvarno mi je žao što smo postali ovakvi i mrzimo se zbog ovih listi. Ako je nekom lista stala pa ljudi gledate tuđu listu može da stane bilo kad, datum isteka uopšte ne mora da znači da će lista trajati baš do tog datuma. Da sam bio pametan stavio bi daljinsko gašenje i ove aplikacije, svakako više nisam u ovom, čak štaviše, gadi mi se sve ovo i kakvi smo postali.

Nadam se da mod ovo neće obrisati jer nije ok to prozivanje a i postavio sam source i svako može kompajlirati aplikaciju.

Davno sam rekao da su ove liste najveće smeće koje je internet vidio i eto u šta su vas pretvorile, šteta. Ne smeta mi što me prozivate kao lopova svakako sam izašao iz svega ovog i ne radim više apdejte baš zbog toga kakvi smo postali. Nekad se svašta pravilo, internacional će reći da je to trećerazredno al' ja sam pravio da nekom pomognem i sve postavljao javno. Vi čuvate neke alate tj. te prvorazredne koje nikom ne šaljete a pljujete na ove koje sam ja "skrpio" da koliko toliko olakša i pomogne nekom.

Nek' vam je na dušu to prizivanje.

U svemu ovom sam bio preko 6-7 godina, prvu aplikaciju sam napravio sa pokojnim D.M.W. s kojim sam pričao na gmail dan-dva prije nego što je umro. NIKAD nismo napravili ništa što će nekom naškodit, to dobro znaju ljudi sa WiZiWiG i ostalih foruma.Sâm D.M.W. za kojeg čak ni ja nisam znao da umire a pričali smo skoro cijelu noć dok smo piisali kod za tada noobroom a danas Movies aplikaciju. Čovjek je pomagao svima do zadnjeg dana života. Ja ga pamtim po tome, po čemu će pamtit nas? Mržnji? Slikama? Koliko se hvalimo?

Moj mediafire ima preko 350.000 downloads svih aplikacija ikad postavljenih, sâm mediafire blokira sumnjive aplikacije tj. one koje nešto kradu ili sadrže dio koda koji može nešto uništit. Pri samom upload-u blokiraju aplikaciju i ne može na upload. X puta sam ispravljao dio koda zbog false positive izvještaja na virustotal i još jednom kažem ko želi bilo koji source od bilo koje aplikacije može da ga dobije. Jedino ne šaljem Movies aplikaciju jer je prvu stranu koda te aplikacije napisao pokojni D.M.W. čovjek koji je pomogao svakom i to do zadnjeg dana života koji je kratak. Nemojte da vam ode u mržnji.

Za kraj ovo su sve moje apikacije napravljene za skeniranjje ovih .ts listi, samom objavom istih će me izbacit iz VIP dijela al' pošto se svakako povlačim iz svega a aplikacije su moje stavljam ih ovdje:

http://www.mediafire.com/file/y48uapdeb07eyw5/Alati.rar

Trećerazredne su al' hej, ko hoće može da ih koristi. Niko vas ne tjera, opet kažem source svake od njih možete dobiti i sami ih kompajlirajte. Ne vjerujte pričama i mržnji, ko me zna zna da sam ovo radio iz dosade i da pomognem koliko mogu, TV uopšte ne gledam.

To je sve što sam ja ikad postavio u VIP.

Nemojte da se mrzite, pomažite kao nekad D.M.W. čovjek je krio da je bolestan i uvijek bio nasmijan i spreman za šalu do posljednjeg dana. Ljudi se pamte po dobrom.

Budite dobri.

Pozdrav od mene i svako dobro. Izlazim iz ovog svega. Sretno.

Svaka cast .

 

[kenusha]

Izvini,ali skynews ne prenosi nikad live spiele,to je samo nachrichten kanal

Ako razumes nemacki onda izvoli

Normalerweise zeigt „Sky Sport News HD“ nur Infos rund um den Sport aber nicht die eigentlichen Events. Am 2. Dezember soll aber ausnahmsweise auf „Sky Sport News HD“ die Partie zwischen dem 1. FSV Mainz 05 und dem FC Bayern München am 13. Bundesliga-Spieltag für alle Zuschauer frei empfangbar live übertragen werden.
Quelle: aredvd

I od danas je free to air znaci i na satelitu i na kablu i na strimu, u HD i SD kvalitetu

 

[Sota]

Sky Sport News HD sutra utakmica

1. FSV Mainz 05 vs FC Bayern

na tom kanalu u pitanju je kod mene kablovska Tv

Sky Sport News HD Frei empfangbar /slobodno





Pozdrav

 

[iptviptv]

Šta je s tebe bilo? Fakat mi nije jasno, nekad se ispričamo na čatu a sad imaš nešto protiv mene? Stvarno mi je žao što ste postali takvi. Ja sam se povukao iz svega i čak i ne ulazim više na forume kao prije al' svi oni koji me znaju dobro znaju da nikad nisam pravio takve stvari.

Nadam se da mod ovo neće obrisati jer nije ok to prozivanje a i postavio sam source i svako može kompajlirati aplikaciju.

Evo i kompletan source te aplikacije i svako ko se razumije vidi da liste nigdje ne idu:

http://www.mediafire.com/file/rzn62ugzznuy40p/Playlist_Checker_VB.NET_Source.rar

Možete koristit Visual Basic i sami kompajlirati ovaj kod. Plus uvijek možete pokrenuti bilo koji network sniiffer alat i gledati šta aplikacija radi u pozadini i na koji file host šalje liste, jer negdje ih mora slati.

Ovo je kompletan kod. Liste tj. source se ubacuju u richtextbox i applikacija siječe dio koda tj. ono što radite ručno kad zamjenite "get.php" i "panel_api.php" uzima se unixtimestamp i konvertuje u datum. To je sve.

Imports System.Text.RegularExpressions
Imports System.Net

Public Class Form1

    Dim WebRequest As WebClient = New WebClient

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        For Each playlist In ListBox1.Items

            On Error Resume Next

            Application.DoEvents()

            TextBox1.Text = playlist

            WebRequest.Headers.Add("Referer", TextBox1.Text)
            WebRequest.Headers(HttpRequestHeader.UserAgent) = "Mozilla/5.0 (iPhone; U; CPU iPhone OS 3_0 like Mac OS X; en-us) AppleWebKit/528.18 (KHTML, like Gecko) Version/4.0 Mobile/7A341 Safari/528.16"
            Application.DoEvents()
            Dim sSource As String = WebRequest.DownloadString(TextBox1.Text)

            PageSource.Clear()
            PageSource.Text = sSource

            Dim text As String = PageSource.Text

            If text.Contains("http") Then

                Label1.Text = RichTextBox1.Lines.Length
                My.Computer.Network.DownloadFile(TextBox1.Text, "Playlists\Playlist " + Label1.Text + ".m3u")

                Dim file As System.IO.StreamWriter
                file = My.Computer.FileSystem.OpenTextFileWriter("Playlists\Playlists.txt", True)
                file.WriteLine(TextBox1.Text)
                file.Close()

            End If

            TextBox1.Text = TextBox1.Text.Replace("get.php", "panel_api.php")
            WebRequest.Headers.Add("Referer", TextBox1.Text)
            WebRequest.Headers(HttpRequestHeader.UserAgent) = "Mozilla/5.0 (iPhone; U; CPU iPhone OS 3_0 Like Mac OS X; en-us) AppleWebKit/528.18 (KHTML, Like Gecko) Version/4.0 Mobile/7A341 Safari/528.16"
            Application.DoEvents()
            Dim Source As String = WebRequest.DownloadString(TextBox1.Text)

            PageSource.Clear()
            PageSource.Text = Source

            PageSource.Text = PageSource.Text.Replace("""exp_date"":", "Datum_Isteka:")
            PageSource.Text = PageSource.Text.Replace("""exp_date"":""", "Datum_Isteka:")


            Dim r1 As New Regex("(?<=Datum_Isteka:).+?(?="")")
            Dim matches1 As MatchCollection = r1.Matches(PageSource.Text)

            Dim r2 As New Regex("(?<=""max_connections"":"").+?(?="")")
            Dim matches2 As MatchCollection = r2.Matches(PageSource.Text)

            Dim r3 As New Regex("(?<=""active_cons"":"").+?(?="")")
            Dim matches3 As MatchCollection = r3.Matches(PageSource.Text)

            For Each playlist1 As Match In matches1
                Application.DoEvents()

                For Each playlist2 As Match In matches2
                    Application.DoEvents()

                    For Each playlist3 As Match In matches3
                        Application.DoEvents()

                        TextBox2.Text = playlist1.Value
                        TextBox2.Text = TextBox2.Text.Replace("""", "")
                        TextBox2.Text = TextBox2.Text.Replace(",", "")


                        If TextBox2.Text = "null" Then

                            Dim uTime As String = UnixToTime(TextBox2.Text)
                            RichTextBox1.AppendText(playlist & " Expiration Date: NO." & " Maximum Connections: " & playlist2.Value & " Active Connections: " & playlist3.Value & Environment.NewLine)

                        Else

                            Dim uTime As String = UnixToTime(TextBox2.Text)
                            RichTextBox1.AppendText(playlist & " Expiration Date: " & uTime & " Maximum Connections: " & playlist2.Value & " Active Connections: " & playlist3.Value & Environment.NewLine)

                        End If

                    Next

                Next

            Next

            Dim startingPoint As Integer = -1
            Do
                startingPoint = RichTextBox1.Find("Expiration Date:", startingPoint + 1, RichTextBoxFinds.None)
                If (startingPoint >= 0) Then
                    Application.DoEvents()
                    RichTextBox1.SelectionStart = startingPoint
                    RichTextBox1.SelectionLength = "Expiration Date:".Length
                    RichTextBox1.SelectionColor = Color.Red
                End If
            Loop Until startingPoint < 0

            Dim startingPoint1 As Integer = -1
            Do
                startingPoint1 = RichTextBox1.Find("Maximum Connections:", startingPoint1 + 1, RichTextBoxFinds.None)
                If (startingPoint1 >= 0) Then
                    Application.DoEvents()
                    RichTextBox1.SelectionStart = startingPoint1
                    RichTextBox1.SelectionLength = "Maximum Connections:".Length
                    RichTextBox1.SelectionColor = Color.LawnGreen
                End If
            Loop Until startingPoint1 < 0

            Dim startingPoint2 As Integer = -1
            Do
                startingPoint2 = RichTextBox1.Find("Active Connections:", startingPoint2 + 1, RichTextBoxFinds.None)
                If (startingPoint2 >= 0) Then
                    Application.DoEvents()
                    RichTextBox1.SelectionStart = startingPoint2
                    RichTextBox1.SelectionLength = "Active Connections:".Length
                    RichTextBox1.SelectionColor = Color.LawnGreen
                End If
            Loop Until startingPoint2 < 0

        Next

    End Sub

    Private Sub PasteToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PasteToolStripMenuItem.Click
        Dim items() As String = Clipboard.GetText.Split(New String() {Environment.NewLine}, StringSplitOptions.RemoveEmptyEntries)
        ListBox1.Items.AddRange(items)
    End Sub

    Public Function UnixToTime(ByVal strUnixTime As String) As Date
        UnixToTime = DateAdd(DateInterval.Second, Val(strUnixTime), #1/1/1970#)
        If UnixToTime.IsDaylightSavingTime = True Then
            Application.DoEvents()
            UnixToTime = DateAdd(DateInterval.Hour, 1, UnixToTime)
        End If
    End Function

    Private Sub ClearToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ClearToolStripMenuItem.Click
        ListBox1.Items.Clear()
    End Sub

End Class

Nema potrebe za ovim uništavanjem svega, stvarno mi je žao što smo postali ovakvi i mrzimo se zbog ovih listi. Ako je nekom lista stala pa ljudi gledate tuđu listu može da stane bilo kad, datum isteka uopšte ne mora da znači da će lista trajati baš do tog datuma. Da sam bio pametan stavio bi daljinsko gašenje i ove aplikacije, svakako više nisam u ovom, čak štaviše, gadi mi se sve ovo i kakvi smo postali.

Nadam se da mod ovo neće obrisati jer nije ok to prozivanje a i postavio sam source i svako može kompajlirati aplikaciju.

Davno sam rekao da su ove liste najveće smeće koje je internet vidio i eto u šta su vas pretvorile, šteta. Ne smeta mi što me prozivate kao lopova svakako sam izašao iz svega ovog i ne radim više apdejte baš zbog toga kakvi smo postali. Nekad se svašta pravilo, internacional će reći da je to trećerazredno al' ja sam pravio da nekom pomognem i sve postavljao javno. Vi čuvate neke alate tj. te prvorazredne koje nikom ne šaljete a pljujete na ove koje sam ja "skrpio" da koliko toliko olakša i pomogne nekom.

Nek' vam je na dušu to prizivanje.

U svemu ovom sam bio preko 6-7 godina, prvu aplikaciju sam napravio sa pokojnim D.M.W. s kojim sam pričao na gmail dan-dva prije nego što je umro. NIKAD nismo napravili ništa što će nekom naškodit, to dobro znaju ljudi sa WiZiWiG i ostalih foruma.Sâm D.M.W. za kojeg čak ni ja nisam znao da umire a pričali smo skoro cijelu noć dok smo piisali kod za tada noobroom a danas Movies aplikaciju. Čovjek je pomagao svima do zadnjeg dana života. Ja ga pamtim po tome, po čemu će pamtit nas? Mržnji? Slikama? Koliko se hvalimo?

Moj mediafire ima preko 350.000 downloads svih aplikacija ikad postavljenih, sâm mediafire blokira sumnjive aplikacije tj. one koje nešto kradu ili sadrže dio koda koji može nešto uništit. Pri samom upload-u blokiraju aplikaciju i ne može na upload. X puta sam ispravljao dio koda zbog false positive izvještaja na virustotal i još jednom kažem ko želi bilo koji source od bilo koje aplikacije može da ga dobije. Jedino ne šaljem Movies aplikaciju jer je prvu stranu koda te aplikacije napisao pokojni D.M.W. čovjek koji je pomogao svakom i to do zadnjeg dana života koji je kratak. Nemojte da vam ode u mržnji.

Za kraj ovo su sve moje apikacije napravljene za skeniranjje ovih .ts listi, samom objavom istih će me izbacit iz VIP dijela al' pošto se svakako povlačim iz svega a aplikacije su moje stavljam ih ovdje:

http://www.mediafire.com/file/y48uapdeb07eyw5/Alati.rar

Trećerazredne su al' hej, ko hoće može da ih koristi. Niko vas ne tjera, opet kažem source svake od njih možete dobiti i sami ih kompajlirajte. Ne vjerujte pričama i mržnji, ko me zna zna da sam ovo radio iz dosade i da pomognem koliko mogu, TV uopšte ne gledam.

To je sve što sam ja ikad postavio u VIP.

Nemojte da se mrzite, pomažite kao nekad D.M.W. čovjek je krio da je bolestan i uvijek bio nasmijan i spreman za šalu do posljednjeg dana. Ljudi se pamte po dobrom.

Budite dobri.

Pozdrav od mene i svako dobro. Izlazim iz ovog svega. Sretno.

svaka cast za sve....
najprije bozo a sad i ti...nije to dobro...

 

[LjupchoB]

Секоја чест на одредени членови кој што го користат форумот
да се рекламираат самите себе си и дадат на значај сами на себе,
само не ми е јасно зошто се членови на овој форум,
а преферираат други форуми?????
Да докажат дека се најпаметните на овој форум??????
За останатите..... Гледајте го филмот тесна кожа
пред се во делот кога се користи фразата „Зинуло вам дупе“
Па зарем не ви е доста да имате една или две стабилни листи????????

Спојлер: МИЏ

http://iptvthebest.ddns.net:15000/get.php?username=calatafimi1&password=calatafimi1& type=m3u

П.С.
Имајте свое достоинство и „свое јас“

 

[highprotect]

Šta je s tebe bilo? Fakat mi nije jasno, nekad se ispričamo na čatu a sad imaš nešto protiv mene? Stvarno mi je žao što ste postali takvi. Ja sam se povukao iz svega i čak i ne ulazim više na forume kao prije al' svi oni koji me znaju dobro znaju da nikad nisam pravio takve stvari.

Nadam se da mod ovo neće obrisati jer nije ok to prozivanje a i postavio sam source i svako može kompajlirati aplikaciju.

Evo i kompletan source te aplikacije i svako ko se razumije vidi da liste nigdje ne idu:

http://www.mediafire.com/file/rzn62ugzznuy40p/Playlist_Checker_VB.NET_Source.rar

Možete koristit Visual Basic i sami kompajlirati ovaj kod. Plus uvijek možete pokrenuti bilo koji network sniiffer alat i gledati šta aplikacija radi u pozadini i na koji file host šalje liste, jer negdje ih mora slati.

Ovo je kompletan kod. Liste tj. source se ubacuju u richtextbox i applikacija siječe dio koda tj. ono što radite ručno kad zamjenite "get.php" i "panel_api.php" uzima se unixtimestamp i konvertuje u datum. To je sve.

Imports System.Text.RegularExpressions
Imports System.Net

Public Class Form1
Jednu srtvar znam,da je moja lista otisla u kurac posle dve godine,zahvaljujuci tvojoj aplikaciji!Sve ostalo su sitnice...

    Dim WebRequest As WebClient = New WebClient

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        For Each playlist In ListBox1.Items

            On Error Resume Next

            Application.DoEvents()

            TextBox1.Text = playlist

            WebRequest.Headers.Add("Referer", TextBox1.Text)
            WebRequest.Headers(HttpRequestHeader.UserAgent) = "Mozilla/5.0 (iPhone; U; CPU iPhone OS 3_0 like Mac OS X; en-us) AppleWebKit/528.18 (KHTML, like Gecko) Version/4.0 Mobile/7A341 Safari/528.16"
            Application.DoEvents()
            Dim sSource As String = WebRequest.DownloadString(TextBox1.Text)

            PageSource.Clear()
            PageSource.Text = sSource

            Dim text As String = PageSource.Text

            If text.Contains("http") Then

                Label1.Text = RichTextBox1.Lines.Length
                My.Computer.Network.DownloadFile(TextBox1.Text, "Playlists\Playlist " + Label1.Text + ".m3u")

                Dim file As System.IO.StreamWriter
                file = My.Computer.FileSystem.OpenTextFileWriter("Playlists\Playlists.txt", True)
                file.WriteLine(TextBox1.Text)
                file.Close()

            End If

            TextBox1.Text = TextBox1.Text.Replace("get.php", "panel_api.php")
            WebRequest.Headers.Add("Referer", TextBox1.Text)
            WebRequest.Headers(HttpRequestHeader.UserAgent) = "Mozilla/5.0 (iPhone; U; CPU iPhone OS 3_0 Like Mac OS X; en-us) AppleWebKit/528.18 (KHTML, Like Gecko) Version/4.0 Mobile/7A341 Safari/528.16"
            Application.DoEvents()
            Dim Source As String = WebRequest.DownloadString(TextBox1.Text)

            PageSource.Clear()
            PageSource.Text = Source

            PageSource.Text = PageSource.Text.Replace("""exp_date"":", "Datum_Isteka:")
            PageSource.Text = PageSource.Text.Replace("""exp_date"":""", "Datum_Isteka:")


            Dim r1 As New Regex("(?<=Datum_Isteka:).+?(?="")")
            Dim matches1 As MatchCollection = r1.Matches(PageSource.Text)

            Dim r2 As New Regex("(?<=""max_connections"":"").+?(?="")")
            Dim matches2 As MatchCollection = r2.Matches(PageSource.Text)

            Dim r3 As New Regex("(?<=""active_cons"":"").+?(?="")")
            Dim matches3 As MatchCollection = r3.Matches(PageSource.Text)

            For Each playlist1 As Match In matches1
                Application.DoEvents()

                For Each playlist2 As Match In matches2
                    Application.DoEvents()

                    For Each playlist3 As Match In matches3
                        Application.DoEvents()

                        TextBox2.Text = playlist1.Value
                        TextBox2.Text = TextBox2.Text.Replace("""", "")
                        TextBox2.Text = TextBox2.Text.Replace(",", "")


                        If TextBox2.Text = "null" Then

                            Dim uTime As String = UnixToTime(TextBox2.Text)
                            RichTextBox1.AppendText(playlist & " Expiration Date: NO." & " Maximum Connections: " & playlist2.Value & " Active Connections: " & playlist3.Value & Environment.NewLine)

                        Else

                            Dim uTime As String = UnixToTime(TextBox2.Text)
                            RichTextBox1.AppendText(playlist & " Expiration Date: " & uTime & " Maximum Connections: " & playlist2.Value & " Active Connections: " & playlist3.Value & Environment.NewLine)

                        End If

                    Next

                Next

            Next

            Dim startingPoint As Integer = -1
            Do
                startingPoint = RichTextBox1.Find("Expiration Date:", startingPoint + 1, RichTextBoxFinds.None)
                If (startingPoint >= 0) Then
                    Application.DoEvents()
                    RichTextBox1.SelectionStart = startingPoint
                    RichTextBox1.SelectionLength = "Expiration Date:".Length
                    RichTextBox1.SelectionColor = Color.Red
                End If
            Loop Until startingPoint < 0

            Dim startingPoint1 As Integer = -1
            Do
                startingPoint1 = RichTextBox1.Find("Maximum Connections:", startingPoint1 + 1, RichTextBoxFinds.None)
                If (startingPoint1 >= 0) Then
                    Application.DoEvents()
                    RichTextBox1.SelectionStart = startingPoint1
                    RichTextBox1.SelectionLength = "Maximum Connections:".Length
                    RichTextBox1.SelectionColor = Color.LawnGreen
                End If
            Loop Until startingPoint1 < 0

            Dim startingPoint2 As Integer = -1
            Do
                startingPoint2 = RichTextBox1.Find("Active Connections:", startingPoint2 + 1, RichTextBoxFinds.None)
                If (startingPoint2 >= 0) Then
                    Application.DoEvents()
                    RichTextBox1.SelectionStart = startingPoint2
                    RichTextBox1.SelectionLength = "Active Connections:".Length
                    RichTextBox1.SelectionColor = Color.LawnGreen
                End If
            Loop Until startingPoint2 < 0

        Next

    End Sub

    Private Sub PasteToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PasteToolStripMenuItem.Click
        Dim items() As String = Clipboard.GetText.Split(New String() {Environment.NewLine}, StringSplitOptions.RemoveEmptyEntries)
        ListBox1.Items.AddRange(items)
    End Sub

    Public Function UnixToTime(ByVal strUnixTime As String) As Date
        UnixToTime = DateAdd(DateInterval.Second, Val(strUnixTime), #1/1/1970#)
        If UnixToTime.IsDaylightSavingTime = True Then
            Application.DoEvents()
            UnixToTime = DateAdd(DateInterval.Hour, 1, UnixToTime)
        End If
    End Function

    Private Sub ClearToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ClearToolStripMenuItem.Click
        ListBox1.Items.Clear()
    End Sub

End Class

Nema potrebe za ovim uništavanjem svega, stvarno mi je žao što smo postali ovakvi i mrzimo se zbog ovih listi. Ako je nekom lista stala pa ljudi gledate tuđu listu može da stane bilo kad, datum isteka uopšte ne mora da znači da će lista trajati baš do tog datuma. Da sam bio pametan stavio bi daljinsko gašenje i ove aplikacije, svakako više nisam u ovom, čak štaviše, gadi mi se sve ovo i kakvi smo postali.

Nadam se da mod ovo neće obrisati jer nije ok to prozivanje a i postavio sam source i svako može kompajlirati aplikaciju.

Davno sam rekao da su ove liste najveće smeće koje je internet vidio i eto u šta su vas pretvorile, šteta. Ne smeta mi što me prozivate kao lopova svakako sam izašao iz svega ovog i ne radim više apdejte baš zbog toga kakvi smo postali. Nekad se svašta pravilo, internacional će reći da je to trećerazredno al' ja sam pravio da nekom pomognem i sve postavljao javno. Vi čuvate neke alate tj. te prvorazredne koje nikom ne šaljete a pljujete na ove koje sam ja "skrpio" da koliko toliko olakša i pomogne nekom.

Nek' vam je na dušu to prizivanje.

U svemu ovom sam bio preko 6-7 godina, prvu aplikaciju sam napravio sa pokojnim D.M.W. s kojim sam pričao na gmail dan-dva prije nego što je umro. NIKAD nismo napravili ništa što će nekom naškodit, to dobro znaju ljudi sa WiZiWiG i ostalih foruma.Sâm D.M.W. za kojeg čak ni ja nisam znao da umire a pričali smo skoro cijelu noć dok smo piisali kod za tada noobroom a danas Movies aplikaciju. Čovjek je pomagao svima do zadnjeg dana života. Ja ga pamtim po tome, po čemu će pamtit nas? Mržnji? Slikama? Koliko se hvalimo?

Moj mediafire ima preko 350.000 downloads svih aplikacija ikad postavljenih, sâm mediafire blokira sumnjive aplikacije tj. one koje nešto kradu ili sadrže dio koda koji može nešto uništit. Pri samom upload-u blokiraju aplikaciju i ne može na upload. X puta sam ispravljao dio koda zbog false positive izvještaja na virustotal i još jednom kažem ko želi bilo koji source od bilo koje aplikacije može da ga dobije. Jedino ne šaljem Movies aplikaciju jer je prvu stranu koda te aplikacije napisao pokojni D.M.W. čovjek koji je pomogao svakom i to do zadnjeg dana života koji je kratak. Nemojte da vam ode u mržnji.

Za kraj ovo su sve moje apikacije napravljene za skeniranjje ovih .ts listi, samom objavom istih će me izbacit iz VIP dijela al' pošto se svakako povlačim iz svega a aplikacije su moje stavljam ih ovdje:

http://www.mediafire.com/file/y48uapdeb07eyw5/Alati.rar

Trećerazredne su al' hej, ko hoće može da ih koristi. Niko vas ne tjera, opet kažem source svake od njih možete dobiti i sami ih kompajlirajte. Ne vjerujte pričama i mržnji, ko me zna zna da sam ovo radio iz dosade i da pomognem koliko mogu, TV uopšte ne gledam.

To je sve što sam ja ikad postavio u VIP.

Nemojte da se mrzite, pomažite kao nekad D.M.W. čovjek je krio da je bolestan i uvijek bio nasmijan i spreman za šalu do posljednjeg dana. Ljudi se pamte po dobrom.

Budite dobri.

Pozdrav od mene i svako dobro. Izlazim iz ovog svega. Sretno.

STALA MI JE LISTA POSLE SCANA NA TVOJOJ APLIKACIJI!
Bilo je dozvoljeno 40 konekcija,a kada sam je zadnji put skenirao juce,imalo je nas 9...
expire NO
Posle toga,ta lista vise nije postojala
Isto kao i par puta kada se radilo o IPTV Tools 2.0,mada to nije tvoje ali je princip isti.

Razmisli sta si radio,odnosno u koga si imao poverenje?
Hvala ti na svemu sto si uradio i zdrav ti meni bio uvek!
Legenda si ti Denise!!!

 

[olaNik]

STALA MI JE LISTA POSLE SCANA NA TVOJOJ APLIKACIJI!
Bilo je dozvoljeno 40 konekcija,a kada sam je zadnji put skenirao juce,imalo je nas 9...
expire NO
Posle toga,ta lista vise nije postojala
Isto kao i par puta kada se radilo o IPTV Tools 2.0,mada to nije tvoje ali je princip isti.

Razmisli sta si radio,odnosno u koga si imao poverenje?
Hvala ti na svemu sto si uradio i zdrav ti meni bio uvek!
Legenda si ti Denise!!!

Znam za koja lista zboris jas ja gledav 6-7 meseci. Vo posledno vreme bese mnogu opteretena nekogas imase i po trieset i kusur useri taka da mozebi ne e padnata zaradi aplikacijata

 

[zuhra]

ima li tko gradinu1 za podijeliti
Hvala!

 

[bobanku]

Siol

http://89.142.110.216:1234/status

SI-T-2 (T-2 ACCESS NETWORK)

http://89.212.51.203:1234/status

 

[pancepaki]

Замисли темава е Интернет Радио и Телевизија (стримови, прашања, генерална дискусија..). Во моментов ништо од тоа не е, односно е побарувачка на листи или бувљак. Тие нема да течат вечно. Ако сум се трудел на некој начин секој сам да пронајде нешто, сега многу ретко пишувам. Не гледам некаква логика во темава која личи на се само на тоа што треба никако.
Имавме овде петиција да се отвори посебен дел за интернат радио и тв со повеќе пдф но слух од тоа нема, само успеавме да го смениме името на темата кое беше Сателитски телевизии на интернет, голем успех . Сега ќе правеле ВИП , човек да се прекрсти со лева рака.

Која демократија 15-20коментери од синоќа избришани сепак нема ни овде демократија на кајгана. А дискутиравме за сосема нормална работа. Извини сашкон но си бил сосема во право. Нема демократија на кајгана се бришат најнормални коментари.Толку од мене позз до сите некој се пцујат меѓу себе вреѓаат ова она се тоа стои ништо не е избришано.

 

[bobanku]

ex portal rapid

Спојлер: clientportal

http://clientportal.link:8080/get.php?username=0ieplgF3Mz&password=wejAWIbuk5&type=m3u

 

[saskon]

Која демократија 15-20коментери од синоќа избришани сепак нема ни овде демократија на кајгана. А дискутиравме за сосема нормална работа. Извини сашкон но си бил сосема во право. Нема демократија на кајгана се бришат најнормални коментари.Толку од мене позз до сите некој се пцујат меѓу себе вреѓаат ова она се тоа стои ништо не е избришано.

Овде да има 10 модератори нема да помогнат, а краен резултат ќе биде трајно затворање на оваа тема. Од кога почна да се случува ова.
Некој во фер борба е натепан, фаќа позиција и со камења по прозорите на другиов. Така прават само мали деца, а овде трпи осигурителната компанија односно кајгана. Значи тие што се натепани не се цвеќиња. ТИЕ НЕ ЈА САКААТ кајгана само се тука затоа што се избркани од секоја кафеана, а буквално кајгана за нив е кафеана.

Сега е крив и Денис затоа што паднала некоја листа, смешно и тоа као поради некоја апликација. Никој не се жалеше на тие апликации уште од wiziwig. 99% од овде присутните не знаат што е wiziwig и кој е DMW, а Денис само продолжува таму каде што еден голем човек застана. Срам да ви е што плукате по некого што толку многу направил.

За сите мали дечиња одете си од каде сте дошле. Ова беше мирно место за одмор.

 

[HeLLb0y]

@international fala mnogu za listata shto mi ja isprati

 

[saskon]

Jutro , ma nista tu nema sto vec ne postoji samo vi iz SF VIP sami sebi nevjerujte VIP sobe ko hotel jer od sve te raje sa SF vi ste jedini koji dodzete na KAJGANU i prosipate se, uzivajte malo u VIP steta da nemate tamo jos sampanjca ...
Onda bi VIP bila privlacnija

Еве го тоа што јас го зборувам, мали дечиња.
Од вакви коментари ми се гади, темава е интернет, радио и телевизија не е кафеана.