1. This site uses cookies. By continuing to use this site, you are agreeing to our use of cookies. Learn More.

[GET] VBS YouTube View Increaser 1.0

Discussion in 'Black Hat SEO Tools' started by killakem, Apr 12, 2012.

  1. killakem

    killakem Regular Member

    Joined:
    Oct 20, 2011
    Messages:
    383
    Likes Received:
    248
    While in hospital recovering from my injury's sustained while been assaulted with the Ban Hammer, I started messing around with YouTube views using macros and proxy's.

    The Macro method was too unstable and would not loop for more than 100 times due to instability's with macros and JavaScript well that's what my suspicion is.

    So I started learning a bit of VBscript and created my first project!! It will clear the temporary internet files & cookies, Use a proxy list in a .txt file, watch your vid for 30 seconds then loop.

    The problem I had was it would still wait even when the proxy was down and YT couldn't be contacted, this would use valuable time i could be using for views.

    So I added in support for proxy checking!! Well my dirty method anyway.

    I have managed 500 a day with this script, using virtual machines to run it this could be scaled out. It would need to be modified to change referrer and user agent should this be used to deliver 5k+ views.

    1) Create a txt file with a list of proxy's. One per line in the usual format xxx.xxx.xxx.xxx:8080 name this file input.txt

    2) Replace http://www.youtube.com/watch?v=
    (Yourvidcode) with your video code.

    3) Save the code as yourfilename.vbs and run

    Enjoy

    Updated and working (The first two lines had moved onto one line)

    Code:
    Set oReadObj  = CreateObject("Scripting.FileSystemObject")
    Set oWriteObj = CreateObject("Scripting.FileSystemObject")
    Set oRead = oReadObj.OpenTextFile("input.txt", 1)
    set WSHShell = WScript.CreateObject("WScript.Shell")
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    
    
    ytvid = "http://www.youtube.com/watch?v=(Yourvidcode)"
    
    
    Dim strLine
    Dim intLineCounter
    
    
    intLineCounter = 0
    
    
    Do Until oRead.AtEndOfStream
    
    
    strLine = oRead.ReadLine
    
    
    Set WshShell = CreateObject("WScript.Shell")
    WshShell.run "RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 8"
    WshShell.run "RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 1"
    WshShell.run "RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 2"
    
    
    Wscript.sleep (10000)
    
    
    WSHShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyServer", strline
    
    
    WSHShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable", 1, "REG_DWORD"
    
    
    Dim strWebsite
    
    
    strWebsite = "www.youtube.com"
    
    
    If PingSite( strWebsite ) Then
        Set oIE = CreateObject("InternetExplorer.Application")
    
    
    Dim oIE
    
    
    oIE.Visible = 1 ' Hidden
    
    
    oIE.Navigate ytvid
    
    
    Do While (oIE.Busy)
    Wscript.Sleep 60
    Loop
    
    
    Wscript.Sleep 30000
    
    
    oIE.Quit
    Else
    End If
    
    
    Loop
    
    
    oRead.Close()  ' Close input file
    
    
    
    
    Function PingSite( myWebsite )
    ' This function checks if a website is running by sending an HTTP request.
    ' If the website is up, the function returns True, otherwise it returns False.
    ' Argument: myWebsite [string] in "www.domain.tld" format, without the
    ' "http://" prefix.
    '
    ' Written by Rob van der Woude
    ' http://www.robvanderwoude.com
        Dim intStatus, objHTTP
    
    
        Set objHTTP = CreateObject( "WinHttp.WinHttpRequest.5.1" )
    
    
        objHTTP.Open "GET", "http://" & myWebsite & "/", False
        objHTTP.SetRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MyApp 1.0; Windows NT 5.1)"
    
    
        On Error Resume Next
    
    
        objHTTP.Send
        intStatus = objHTTP.Status
    
    
        On Error Goto 0
    
    
        If intStatus = 200 Then
            PingSite = True
        Else
            PingSite = False
        End If
    
    
        Set objHTTP = Nothing
    End Function
    
    
    
    
    msgbox "No More Proxy's To Use"
    
    
    
    I am working on a private version which changes the referrer and user agent on every view. Possibly looking into getting someone to code me something that uses sockets so it can be used to add a shit load of views.

    If you want to join me I will share my work with you and we can get this done together.

    P.S Remember this is my first attempt at VBS or any other type of scripting.
     
    • Thanks Thanks x 8
    Last edited: Apr 12, 2012
  2. killakem

    killakem Regular Member

    Joined:
    Oct 20, 2011
    Messages:
    383
    Likes Received:
    248
    Has anyone tried this yet?? Let me know how you get on and if you have any problems at all.
     
  3. CloneX

    CloneX Power Member

    Joined:
    Mar 31, 2012
    Messages:
    597
    Likes Received:
    228
    Do we need Visual Studio or similar apps to run this?
     
  4. killakem

    killakem Regular Member

    Joined:
    Oct 20, 2011
    Messages:
    383
    Likes Received:
    248
    Nope works on Windows 7 WITH OUT Visual Studio.

    Just save the code in notepad as filename.vbs and run it.........
     
  5. CloneX

    CloneX Power Member

    Joined:
    Mar 31, 2012
    Messages:
    597
    Likes Received:
    228
    Okay. I will try it later today.

    Thanks
     
  6. mohitjmehta

    mohitjmehta BANNED BANNED

    Joined:
    Sep 17, 2010
    Messages:
    1,018
    Likes Received:
    783
    it gives me "compilation error" with win 7
     
  7. killakem

    killakem Regular Member

    Joined:
    Oct 20, 2011
    Messages:
    383
    Likes Received:
    248
    Hmmm thats strange it works fine for me!! I need some sleep I will take a look when I get up!!!
     
    • Thanks Thanks x 1
  8. ranarockzz

    ranarockzz Registered Member

    Joined:
    Feb 3, 2012
    Messages:
    55
    Likes Received:
    10
    Occupation:
    Agriculture (Monsanto)
    Location:
    In friend's hearts :)
    Home Page:
    no working yet gives me too "compilation error" in window 7.
     
  9. kyaw2x

    kyaw2x Regular Member

    Joined:
    Dec 29, 2009
    Messages:
    338
    Likes Received:
    78
    Occupation:
    SEO
    Location:
    Queen City of the South
    I'm getting error also.
     
  10. futurestic06

    futurestic06 Supreme Member

    Joined:
    Apr 16, 2011
    Messages:
    1,204
    Likes Received:
    146
    errors. please fix them. and really thanks for sharing.
     
  11. damyanov

    damyanov Registered Member

    Joined:
    Mar 19, 2012
    Messages:
    90
    Likes Received:
    15
    Yep, Error on line 1

    Im with win 7 too

    Please Fix.
     
  12. barlow21

    barlow21 Junior Member

    Joined:
    Aug 15, 2011
    Messages:
    192
    Likes Received:
    36
    how to use in window xp and does it actually works ?
     
  13. damyanov

    damyanov Registered Member

    Joined:
    Mar 19, 2012
    Messages:
    90
    Likes Received:
    15
    Ok guys, sorry for double-posting but i fix this ! :)

    just edit the code.txt and replace your video code like killakem said, save as .vbs and run!

    i can't post urls so i attach the file

    View attachment code.rar

    ps. I add the .txt file in .rar coz, i can't upload .txt files
     
  14. bouquet

    bouquet Regular Member

    Joined:
    Mar 22, 2012
    Messages:
    388
    Likes Received:
    148
    Occupation:
    BUM!
    Location:
    darkside of the moon
    OK i have edited the OP's code and added a random User-Agent string
    should be working now just follow OP instructions as above

    full credit to OP

    i had to zip it and add the zip as i'm not allow to post url's atm

    Zip removed due to request, look out for a improved version soon
     
    • Thanks Thanks x 2
    Last edited: Apr 12, 2012
  15. bouquet

    bouquet Regular Member

    Joined:
    Mar 22, 2012
    Messages:
    388
    Likes Received:
    148
    Occupation:
    BUM!
    Location:
    darkside of the moon
    follow instructions above

    1) Create a txt file with a list of proxy's. One per line in the usual format xxx.xxx.xxx.xxx:8080 name this file input.txt

    2) Replace
    (Yourvidcode) with your video code.

    3) Save the code as yourfilename.vbs and run
     
  16. TheNetworkBlast

    TheNetworkBlast Regular Member

    Joined:
    Feb 4, 2009
    Messages:
    301
    Likes Received:
    61
    Code:
    [URL]http://www.blackhatim.com/f2/%5Bget%5D-vbs-youtube-view-increaser-1-0-a-32162.html[/URL]
    So you got this from here?^^
     
  17. july23

    july23 Jr. VIP Jr. VIP Premium Member

    Joined:
    Nov 27, 2008
    Messages:
    933
    Likes Received:
    426
    Location:
    Lost


    Please check the time it posted before saying he grabbed it from that thread. :) I even feel that dude got it from his thread.
     
  18. killakem

    killakem Regular Member

    Joined:
    Oct 20, 2011
    Messages:
    383
    Likes Received:
    248
    I spent 2 whole days creating this!! for some prick like you to tell me I copied it from somewhere. get a life
     
  19. killakem

    killakem Regular Member

    Joined:
    Oct 20, 2011
    Messages:
    383
    Likes Received:
    248
    Guys,

    Please edit your posts and remove your updated versions. We should keep these private!!

    bouquet

    you are the man I was trying to add that in.
     
  20. TheNetworkBlast

    TheNetworkBlast Regular Member

    Joined:
    Feb 4, 2009
    Messages:
    301
    Likes Received:
    61
    I have a life sir :) . I just know timestamps vary from board to board depending on what timezone that forum is in if you aren't a registered member. Simple question. Please do not take offense.