Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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
Add Comment
Please, Sign In to add comment