killakem
Regular Member
- Oct 20, 2011
- 383
- 249
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)
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.
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.
Last edited:
