Du bist nicht angemeldet.

[VB 2010] login auf website

  • 1
  • 2

user2100

Registrierter Benutzer

  • »user2100« ist der Autor dieses Themas

Beiträge: 143

Dabei seit: 21. August 2010

  • Private Nachricht senden

1

Samstag, 4. September 2010, 17:26

login auf website

hi,
ich habe mir auch eine loginform zusammen gebastelt :)
alles funktioniert soweit ganz gut. nur werde ich nicht automatisch eingeloggt auf der website.

ich habe auch einen timer eingefügt der mich nach 3 sekunden einloggen soll. aber nichts passiert.
login name und login passwort steht alles da nur muss ich selber jedesmal auf login drücken damit ich eingeloggt werde.

Visual Basic Quellcode

 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    	If TextBox1.Text = "user" And TextBox2.Text = "passwort" Then
        	Form2.Show()

        	'Einloggen


        	If Label3.Text > 0 Then
            	Timer1.Enabled = True

        	Else
            	Label3.Text = "3"
            	Form2.WebBrowser1.Document.Forms(0).InvokeMember("submit")
        	End If



        	Form2.WebBrowser1.Document.Forms(0).InvokeMember("submit")



        	Hide()

    	Else
        	MsgBox("Falsche Anmelde Daten eingegeben", MsgBoxStyle.Information, "Fehler")

    	End If
	End Sub


form2 ist die form in der die website erscheint. in meinem fall ist es www.jappy.de

hier noch der code für den timer:

Visual Basic Quellcode

 
1
2
3
4
5
6
7
8
9
10
11
12
13

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

    	If Label3.Text = "0" Then

        	Form2.WebBrowser1.Document.Forms(0).InvokeMember("submit")
        	Label3.Text = "0"
        	Timer1.Enabled = False
    	End If

    	Label3.Text = Val(Label3.Text) - Val(1)

	End Sub
End Class



brauche dringend hilfe weiss nicht mehr weiter :(

wlfmario

Registrierter Benutzer

  • »wlfmario« ist männlich

Beiträge: 56

Dabei seit: 20. Januar 2009

Wohnort: Pulheim

  • Private Nachricht senden

2

Samstag, 4. September 2010, 22:38

Wo übergibst du die Daten an das Login bei Jappy ?
Ich selber habe auch Jappy als Testecke misbraucht um mich etwas in VB einzuarbeiten und zu verstehen :D

Das mit dem Login war das kleinste Problem ich habe das in etwa so geregelt.

Visual Basic Quellcode

 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

WebBrowser1.Navigate("http://www.jappy.de/")
    	Do While WebBrowser1.ReadyState <> WebBrowserReadyState.Complete
        	Application.DoEvents()
    	Loop

    	Dim INI As New INIDatei
    	INI.Pfad = My.Application.Info.DirectoryPath & "\IniDatei.ini"

    	Me.WebBrowser1.Document.GetElementById("login[u]").InnerText = INI.WertLesen("Userdaten", "Username", "Username")
    	Me.WebBrowser1.Document.GetElementById("login[p]").InnerText = INI.WertLesen("Userdaten", "Passwort", "Passwort")
    	Me.WebBrowser1.Document.GetElementById("login[p]").Focus()
    	SendKeys.Send("{ENTER}")

    	Do While WebBrowser1.ReadyState <> WebBrowserReadyState.Complete
        	Application.DoEvents()
    	Loop

    	If WebBrowser1.DocumentText.Contains("Login fehlgeschlagen") Or WebBrowser1.Url = New Uri("http://www.jappy.de/password/loginInvalid") Then
        	MsgBox("Login fehlgeschlagen !", MsgBoxStyle.Exclamation, "Fehler beim Login !")
        	Config.Show()
end if


Evtl. kannst du damit etwas anfangen.

Gruß Mario

gugi-zone.net

VB.NET & C# Programmierer

Beiträge: 1 506

Hilfreich-Bewertungen: 44

  • Private Nachricht senden

3

Sonntag, 5. September 2010, 09:02

wozu denn den timer? der webbrowser hat auch ein navigated-event...

Gruß, Gugi :thumbup:

wlfmario

Registrierter Benutzer

  • »wlfmario« ist männlich

Beiträge: 56

Dabei seit: 20. Januar 2009

Wohnort: Pulheim

  • Private Nachricht senden

4

Sonntag, 5. September 2010, 09:36

Welcher Timer ?

gugi-zone.net

VB.NET & C# Programmierer

Beiträge: 1 506

Hilfreich-Bewertungen: 44

  • Private Nachricht senden

5

Sonntag, 5. September 2010, 09:47

Zitat

Welcher Timer ?

siehe post von user2100 ...

Gruß, Gugi :thumbup:

wlfmario

Registrierter Benutzer

  • »wlfmario« ist männlich

Beiträge: 56

Dabei seit: 20. Januar 2009

Wohnort: Pulheim

  • Private Nachricht senden

6

Sonntag, 5. September 2010, 10:26

Ach so !
ich schätze mal das er damit den Aufbau der Webseite abwarten will :D

jopi24

0b101010

Beiträge: 174

Dabei seit: 16. April 2010

Wohnort: Stadthagen Alter: wird überbewertet!

Frühere Benutzernamen: Jopi-Dev

Hilfreich-Bewertungen: 50

  • Private Nachricht senden

7

Sonntag, 5. September 2010, 20:03

Moin! Ich habe das gleiche Problem wie du... Ich habe mal die Lösung von wlfmario ausprobiert, dann kam meine "Lieblingsfehlermeldung"

Zitat

Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt.
Was kann man da machen???

MfG Jopi24

Zitat

Ich hab da ein paar probleme,weil dat nit funst (weis auch nit wiso)

wlfmario

Registrierter Benutzer

  • »wlfmario« ist männlich

Beiträge: 56

Dabei seit: 20. Januar 2009

Wohnort: Pulheim

  • Private Nachricht senden

8

Sonntag, 5. September 2010, 20:21

An welcher stelle kam der Fehler ?
Hast du die Sachen mit dem Ini auch benutzt ?

jopi24

0b101010

Beiträge: 174

Dabei seit: 16. April 2010

Wohnort: Stadthagen Alter: wird überbewertet!

Frühere Benutzernamen: Jopi-Dev

Hilfreich-Bewertungen: 50

  • Private Nachricht senden

9

Sonntag, 5. September 2010, 21:06

Nein, keine INI's der Fehler kommt wenn die zeile dran ist wo du aus der INIiest. Bin grad am iPod deswegen schreib ich Net soviel :d. Ich hab eine msgbox benutzt...

MfG jopi24

Zitat

Ich hab da ein paar probleme,weil dat nit funst (weis auch nit wiso)

wlfmario

Registrierter Benutzer

  • »wlfmario« ist männlich

Beiträge: 56

Dabei seit: 20. Januar 2009

Wohnort: Pulheim

  • Private Nachricht senden

10

Sonntag, 5. September 2010, 21:07

Die ini ist bei mir eine Extra Klasse !
Darum kommt das bestimmt da du die nicht hast.

jopi24

0b101010

Beiträge: 174

Dabei seit: 16. April 2010

Wohnort: Stadthagen Alter: wird überbewertet!

Frühere Benutzernamen: Jopi-Dev

Hilfreich-Bewertungen: 50

  • Private Nachricht senden

11

Sonntag, 5. September 2010, 21:11

Ich mach gar nix mit der ini :D

Zitat

Ich hab da ein paar probleme,weil dat nit funst (weis auch nit wiso)

user2100

Registrierter Benutzer

  • »user2100« ist der Autor dieses Themas

Beiträge: 143

Dabei seit: 21. August 2010

  • Private Nachricht senden

12

Montag, 6. September 2010, 22:18

website login

hi, den code den du da reingestzt hast wo füge ich den genau ein. beim "login" button?

ich kenne mich vb. noch nicht so gut aus da ich erst seit ca. 2 wochen damit arbeite.
ich bekomme immer ne neue fehlermeldung jedesmal wenn ich den benutzernamen eingeben will.



was kann ich dagegen machen. weil manchmal funktioniert es.

wlfmario

Registrierter Benutzer

  • »wlfmario« ist männlich

Beiträge: 56

Dabei seit: 20. Januar 2009

Wohnort: Pulheim

  • Private Nachricht senden

13

Dienstag, 7. September 2010, 12:15

Auf welcher Seite willst du den dich Einloggen ?
Bist du Sicher das Login Stimmt ?

user2100

Registrierter Benutzer

  • »user2100« ist der Autor dieses Themas

Beiträge: 143

Dabei seit: 21. August 2010

  • Private Nachricht senden

14

Dienstag, 7. September 2010, 14:13

ja an sich stimmt das soweit. jedenfalls wird benutzername und passwort auf die website übertragen es loggt sich nur nicht automatisch ein.
aber ich weiss nicht warum. hab nochn timer hinzugefügt. wegen dem internet falls es nicht so schnell mit der website verbindet. es funktioniert ja soweit. es loggt sich nur nicht auf der website ein.
und wie schon auf dem bild zusehen habe ich manchmal diese fehlermeldung wenn ich den benutzernamen reinschreiben will.

mfg :)

jopi24

0b101010

Beiträge: 174

Dabei seit: 16. April 2010

Wohnort: Stadthagen Alter: wird überbewertet!

Frühere Benutzernamen: Jopi-Dev

Hilfreich-Bewertungen: 50

  • Private Nachricht senden

15

Dienstag, 7. September 2010, 17:42

Mhhhhh, der gleiche Fehler wie bei mir^^

Funzt weder mir dem Gecko noch mit dem IE...

Ich habs "ersmal" gaaanz einfach gemacht:

Visual Basic Quellcode

 
1
2

        GecSVZ.Navigate("http://schuelervz.net/")'Der Browser ;)
        MsgBox(GecSVZ.Document.GetElementById("email").InnerText)


MfG Jopi24

Zitat

Ich hab da ein paar probleme,weil dat nit funst (weis auch nit wiso)

wlfmario

Registrierter Benutzer

  • »wlfmario« ist männlich

Beiträge: 56

Dabei seit: 20. Januar 2009

Wohnort: Pulheim

  • Private Nachricht senden

16

Dienstag, 7. September 2010, 21:07

Poste mal den Code wo du dich auf die Webseite einlogst.

user2100

Registrierter Benutzer

  • »user2100« ist der Autor dieses Themas

Beiträge: 143

Dabei seit: 21. August 2010

  • Private Nachricht senden

17

Mittwoch, 8. September 2010, 11:12

iwe meinst du das wo ich mich auf der website einlogge. ich hab den ganzen code der form1 kopiert:

Visual Basic Quellcode

 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71

Public Class Form1

	Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    	Form2.Show()
    	Form2.Hide()

	End Sub

	Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged


    	Form2.WebBrowser1.Document.GetElementById("login[u]").InnerText = TextBox1.Text


	End Sub

	Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    	If TextBox1.Text = "******" And TextBox2.Text = "*********" Then
        	Form2.Show()

        	'<--Einloggen-->


        	If Label3.Text > 0 Then
            	Timer1.Enabled = True

        	Else
            	Label3.Text = "1"
            	Form2.WebBrowser1.Document.Forms(0).InvokeMember("submit")
        	End If



        	Form2.WebBrowser1.Document.Forms(0).InvokeMember("submit")



        	Hide()

    	Else
        	MsgBox("Falsche Anmelde Daten eingegeben", MsgBoxStyle.Information, "Fehler")

    	End If
	End Sub

	Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
    	Form2.WebBrowser1.Document.GetElementById("login[p]").InnerText = TextBox2.Text
	End Sub

	Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    	Application.Exit()
	End Sub

	Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    	Application.Restart()

	End Sub

	Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

    	If Label3.Text = "0" Then

        	Form2.WebBrowser1.Document.Forms(0).InvokeMember("submit")
        	Label3.Text = "0"
        	Timer1.Enabled = False
    	End If

    	Label3.Text = Val(Label3.Text) - Val(1)

	End Sub
End Class



ich hoffe ich helf dir damit weiter :)
achja was mir auch ganz wichtig ist. so wich das jetzt habe mit den codes kann ich mich nur mit meinem benutzer daten einloggen.
wie bekomme ich es hin das sich jeder der auf dieser website"www.jappy.de" registriert ist das sich jeder über das login system einloggen kann?

mfg :)

henny

Ego Dominus est - Nobis Servi sunt ;)

  • »henny« ist männlich

Beiträge: 494

Dabei seit: 2. August 2009

Hilfreich-Bewertungen: 8

  • Private Nachricht senden

18

Mittwoch, 8. September 2010, 13:20

du lässt die Login Daten einfach in zwei textboxen schreiben! fertig!
Zu meiner Homepage
Mein Youtubeblog, auch mit Vb-Tutorials

wlfmario

Registrierter Benutzer

  • »wlfmario« ist männlich

Beiträge: 56

Dabei seit: 20. Januar 2009

Wohnort: Pulheim

  • Private Nachricht senden

19

Mittwoch, 8. September 2010, 15:38

Versuch das mal !

Visual Basic Quellcode

 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

        WebBrowser1.Url = New Uri("http://www.jappy.de/")
        Do While WebBrowser1.ReadyState <> WebBrowserReadyState.Complete
            Application.DoEvents()
        Loop

        WebBrowser1.Navigate("http://www.jappy.de/")
        Do While WebBrowser1.ReadyState <> WebBrowserReadyState.Complete
            Application.DoEvents()
        Loop

        Try
            Me.WebBrowser1.Document.GetElementById("login[u]").InnerText = Textbox1.text ' Hier die Textbox für den Usernamen
            Me.WebBrowser1.Document.GetElementById("login[p]").InnerText = Textbox2.text ' und hier das Passwort.
            Me.WebBrowser1.Document.GetElementById("login[p]").Focus()
            SendKeys.Send("{ENTER}")
        Catch
            MsgBox("Es ist ein Fehler aufgetreten", MsgBoxStyle.Exclamation, "Fehler beim Login")
        End Try

        Do While WebBrowser1.ReadyState <> WebBrowserReadyState.Complete
            Application.DoEvents()
        Loop



Das habe ich getestet und es geht Einwandfrei .

user2100

Registrierter Benutzer

  • »user2100« ist der Autor dieses Themas

Beiträge: 143

Dabei seit: 21. August 2010

  • Private Nachricht senden

20

Mittwoch, 8. September 2010, 17:33

ok ich hab den code mal eingegeben.
wenn ich dann auf den login button gehe im prog. dann passiert erst nix. wenn ich
dann ein 2. mal drauf klicke öffnet sich ein fenster und es steht das ein fahler aufgetreten ist.

die codes aus textbox 1 und textbox2 kann ich dort den code rausnehmen oder muss der drin bleiben.

siehe eintrag etwas weiter oben.!!!
  • 1
  • 2

Ähnliche Themen

Social Bookmarks