We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Private Sub Command1_Click() Dim User As String Dim password As String Dim site As String Dim objIE As Object Dim strSql As String Dim ClientLoginAddress As String username = "user" password = "password" YouTubeAddress = "https://www.google.com/accounts/ServiceLogin?uilel=3&service=youtube&passive=true&continue=http%3A%2F%2Fwww.youtube.com%2Fsignin%3Faction_handle_signin%3Dtrue%26nomobiletemp%3D1%26hl%3Den_US%26next%3D%252Findex&hl=en_US<mpl=sso" site = YouTubeAddress Set objIE = CreateObject("InternetExplorer.Application") With objIE .visible = True .Navigate site Do While .ReadyState <> 4 DoEvents Loop With .Document.Forms(1) .username.Value = username .password.Value = password .submit.Click End With End With End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.