<vb6>HELP WITH LOGIN???<vb6>

Posted: Sun Oct 12, 2008 10:18 pm Post subject: <vb6>HELP WITH LOGIN???<vb6>

ok, i found this code on google.. which i reconise as bennyboys. i have tweaked it a bit but i can get it to work dft001

im using vb6 so work around that :bigsmile:

Code: Select all

Private Sub cmdok_Click()
If Txtusername.Text = "" Then
lbstatus.Caption = "Please Enter Username"
Exit Sub
End If


If txtpassword.Text = "" Then
lbstatus.Caption = "Please Enter Password"
Exit Sub
End If

lbstatus.Caption = "Please wait...."
Navigate "http://www.bebo.com/SignOut.jsp"


Form1.Show: DoEvents
Form1.Navigate "http://www.bebo.com/SignIn.jsp"
lbstatus.Caption = "Signing in..."
    
    DoEvents
    While Form2.wb.Busy = True
        DoEvents
    Wend
    
    
    Form1.wb.Document.All("Password").Value = (Form1.txtpassword.Text)
    Form1.wb.Document.All("EmailUsername").Value = (Txtusername.Text)
    Form1.wb.Document.All("RememberMe").Click
    Form1.wb.Document.All("SignIn").Click

    DoEvents
    While frmLogin.wb.Busy = True
        DoEvents
   frmLogin.lbstatus.Caption = "Logging in " & (Form1.Txtusername.Text)
   lbstatus.Caption = "Logged in"

Me.Hide
Form1.Show

Wend
End Sub

Author	Message
russellhope Gold Member Joined: Mon Aug 18, 2008 11:43 pm Posts: 289	Posted: Sun Oct 12, 2008 10:18 pm Post subject: <vb6>HELP WITH LOGIN???<vb6>
	ok, i found this code on google.. which i reconise as bennyboys. i have tweaked it a bit but i can get it to work im using vb6 so work around that Code: Select all Private Sub cmdok_Click() If Txtusername.Text = "" Then lbstatus.Caption = "Please Enter Username" Exit Sub End If If txtpassword.Text = "" Then lbstatus.Caption = "Please Enter Password" Exit Sub End If lbstatus.Caption = "Please wait...." Navigate "http://www.bebo.com/SignOut.jsp" Form1.Show: DoEvents Form1.Navigate "http://www.bebo.com/SignIn.jsp" lbstatus.Caption = "Signing in..." DoEvents While Form2.wb.Busy = True DoEvents Wend Form1.wb.Document.All("Password").Value = (Form1.txtpassword.Text) Form1.wb.Document.All("EmailUsername").Value = (Txtusername.Text) Form1.wb.Document.All("RememberMe").Click Form1.wb.Document.All("SignIn").Click DoEvents While frmLogin.wb.Busy = True DoEvents frmLogin.lbstatus.Caption = "Logging in " & (Form1.Txtusername.Text) lbstatus.Caption = "Logged in" Me.Hide Form1.Show Wend End Sub _________________ Click here for my Bebo! Paoblo - Magicide
Top

Tree Teh Whiigar Joined: Mon Nov 26, 2007 12:24 pm Posts: 1582 Location: Australia	Posted: Sat Oct 18, 2008 1:09 am Post subject: Re: <vb6>HELP WITH LOGIN???<vb6>
	Just to help you out. You need the following textbox named txtusername label named lbstatues a second form, called form2 webbrowser called wb and u need to learn how to navigate Code: Select all `wb.navigate("http://www.sampleurl.com")` ^ would be the code to navigate for you. _________________ Wayne Rooney. http://i42.tinypic.com/2zsmwpx.jpg
Top



Display posts from previous: Sort by