Advertisement
Guest User

supreme quick purchase tool

a guest
Sep 15th, 2014
235
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. supreme quick purchase tool v1.0.0
  2.  
  3. Public Class Form1
  4.  
  5.     Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs)
  6.  
  7.     End Sub
  8.  
  9.     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
  10.         WebBrowser1.Document.GetElementById("order_billing_name").SetAttribute("value", "Jacob Beacom")
  11.         WebBrowser1.Document.GetElementById("order_email").SetAttribute("value", "jdbeacom@gmail.com")
  12.         WebBrowser1.Document.GetElementById("bo").SetAttribute("value", "4856 Louisiana Ave N")
  13.         WebBrowser1.Document.GetElementById("order_billing_zip").SetAttribute("value", "55428")
  14.         WebBrowser1.Document.GetElementById("order_billing_city").SetAttribute("value", "Crystal")
  15.         WebBrowser1.Document.GetElementById("order_tel").SetAttribute("value", "612-868-0374")
  16.         WebBrowser1.Document.GetElementById("onb").SetAttribute("value", "34920492049234")
  17.         WebBrowser1.Document.GetElementById("number_v").SetAttribute("value", "587")
  18.         WebBrowser1.Document.GetElementById("commit").InvokeMember("Click")
  19.         WebBrowser1.Document.GetElementById("order_billing_state").SetAttribute("value", "MN")
  20.         WebBrowser1.Document.GetElementById("credit_card_month").SetAttribute("value", "08")
  21.         WebBrowser1.Document.GetElementById("credit_card_year").SetAttribute("value", "2015")
  22.     End Sub
  23.  
  24.     Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click
  25.  
  26.     End Sub
  27. End Class
  28.  
  29. n das it
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement