Hallo Leute,
ich hoffe ihr könnt mir helfen. Und ja, ich weiß das diese Frage schonmal gestellt worden ist aber ich habe es nicht hinbekommen.
Ich habe ein WindowsForm mit einem "Login"-Button erstellt.

Dazu habe ich folgenden Vb-Code geschrieben:

Das öffnet nun zwar die Login-Seite, aber wie ist der passende Code zum Einloggen?
Mfg Lego623

Passowrt & LoginName in eine Variable speichern und übergeben.
--> Evt. noch verschlüsseln

hi,
also wenn du es so machen willst, das du 2 textboxen in deiner form hast einmal für den benutzer und eine für das password kann ich dir folgenden code geben.



Wichtig. schaue dir den quelltext der webseite an wo du dich einloggen willst und suche folgende stellen raus damit das mit dem login funktioniert

z.b.: bei jappy.de (quellcode hierfür ist ungefähr der selbe. es gibt aber abweichungen!)

Quellcode für den benutzer:



Quellcode für das passwort:



quellcode für das übermitteln der daten:



jeweils brauchst du immer nur den teil nehmen wo "name=..." steht und den fügst du in den code oben ein den ich eingefügt habe.

ich hoffe das dir das weiter hilft.

Die Idee verstehe ich. Ich habe nun 2 Textboxen eingefügt, aber in deinem Code steht: "Form2.WebBrowser1....." Das ganze soll aber doch in Firefox audgeführt werden. Und noch eins: Du hast in deinem Code nicht stehen das sich Form2 öffnet. In meinem Projekt ist auch nur eine Form1 und keine Form2. Hast du sonst noch eine Idee?
Mfg Lego623

Eventuell erlaubt die Seite User und PW als Variablen mitzugeben. Ansonsten direkt über die login.php gehen,
meint, einen WebRequest senden. Ob das ganze so in Forefox funktioniert, ka. Ich bezweifle es.

Grüße

Hey,

Ich denke, das wird dir weiterhelfen.

[VB.NET] HttpWebRequest Tutorial (Für anfänger)

Gruß

One-Soft ich habe dein Tut nicht gecheckt und dieses Live-HTTP-Header geht auch nicht! Bitte helft mir, es kann auch eine WebBrowser1 sein, der diese Login öffnet!
Mfg Lego623

Ein User Lego der züge mag, das gefällt mir!

... deswegen bekommst du auch einen code von mir das selbe habe ich nämlich vor ein paar tagen programmiert (faulheit siegt! ich bin IT-ler ich log mich doch nicht selber ein aber hallo?! )

ich habs mit nem webbrowser element gemacht 2 möglichkeiten deine logindaten zu übermitteln bekommst du von mir:

hier am beispiel von paypal es wird direkt in die felder geschrieben:

erstmal die variablen deklaieren:

Dim user As String
Dim pwd As String
Dim userid As String = ""
Dim pwdid As String = ""
Dim tabvorher As Boolean = False
Dim urlafter As String
Dim dourlafter As Boolean = True
Public logedin As Boolean = False


hier dann der code für die dateneingabe

Sub paypal() Handles PayPalToolStripMenuItem.Click <- da einfach dein button.click rein machen WebBrowser1.Navigate("https://www.paypal.com/de/cgi-bin/webscr?cmd=_login-submit")
user = "USERNAME"
pwd = "PASSWORT"
userid = "login_email" <- der feldname für das userbeld
pwdid = "login_password" <- der feldname für das passwort
Timer1.Start()
End Sub


dann hab ich ihn warten lassen denn die seite muss ja erstmal laden hier hast du meinen Timer:


Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
If WebBrowser1.ReadyState = WebBrowserReadyState.Complete Then

If Not userid = "" Then

Try


WebBrowser1.Document.GetElementById(userid).InnerText = user
WebBrowser1.Document.GetElementById(pwdid).InnerText = pwd
WebBrowser1.Document.GetElementById(userid).Focus()
SendKeys.Send("{ENTER}")

userid = ""
pwdid = ""

Catch

End Try

Timer1.Stop()
Else

If tabvorher = True Then
SendKeys.Send("{TAB}")
tabvorher = False
End If

Me.Focus()
SendKeys.Send(user)
SendKeys.Send("{TAB}")
Me.Focus()
SendKeys.Send(pwd)
SendKeys.Send("{ENTER}")

Timer1.Stop()
End If

If dourlafter = True And WebBrowser1.ReadyState = WebBrowserReadyState.Complete Then
WebBrowser1.Navigate(urlafter)
dourlafter = False
End If
End If

End Sub

so dann hab ich noch ein anderen code zum übermitteln für die felder den kannst du für den fall benutzen: sobald du auf der seite bist kannst du schon (ohne draufzuklicken) deinen usernamen eingeben:

Sub paypal() Handles PayPalToolStripMenuItem.Click <- da einfach dein button.click rein machen WebBrowser1.Navigate("https://www.paypal.com/de/cgi-bin/webscr?cmd=_login-submit")
user = "USERNAME"
pwd = "PASSWORT"
Timer1.Start()
End Sub

also einfach die felder weggelassen

aber achtung das ist geht in dem script mit sendkeys nachteile dürften ja bekannt sein

bevor jemand was sagt: ja der code könnte wesentlich besser sein aber er funktioniert, wer motzen will kann gerne einen !!Vollständigen!! code posten


ich hoffe ich konnte dir helfen

Lego Heil!
Züge Heil!

2x edit gemacht wieso zerhauts mir wenn ich EXTRA "vbcode" auswähle die formatierung... so ein mist .-/

hi, hier ist das programm zu meinem code. ja ich verwende ein 2. form.
aber schau einfach selbst.


Keine *.exe-Downloads außerhalb des Showrooms!

Editiert. ~fufu

user2100 schrieb:

Form2.lblUser.Text = txtUser.Text

Gugst Du hier.

ok das programm ist nun auch schon 4 jahre alt. da war ich noch so ziehmlich am anfang mit vb. aber danke.

@phispo Danke, das hat mir geholfen!
@user2100 Dein Programm war auch gut.

Ich erkläre diesen Thread hiermit für beendet!

Mfg Lego623

P.S.: @phispo: Züge forever!