|
-
Jul 31st, 2010, 03:54 AM
#1
Thread Starter
Junior Member
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:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Button1.Enabled = True Then
WebBrowser1.Navigate("http://license.froltentertainment.com/login.html")
WebBrowser1.Document.GetElementById("username").SetAttribute("value", (TextBox1.Text))
WebBrowser1.Document.GetElementById("password").SetAttribute("value", (TextBox2.Text))
Sleep(5000)
Else
MsgBox("There was an error connecting to the Frolt Entertainment License System", MsgBoxStyle.Critical)
End If
End Sub
2 Code:
Private Sub ContinueLogin(ByVal sender As System.Object, ByVal e As System.EventArgs)
Sleep(1000)
If WebBrowser1.Url.Equals("http://license.froltentertainment.com/client/" & TextBox1.Text & ".php") Then
WebBrowser1.Document.GetElementById("paypal").InnerText.Contains("Valid")
Form2.Show()
Else
WebBrowser1.Document.GetElementById("paypal").InnerText.Contains("Invalid")
MsgBox("Your current subscription is invalid.", MsgBoxStyle.Critical)
End If
MsgBox("There was a problem with verifying your access to this program.", MsgBoxStyle.Critical)
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
-
Forum Rules
|
Click Here to Expand Forum to Full Width
|