Imports:
Importing Accounts:
Logging in:
Splitting Functions:
You will need to import the accounts from a text file with the following format:
Account:Password
You can change it accordingly to the splitting functions
Code
Imports Google.GData.Client
Imports Google.GData.Extensions
Imports Google.GData.YouTube
Imports Google.GData.YouTube.YouTubeService
Imports Google.GData.Extensions.MediaRss
Imports Google.YouTube
Imports System.Management
Imports System.Net
Imports System.IO
Imports System.Text
Imports Microsoft.VisualBasic.CompilerServices
Imports System.Threading
Imports System.Text.RegularExpressions
Imports Google.GData.YouTube.SubscriptionEntryImporting Accounts:
Code
Dim accounts as string
Sub importaccounts
Dim ofd as new openfiledialog - OFD is now open file dialog
accounts = ofd.filename - It will put all the text in the .txt file into the string accounts
If accounts <> "" then - If the transfer was successful
Messagebox.show("Accounts imported successfully")
End if
End subLogging in:
Code
Sub login()
Dim splitz as string
Dim arrayz As String() = File.ReadAllLines(accounts)
For Each splitz In arrayz
Dim settings As YouTubeRequestSettings = New YouTubeRequestSettings("BOTNAME", "APIKEY", Conversions.ToString(user(splitz)), Conversions.ToString(pass(splitz)))
Dim request As YouTubeRequest = New YouTubeRequest(settings)
Next
End SubSplitting Functions:
Code
Public function user(byval thing as string)
return thing.substring(0, thing.indexof(":"))
End Function
Public function pass(byval thing as string)
return thing.substring((thing.indexof(":") + 1), ((thing.length - thing.indexof(":") - 1))You will need to import the accounts from a text file with the following format:
Account:Password
You can change it accordingly to the splitting functions


