Pasted

Public Sub LoginC
        RunProxy1()
        PauseX(200)
        UseProxy(MyProxy1)
        PauseX(200)
        wb1.Navigate("https://google.com")
        PauseX(1500)
        Status2.Text = "Connecting to AOL.com"
        PauseX(500)
        wb1.Navigate("https://login.aol.com/account/personalinfo?lang=en-US")
        PauseX(2000)
        Login()
End Sub
 
 
    Public Sub Login()
        UseProxy(MyProxy1)
        wb1.Document.GetElementById("username").SetAttribute("value", txtSN.Text)
        PauseX(300)
        wb1.Document.All("signin").InvokeMember("click")
        PauseX(2000)
        wb1.Document.GetElementById("password").SetAttribute("value", txtPW.Text)
        PauseX(500)
        wb1.Document.All("verifyPassword").InvokeMember("click")
        PauseX(5000)
        wb1.Stop()
        DelData1.Text = wb1.Document.Body.InnerHtml
        PauseX(500)
 
        Dim Data As String, c As String
 
        Data = DelData1.Text
        If InStr(Data, "crumb=") Then
            c = Mid(Data, InStr(Data, "crumb=") + 6)
            c = vb.Left(c, InStr(c, "&") - 1)
            txtCrumb.Text = c
            Status2.Text = "AOL Crumb: " & c
        End If
 
        wb1.Navigate("https://login.aol.com/account/security?lang=en-US&scrumb=" & txtCrumb.Text & "&flow=add-email")
        PauseX(2000)
        wb1.Document.GetElementById("email").SetAttribute("value", "YOUREMAIL")
        PauseX(300)
        wb1.Document.All("add-email").InvokeMember("click")
    End Sub