Results 1 to 11 of 11

Thread: Quick And Easy Question

Threaded View

  1. #1

    Thread Starter
    Junior Member
    Join Date
    Sep 2008
    Posts
    18

    Question Quick And Easy Question

    I am making an advanced login form but I do not know how to transfer from sub to sub, for example using the fake templates below. How would I make my program go to "ContinueLogin"? As I have tried to explain below.


    1 Code:
    1. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    2.         If Button1.Enabled = True Then
    3.             WebBrowser1.Navigate("http://license.froltentertainment.com/login.html")
    4.             WebBrowser1.Document.GetElementById("username").SetAttribute("value", (TextBox1.Text))
    5.             WebBrowser1.Document.GetElementById("password").SetAttribute("value", (TextBox2.Text))
    6.             Sleep(5000)
    7.         Else
    8.             MsgBox("There was an error connecting to the Frolt Entertainment License System", MsgBoxStyle.Critical)
    9.         End If
    10.     End Sub

    2 Code:
    1. Private Sub ContinueLogin(ByVal sender As System.Object, ByVal e As System.EventArgs)
    2.         Sleep(1000)
    3.         If WebBrowser1.Url.Equals("http://license.froltentertainment.com/client/" & TextBox1.Text & ".php") Then
    4.             WebBrowser1.Document.GetElementById("paypal").InnerText.Contains("Valid")
    5.             Form2.Show()
    6.         Else
    7.             WebBrowser1.Document.GetElementById("paypal").InnerText.Contains("Invalid")
    8.             MsgBox("Your current subscription is invalid.", MsgBoxStyle.Critical)
    9.         End If
    10.         MsgBox("There was a problem with verifying your access to this program.", MsgBoxStyle.Critical)
    11.     End Sub
    Last edited by griffithdesign; Jul 31st, 2010 at 04:40 AM.

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  



Click Here to Expand Forum to Full Width