SHARE
TWEET

Untitled

a guest Jul 17th, 2017 43 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Dim Submit As HtmlElement = Nothing
  2.         For Each Elem As HtmlElement In WebBrowser1.Document.All
  3.             If Elem.GetAttribute("Value") = "Log in" Then
  4.                 Submit = Elem
  5.             End If
  6.         Next
  7.         Submit.InvokeMember("submit")
  8.  
  9.         If Submit.InvokeMember("submit") = True Then
  10.             WebBrowser1.Document.Body.OuterText.Contains("vBulletin Message")
  11.             MsgBox("Invalid Username or Password.", MsgBoxStyle.Information, "Error Logging In!")
  12.         Else
  13.             MsgBox("Login was successful!", MsgBoxStyle.Information, "Success!")
  14.         End If
RAW Paste Data
Top