YouTube Video Tracker v1.0 - Track rank and stats of your videos
2013-10-29, 05:58 AM, (This post was last modified: 2013-10-31, 05:34 AM by Rkt.)
#1
Hey elites.
I made a little tool for tracking multiple youtube videos.
It's very fast and effective, it uses http webrequests.
It works very simple, here is the screenshot:

[Image: 9v92.png]

It shows title, views, likes, dislikes, comments, upload date and video state.

Also there is an option to check rank for your videos:

[Image: 7d5u.png]

You can select a keyword from the keywords you have added before or you can type a single keyword. Checker checks first 30 pages only.

-Program automatically saves your videos and keywords. No need to load and write it every time. Also it is completely safe to use.

Virus scan:

LINK

Download:

Register or login to see this content

Source code:

Register or login to see this content
Latest Thanks - View all

dsinn21(2017-08-20 02:36 PM) butt(2017-07-31 05:15 AM) CriticSay(2017-03-08 06:34 AM) mqnoaxk3(2017-03-01 08:49 AM) smith21(2017-02-05 03:13 AM) superhero2901(2016-10-20 04:52 AM) dragon182(2016-06-09 08:37 PM) honeydew(2016-04-08 02:37 AM) noobfromvn(2016-03-22 02:56 AM) Qmaster2014(2016-02-29 12:37 AM) bangchu(2015-07-14 02:17 AM) mtyb2000(2015-06-20 11:30 AM) vlgame(2015-06-16 03:43 PM) YTMoney(2015-06-06 06:31 PM) EarnEverySec(2015-05-28 10:47 PM) Pyromaniac(2015-05-13 06:36 PM) dat796(2015-04-23 10:32 PM) ahmetsunar06(2015-03-25 09:01 PM) urielD3(2015-03-12 03:38 PM) ★★★ BotMan ★★★(2015-02-05 08:13 AM) tadota33(2015-02-04 03:56 PM) vlad13skate(2015-01-17 11:54 PM) kujil(2015-01-14 12:23 AM) zev0n(2014-12-30 11:26 AM) H4ck3r007(2014-12-21 08:50 PM) TheWolf(2014-09-26 10:44 PM) MiDo-X-InHo(2014-09-01 11:44 AM) leoromero(2014-08-15 06:08 AM) mynoidanh19(2014-07-22 09:07 AM) babilavena(2014-07-20 07:25 PM) HIENA(2014-07-07 10:30 PM) bygsunflower(2014-07-06 02:06 PM) RedGunn(2014-06-21 04:12 PM) WoodnoteAtaraxy(2014-06-20 09:00 PM) koulisElE(2014-03-30 03:01 AM) Sergiu(2014-03-18 07:47 PM) Astumax(2014-02-08 05:25 AM) Shane(2014-01-30 11:38 PM) Apex(2014-01-09 10:49 PM) blackcollar(2014-01-05 09:57 PM) ihasdevkit(2013-12-30 01:39 PM) frankso(2013-12-28 01:02 PM) themann(2013-12-21 07:52 AM) dilleru(2013-12-16 05:32 PM) tomuszek(2013-12-13 06:42 PM) dczyrinx(2013-12-13 12:11 PM) sieumagic(2013-12-11 06:28 PM) fabima(2013-12-07 12:43 PM) RazorGod(2013-12-07 02:10 AM) jerrylee(2013-12-06 03:08 PM) gigifrana(2013-12-05 05:43 AM) carolmittal(2013-12-01 01:07 AM) juantamad(2013-11-29 04:57 PM) girmal5(2013-11-29 04:09 PM) CPA_Mastermind(2013-11-29 03:20 AM) - NiNSHUU -(2013-11-28 08:43 AM) MrHusky(2013-11-27 05:49 AM) $kamer(2013-11-27 02:11 AM) xxkizza2010xx(2013-11-26 07:07 PM) money2keep(2013-11-26 05:07 PM) avatarul1176(2013-11-26 04:27 PM) Seoinsection(2013-11-26 07:59 AM) thapriceless(2013-11-26 07:03 AM) Anth(2013-11-26 07:02 AM) nissiu(2013-11-25 10:14 PM) Raavi(2013-11-25 08:16 PM) JMoxon569(2013-11-25 07:47 PM) k0mZ(2013-11-25 04:14 PM) sana(2013-11-25 04:09 PM) dox(2013-11-25 03:55 PM) Seen(2013-11-25 12:10 PM) chriselnenepr(2013-11-25 07:28 AM) Newone(2013-11-25 05:37 AM) macosx(2013-11-25 03:44 AM) Egzonk(2013-11-25 03:29 AM) crashingangel(2013-11-25 02:56 AM) UnknownX(2013-11-25 01:48 AM) CrS(2013-11-25 12:58 AM) Pankage(2013-11-25 12:33 AM) infected(2013-11-24 11:36 PM) pwned(2013-11-24 11:22 PM) bhdude(2013-11-24 11:21 PM) firdausmc(2013-11-24 08:07 PM) Florentin(2013-11-24 08:03 PM) bullot(2013-11-24 07:27 PM) lucky14(2013-11-24 06:33 PM) hjhjhjhncc(2013-11-24 06:29 PM) giladush(2013-11-24 06:29 PM) Blackmoney(2013-11-24 06:26 PM) f0rest(2013-11-24 06:15 PM) Bing(2013-11-24 06:10 PM) Gunslinger(2013-11-24 06:04 PM) Jabba the Hutt(2013-11-24 04:50 PM) Josh C.(2013-11-24 04:38 PM) kazejakz(2013-11-24 04:30 PM) vendyz(2013-11-24 04:20 PM) sniping(2013-11-24 01:26 PM) xlere(2013-11-24 06:53 AM) Booster(2013-11-24 06:44 AM) HCT(2013-11-24 06:03 AM) godfather(2013-11-24 05:56 AM) wrc1010(2013-11-24 05:50 AM) b.edward95(2013-11-24 05:35 AM) benderim(2013-11-24 05:07 AM) k3nshy(2013-11-24 03:01 AM) BlackChico(2013-11-24 01:09 AM) Eagle727(2013-11-24 01:06 AM) Shly(2013-11-24 01:05 AM) instasurveys(2013-11-24 12:43 AM) J a Y(2013-11-23 11:55 PM) RapedNET(2013-11-23 11:54 PM) BOOBA(2013-11-23 11:05 PM) Remco(2013-11-23 11:05 PM) dabo007(2013-11-23 11:00 PM) ambros23(2013-11-23 10:54 PM) Phlong(2013-11-20 10:17 PM) Pdvwest(2013-11-20 09:46 AM) sureshraina2001(2013-11-20 09:32 AM) djmaurya09(2013-11-16 05:48 PM) bjb(2013-11-15 04:29 AM) IndeXer(2013-11-11 05:15 PM) zentaur(2013-11-10 04:34 PM) cyber1nside(2013-11-10 10:10 AM) DeepDown(2013-11-10 09:07 AM) Xtr3m3r(2013-11-10 04:05 AM) Smoky(2013-11-10 02:23 AM) entarouhe(2013-11-09 09:42 PM) jannowak(2013-11-09 06:54 PM) amru82(2013-11-09 02:16 PM) apax(2013-11-09 02:05 PM) RichBitch(2013-11-09 05:02 AM) Thor(2013-11-09 04:51 AM) dom(2013-11-09 04:27 AM) sygamers(2013-11-09 02:54 AM) Hitman777(2013-11-09 01:50 AM) janonymous(2013-11-09 01:19 AM) vucina(2013-11-09 12:29 AM) Grapes(2013-11-08 11:43 PM) lietuvis002(2013-11-08 11:17 PM) Hello(2013-11-08 09:02 PM) samatarh(2013-11-08 05:43 PM) msi522(2013-11-08 05:19 PM) Spritzpups(2013-11-08 04:48 PM) WalkingDead(2013-11-08 03:48 PM) rinor4ever(2013-11-08 03:39 PM) Orbiat(2013-11-08 03:21 PM) yogi31286(2013-11-08 03:05 PM) dannythepark(2013-11-08 09:18 AM) shorty715(2013-11-08 02:19 AM) BigSack(2013-11-07 04:07 AM) indpmahi(2013-11-06 10:59 PM) planetparty(2013-11-06 02:07 PM) puiocu(2013-11-06 01:37 PM) c0mrade(2013-11-06 10:04 AM) taarn(2013-11-05 07:56 PM) lanyo(2013-11-05 07:53 PM) dahilan01(2013-11-05 07:36 PM) Worker(2013-11-05 06:12 PM) Gadgmaster(2013-11-05 05:29 PM) Swent(2013-11-05 02:42 PM) Jake(2013-11-05 07:51 AM) CpaFiend55(2013-11-05 06:41 AM) Nightwatch(2013-11-05 06:33 AM) bigoldfeet(2013-11-05 06:26 AM) zarkokom(2013-11-05 04:49 AM) Mateht(2013-11-05 03:59 AM) adidam(2013-11-05 03:49 AM) DarkPassenger(2013-11-05 03:46 AM) chopter(2013-11-05 03:45 AM) Yashar(2013-11-05 03:44 AM) JLoris(2013-11-05 01:37 AM) majdi105(2013-11-04 09:28 PM) NHN(2013-11-04 05:15 PM) Zen(2013-11-04 05:12 PM) AdeliteAthan(2013-11-04 03:39 PM) Gedeon(2013-11-04 03:06 PM) besupreme(2013-11-04 02:55 PM) Captain Obvious(2013-11-04 02:01 PM) jssrecording(2013-11-04 09:58 AM) daimon1(2013-11-04 04:16 AM) Jay_CPABuild(2013-11-04 01:18 AM) ofirbux(2013-11-04 12:11 AM) openyourmind(2013-11-03 11:36 PM) CEAuto(2013-11-03 10:29 PM) Sratim1011(2013-11-03 09:31 PM) howarg(2013-11-03 09:47 AM) bmoney(2013-11-03 09:30 AM) cpanew(2013-11-02 08:35 PM) tom12e(2013-11-02 06:17 PM) Cris28(2013-11-02 06:13 PM) Ziemny(2013-11-02 06:04 PM) Artie(2013-11-02 05:43 PM) daninho(2013-11-02 05:30 PM) rider77(2013-11-02 02:03 PM) funthongluk(2013-11-02 01:36 PM) anthonytn(2013-11-02 11:51 AM) sevenjah2011(2013-11-02 10:07 AM) eagleflux(2013-11-02 07:45 AM) User(2013-11-02 05:47 AM) Clarke88(2013-11-02 05:18 AM) Hubert115(2013-11-02 05:10 AM) ebvr168(2013-11-02 04:50 AM) ๖ۣۜMateusz(2013-11-02 04:44 AM) gary492(2013-11-02 04:08 AM) Label(2013-11-02 03:52 AM) Heraclitus(2013-11-02 03:40 AM) Alienware(2013-11-01 06:03 PM) kinaks(2013-11-01 05:53 PM) nikesbfanboy(2013-11-01 05:23 PM) scorpio18(2013-11-01 04:11 PM) n00b(2013-11-01 03:33 PM) kowego(2013-11-01 02:35 PM) ÐỚℬℤ(2013-11-01 11:47 AM) Awesomeness(2013-11-01 02:29 AM) patomica2013(2013-11-01 12:05 AM) apetrov(2013-10-31 11:48 PM) KCMM(2013-10-31 10:07 PM) nmc.prodigy(2013-10-31 08:58 PM) NinjaAff(2013-10-31 08:48 PM) djams69(2013-10-31 08:13 PM) adanteno(2013-10-31 05:16 PM) Commoner(2013-10-31 04:23 PM) -qwerty-(2013-10-31 04:15 PM) »Wave«(2013-10-31 04:07 PM) lidorx3(2013-10-31 02:27 PM) tonnyba111(2013-10-31 10:33 AM) Shiina(2013-10-31 09:12 AM) NYNF(2013-10-31 07:54 AM) hd2d(2013-10-31 07:03 AM) bolo822(2013-10-31 05:40 AM) Mind the Gap(2013-10-31 05:36 AM) Wavey(2013-10-31 05:35 AM) gdfgdf(2013-10-31 04:37 AM) EBAH(2013-10-31 03:16 AM) Nerfme(2013-10-31 02:59 AM) M!st3r XX(2013-10-31 02:31 AM) Syberpro(2013-10-31 02:05 AM) C0wtipp3r(2013-10-31 01:02 AM) tirycm(2013-10-30 11:20 PM) Terestrial205(2013-10-30 07:37 PM) vynilboy(2013-10-30 07:19 PM) westauskas(2013-10-30 03:28 PM) hamsterhell(2013-10-30 02:11 PM) Danila(2013-10-30 01:16 PM) HazeXtreme(2013-10-30 01:11 PM) DrKent(2013-10-30 11:03 AM) gogaiex(2013-10-30 10:04 AM) Jaxxon(2013-10-30 05:59 AM) Cornholio(2013-10-30 05:28 AM) tomyslav(2013-10-30 04:13 AM) Matt3o(2013-10-30 03:59 AM) Brandon Fury(2013-10-30 03:47 AM) Required(2013-10-30 02:43 AM) Just4Fun(2013-10-30 02:37 AM) mrlipux(2013-10-30 02:32 AM) balkor(2013-10-30 01:56 AM) Snowstephan(2013-10-30 01:23 AM) qwerty16(2013-10-30 12:28 AM) Spectre(2013-10-29 11:20 PM) Andre(2013-10-29 08:19 PM) klaatu97(2013-10-29 08:08 PM) ucozer(2013-10-29 08:01 PM) jurede(2013-10-29 07:59 PM) coolm(2013-10-29 07:17 PM) Karupoiss(2013-10-29 06:50 PM) editify(2013-10-29 06:49 PM) Springfire(2013-10-29 06:34 PM) Behemoth(2013-10-29 06:30 PM) alxwanted6k(2013-10-29 06:22 PM) dezierr(2013-10-29 06:07 PM) arun9020(2013-10-29 05:53 PM) #CPA(2013-10-29 05:45 PM) BlackHatSEO(2013-10-29 05:39 PM) mihai1497(2013-10-29 04:02 PM) molabee(2013-10-29 03:42 PM) ImAlanas(2013-10-29 12:59 PM) racker12(2013-10-29 09:14 AM) StuffSneak(2013-10-29 06:59 AM) 
2013-10-29, 06:34 AM,
#2
Thanks OP, I might check it out.
Latest Thanks - View all

crashingangel(2013-11-25 02:56 AM) Blackmoney(2013-11-24 06:26 PM) westauskas(2013-10-30 03:27 PM) 
2013-10-29, 06:58 AM,
#3
Looks good and clean. Thank you. This will come in handy
2013-10-29, 07:28 AM,
#4
Had the old version, downloading this one now ty :)
2013-10-29, 08:45 AM,
#5
thanks for sharing :)

Looking for way to rank on youtube
2013-10-29, 09:14 AM,
#6
Thanks for this amazing sharing.
2013-10-29, 12:51 PM,
#7
can't open the file :(
2013-10-29, 02:05 PM,
#8
thanks for the download, i am yet to try but thanks for your time :)

Need Awesome Conversions Join This Network
2013-10-29, 02:09 PM,
#9
(2013-10-29, 05:58 AM)Rkt Wrote: Hey elites.
I made a little tool for tracking multiple youtube videos.
It's very fast and effective, it uses http webrequests.
It works very simple, here is the screenshot:

[img]/img823/907/9v92.png[/img]

It shows title, views, likes, dislikes, comments, upload date and video state.

Also there is an option to check rank for your videos:

[img]/img7/1734/7d5u.png[/img]

You can select a keyword from the keywords you have added before or you can type a single keyword. Checker checks first 30 pages only.

- Program automatically saves your videos and keywords. No need to load it over and over again.
- Please note that this program does not send me any postback data.

Virus scan here:

LINK

Download here:

MIRROR1
MIRROR2

Source code here:

Main form

Code:
Imports System.Net
Imports System.Text
Imports System.Text.RegularExpressions
Imports System.IO
Imports System.Runtime.InteropServices

Public Class Form1
    Private Sub AddNew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddNew.Click
        Dim item As String = NewID.Text
        If item.Contains("youtube.com") Then
            item = item & "</"
            Dim r As New System.Text.RegularExpressions.Regex("v=(.*?)<\/")
            Dim matches As MatchCollection = r.Matches(item)
            Dim ID As String

            For Each itemcode As Match In matches
                ID = itemcode.ToString
                ID = ID.Replace("v=", "")
                ID = ID.Replace("</", "")
            Next
            If ID.Length > 7 Then
                Stats.Rows.Add(ID)
            Else
                MsgBox("Please write a valid video ID!")
                Exit Sub
            End If
        Else
            If item.Length > 7 Then
                Stats.Rows.Add(item)
            Else
                MsgBox("Please write a valid video ID!")
                Exit Sub
            End If
        End If
        Ref()
    End Sub

#Region "Delay"
    Private Sub Delay(ByVal DelayInSeconds As Integer)
        Dim ts As TimeSpan
        Dim targetTime As DateTime = DateTime.Now.AddSeconds(DelayInSeconds)
        Do
            ts = targetTime.Subtract(DateTime.Now)
            Application.DoEvents() ' keep app responsive
            System.Threading.Thread.Sleep(50) ' reduce CPU usage
        Loop While ts.TotalSeconds > 0
    End Sub
#End Region

    Private Sub ClearSelected_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ClearSelected.Click
        If Not Stats.Rows.Count = 0 Then
            If Stats.CurrentRow.Index >= 0 Then
                Stats.Rows.RemoveAt(Stats.CurrentRow.Index)
            End If
        Else
            MsgBox("Please add some videos!")
            Exit Sub
        End If
    End Sub

    Private Sub ClearAll_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ClearAll.Click
        If Stats.Rows.Count = 0 Then
            MsgBox("Please add some videos!")
        Else
            Stats.Rows.Clear()
        End If
    End Sub

    Sub GetData(ByVal str As String)
        Try
            Dim inStream As StreamReader
            Dim WebRequest As WebRequest
            Dim Webresponse As WebResponse
            Dim Data As String

            WebRequest = WebRequest.Create("/feeds/api/videos/" & str & "?v=2")
            Webresponse = WebRequest.GetResponse()
            inStream = New StreamReader(Webresponse.GetResponseStream())
            Data = inStream.ReadToEnd()

            If Data.ToLower.Contains("video not found") Or Data.ToLower.Contains("private video") Then
                NotFound = "Yes"
            ElseIf Not Data.ToLower.Contains("video not found") Or Not Data.ToLower.Contains("private video") Then
                ScrapeTitle(Data)
                ScrapeLikes(Data)
                ScrapeDisLikes(Data)
                ScrapeViews(Data)
                ScrapeDate(Data)
                ScrapeComments(Data)
            End If

        Catch ex As Exception
            NotFound = "Yes"
        End Try
    End Sub

    Public Sub ScrapeTitle(ByVal str As String)
        Try
            Dim r As New System.Text.RegularExpressions.Regex("<title>(.*?)<\/title>")
            Dim matches As MatchCollection = r.Matches(str)

            For Each itemcode As Match In matches
                FinalTitle = itemcode.ToString
                FinalTitle = FinalTitle.Replace("<title>", "")
                FinalTitle = FinalTitle.Replace("</title>", "")
            Next
        Catch ex As Exception
            Return
        End Try
    End Sub

    Public Sub ScrapeLikes(ByVal str As String)
        Try
            Dim r As New System.Text.RegularExpressions.Regex("numLikes='(.*?)'")
            Dim matches As MatchCollection = r.Matches(str)

            For Each itemcode As Match In matches
                Likess = itemcode.ToString
                Likess = Likess.Replace("numLikes='", "")
                Likess = Likess.Replace("'", "")
            Next
        Catch ex As Exception
            Return
        End Try
    End Sub

    Public Sub ScrapeDisLikes(ByVal str As String)
        Try
            Dim r As New System.Text.RegularExpressions.Regex("numDislikes='(.*?)'")
            Dim matches As MatchCollection = r.Matches(str)

            For Each itemcode As Match In matches
                Dislikess = itemcode.ToString
                Dislikess = Dislikess.Replace("numDislikes='", "")
                Dislikess = Dislikess.Replace("'", "")
            Next
        Catch ex As Exception
            Return
        End Try
    End Sub

    Public Sub ScrapeViews(ByVal str As String)
        Try
            Dim r As New System.Text.RegularExpressions.Regex("viewCount='(.*?)'")
            Dim matches As MatchCollection = r.Matches(str)

            For Each itemcode As Match In matches
                Viewss = itemcode.ToString
                Viewss = Viewss.Replace("viewCount='", "")
                Viewss = Viewss.Replace("'", "")
            Next
        Catch ex As Exception
            Return
        End Try
    End Sub

    Public Sub ScrapeDate(ByVal str As String)
        Try
            Dim r As New System.Text.RegularExpressions.Regex("<yt:uploaded>(.*?)<\/yt:uploaded>")
            Dim matches As MatchCollection = r.Matches(str)

            For Each itemcode As Match In matches
                DateUp = itemcode.ToString
                DateUp = DateUp.Replace("<yt:uploaded>", "")
                DateUp = DateUp.Replace("</yt:uploaded>", "")
                DateUp = DateUp.Replace("T", " at ")
                DateUp = DateUp.Replace(".000Z", "")
            Next
        Catch ex As Exception
            Return
        End Try
    End Sub

    Public Sub ScrapeComments(ByVal str As String)
        Try
            Dim r As New System.Text.RegularExpressions.Regex("countHint='(.*?)'")
            Dim matches As MatchCollection = r.Matches(str)

            For Each itemcode As Match In matches
                Comments = itemcode.ToString
                Comments = Comments.Replace("countHint='", "")
                Comments = Comments.Replace("'", "")
            Next
        Catch ex As Exception
            Return
        End Try
    End Sub

    Dim FinalTitle As String
    Dim Likess As String
    Dim Dislikess As String
    Dim Viewss As String
    Dim NotFound As String
    Dim DateUp As String
    Dim Comments As String

    Private Sub RefreshAll_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RefreshAll.Click
        If Stats.Rows.Count = 0 Then
            MsgBox("Please add some videos!")
            Exit Sub
        End If
        Ref()
    End Sub

    Sub Ref()
        Dim f As Integer = Stats.Rows.Count
        For Each row As DataGridViewRow In Stats.Rows
            Dim r As String
            r = row.Cells(0).Value

            NotFound = "No"

            GetData(r)

            If NotFound = "Yes" Then
                Stats.Rows.Add(New String() {row.Cells(0).Value, "N/A", "N/A", "N/A", "N/A", "N/A", "N/A", "DOWN"})
            ElseIf NotFound = "No" Then
                Stats.Rows.Add(New String() {row.Cells(0).Value, FinalTitle, Viewss, Likess, Dislikess, Comments, DateUp, "UP"})
            End If

            If Stats.Rows.Count = f * 2 Then
                For s = 0 To f - 1
                    Stats.Rows.RemoveAt(0)
                Next
                Exit For
            End If
        Next
    End Sub

    Private Sub Form1_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
        If Not Stats.Rows.Count = 0 Then
            Dim all As String = Stats.Rows.Count
            For Each row As DataGridViewRow In Stats.Rows
                Dim r As String
                r = row.Cells(0).Value

                all = all & ":" & r
            Next
            My.Settings.Videos = all
        Else
            My.Settings.Videos = ""
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If Not My.Settings.Videos = "" Then
            Dim S As String() = My.Settings.Videos.Split(":")
            Dim n As Integer = 0
            Dim p As Integer = S(0)
            For i = 0 To p - 1
                n = n + 1

                Stats.Rows.Add(S(n))
            Next
            If Not Stats.Rows.Count > 5 Then
                Dim Th As New Threading.Thread(AddressOf Ref)
                Th.Start()
            End If
        End If
    End Sub

    Private Sub LoadIt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LoadIt.Click
        Using Ofd As New OpenFileDialog
            Ofd.Filter = "Text Files|*.txt"
            If Ofd.ShowDialog = 1 Then
                For Each Line In My.Computer.FileSystem.ReadAllText(Ofd.FileName).Split(Environment.NewLine)
                    Dim item As String
                    item = Line & "</"
                    If item.Contains("youtube.com") Then
                        Dim r As New System.Text.RegularExpressions.Regex("v=(.*?)<\/")
                        Dim matches As MatchCollection = r.Matches(item)
                        Dim ID As String

                        For Each itemcode As Match In matches
                            ID = itemcode.ToString
                            ID = ID.Replace("v=", "")
                            ID = ID.Replace("</", "")
                        Next
                        If ID.Length > 7 Then
                            Stats.Rows.Add(ID)
                        End If
                    Else
                        If Line.Length > 7 Then
                            Stats.Rows.Add(Line)
                        End If
                        End If
skip:
                Next
            End If
        End Using
        Ref()
    End Sub

    Private Sub RankCheckerButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RankCheckerButton.Click
        If Stats.Rows.Count = 0 Then
            MsgBox("Please add some videos!")
            Exit Sub
        Else
            RankChecker.Show()
        End If
    End Sub
End Class

Rank checker form
Code:
Imports System.Net
Imports System.Text
Imports System.Text.RegularExpressions
Imports System.IO
Imports System.Runtime.InteropServices

Public Class RankChecker

    Private Sub RankChecker_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If MyKeyword.Checked = True Then
            Keyword.Enabled = False
            Add.Enabled = True
            NewKeyword.Enabled = True
            MyKw.Enabled = True
            ClearAll.Enabled = True
            ClearSelected.Enabled = True
        End If

        If Custom.Checked = True Then
            Keyword.Enabled = True
            Add.Enabled = False
            NewKeyword.Enabled = False
            MyKw.Enabled = False
            ClearAll.Enabled = False
            ClearSelected.Enabled = False
        End If

        If Not My.Settings.Keywords = "" Then
            Dim K As String() = My.Settings.Keywords.Split(":")
            Dim f As Integer = K(0)
            For i = 0 To f - 1
                MyKw.Items.Add(K(i + 1))
            Next
        End If
        For Each row As DataGridViewRow In Form1.Stats.Rows
            Dim r As String
            r = row.Cells(0).Value
            Video.Items.Add(r)
        Next
        Status.Location = New Point((Me.Width / 2) - (Status.Width / 2 + 10), Status.Location.Y)
    End Sub

    Private Sub Check_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Check.Click
        If Not Video.SelectedItem = Nothing Then
            Dim thread As New Threading.Thread(AddressOf CheckIt)
            thread.Start()
        Else
            MsgBox("Please select the video!")
            Exit Sub
        End If
    End Sub

    Sub CheckIt()
        Dim query As String

        If Custom.Checked = True Then
            If Keyword.Text = "" Then
                MsgBox("Please write custom keyword!")
                Exit Sub
            End If
            query = Keyword.Text
        End If

        If MyKeyword.Checked = True Then
            If MyKw.Items.Count = 0 Then
                MsgBox("Please add some keywords!")
                Exit Sub
            End If
            If MyKw.SelectedItem = Nothing Then
                MsgBox("Please select the keyword!")
                Exit Sub
            Else
                query = MyKw.SelectedItem
            End If
        End If

        Status.Text = "Status: Checking..."
        Status.Location = New Point((Me.Width / 2) - (Status.Width / 2 + 10), Status.Location.Y)

        query = query.Replace(" ", "+")
        Dim n As Integer = 0
        Dim vid As String = Video.SelectedItem

        For i = 0 To 29
            Dim inStream As StreamReader
            Dim WebRequest As WebRequest
            Dim Webresponse As WebResponse
            Dim Data As String

            n = n + 1

            WebRequest = WebRequest.Create("/results?search_query=" & query & "&page=" & n)
            Webresponse = WebRequest.GetResponse()
            inStream = New StreamReader(Webresponse.GetResponseStream())
            Data = inStream.ReadToEnd()

            If Data.Contains(vid) Then
                Status.Text = "Video found on page " & n & "."
                Status.Location = New Point((Me.Width / 2) - (Status.Width / 2 + 10), Status.Location.Y)
                Exit For
            End If

            If n >= 30 And Not Data.Contains(vid) Then
                Status.Text = "Video not found in first 30 pages, process stopped."
                Status.Location = New Point((Me.Width / 2) - (Status.Width / 2 + 10), Status.Location.Y)
                Exit For
            End If

            If Not Data.Contains("<span class=""yt-uix-button-content"">Next") And Not Data.Contains(vid) Then
                Status.Text = "Video not found at all."
                Status.Location = New Point((Me.Width / 2) - (Status.Width / 2 + 10), Status.Location.Y)
                Exit For
            End If
        Next
    End Sub

    Private Sub Custom_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Custom.CheckedChanged
        If Custom.Checked = True Then
            Keyword.Enabled = True
            Add.Enabled = False
            NewKeyword.Enabled = False
            MyKw.Enabled = False
            ClearAll.Enabled = False
            ClearSelected.Enabled = False
        End If
    End Sub

    Private Sub MyKeyword_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyKeyword.CheckedChanged
        If MyKeyword.Checked = True Then
            Keyword.Enabled = False
            Add.Enabled = True
            NewKeyword.Enabled = True
            MyKw.Enabled = True
            ClearAll.Enabled = True
            ClearSelected.Enabled = True
        End If
    End Sub

    Private Sub Add_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Add.Click
        If Not NewKeyword.Text = "" Then
            MyKw.Items.Add(NewKeyword.Text)
        Else
            Exit Sub
        End If
        Create()
    End Sub

    Private Sub ClearSelected_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ClearSelected.Click
        If MyKw.Items.Count = 0 Then
            MsgBox("Please add some keywords!")
            Exit Sub
        End If
        If MyKw.SelectedItem = Nothing Then
            MsgBox("Please select the keyword!")
            Exit Sub
        Else
            MyKw.Items.Remove(MyKw.SelectedItem)
        End If
        MyKw.Text = "Select my keyword..."
        Create()
    End Sub

    Private Sub ClearAll_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ClearAll.Click
        If MyKw.Items.Count = 0 Then
            MsgBox("Please add some keywords!")
            Exit Sub
        Else
            MyKw.Items.Clear()
        End If
        MyKw.Text = "Select my keyword..."
        Create()
    End Sub

    Sub Create()
        If Not MyKw.Items.Count = 0 Then
            Dim MKeywords As String = MyKw.Items.Count
            For Each item In MyKw.Items
                MKeywords = MKeywords & ":" & item
            Next
            My.Settings.Keywords = MKeywords
        Else
            My.Settings.Keywords = ""
        End If
    End Sub
End Class
HQ share, mate.
Next time lock the whole thread with
Register or login to see this content
from leechers
Latest Thanks - View all

MiDo-X-InHo(2014-09-01 11:47 AM) sureshraina2001(2013-11-20 09:32 AM) jannowak(2013-11-09 07:07 PM) planetparty(2013-11-06 02:15 PM) Rkt(2013-11-04 04:54 PM) daimon1(2013-11-04 04:17 AM) cpanew(2013-11-02 08:44 PM) ๖ۣۜMateusz(2013-11-02 04:43 AM) Heraclitus(2013-11-02 03:41 AM) ucozer(2013-10-29 08:13 PM) dezierr(2013-10-29 06:07 PM) Captain Obvious(2013-10-29 04:24 PM) 

Please quote me if you are replying to me so I would get a notification.
2013-10-29, 02:52 PM,
#10
(2013-10-29, 12:51 PM)coolm Wrote: can't open the file :(

Hey, make sure you have net framework 4.0 installed.
The program was made in VB.NET so it's required.

I will upload full project for those who want to learn from it :)
Latest Thanks - View all

daimon1(2013-11-04 05:02 AM) coolm(2013-10-29 03:26 PM) 


Possibly Related Threads...
Thread Author Replies Views Last Post
  Free Course ($597) YouTube for Bosses by Sunny Lenarduzzi AndyRucker 16 1,542 5 hours ago
Last Post: detalyemo
  [New Method] Rank in google with imgur iulipwnz 67 13,372 7 hours ago
Last Post: stephanie12
  [Method] Youtube + AdsArmy $100 a day. fruitcommander 28 2,803 7 hours ago
Last Post: esrarengiz1984
  [Tutorial] How to make unlimited YouTube accounts if you have static IP Andrei 52 5,243 2017-12-12, 12:46 AM
Last Post: epalyou
  [NEW][<$30]Youtube Video Hack Proof at CHEAPEST rates.[PART2] justdidit 159 13,651 2017-12-10, 12:52 PM
Last Post: justdidit





About Us | Contact Us | CPA Elites | Advertise | Stats | Staff Team

© 2013-2017 CPA Elites Ltd
Enhanced by MyBB and WallBB
Return to top