VB Seafight Login auf Server ???

[Sebi201195]

Hallo ich habe ien problem ich würde mich gerne auf seafight de4 einloggen durch mein programm und dann später mehr daraus machen aber als erstes mal den login

So hier mal mein code

Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
WebBrowser1.Navigate(TextBox1.Text)
Application.DoEvents()
Do While WebBrowser1.ReadyState <> WebBrowserReadyState.Complete
Application.DoEvents()
Loop
WebBrowser1.Refresh()

WebBrowser1.Document.GetElementById("loginForm_def ault_input_username").InnerText = "XxXSeboraXxX"
WebBrowser1.Document.GetElementById("loginForm_def ault_label_password_container").InnerText = "Sebastian"
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
WebBrowser1.Document.GetElementById("loginForm_def ault_input_username").InnerText = "Visualbasic"
WebBrowser1.Document.GetElementById("loginForm_def ault_input_password").InnerText = "Test"
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
WebBrowser1.Document.GetElementById("loginForm_def ault_login_submit").Focus()
SendKeys.Send(" ")
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
WebBrowser1.Document.Forms(0).InvokeMember("instan ceLink_605")
End Sub
End Class



aber der schluss mit button 4 funzt nich weil ich die item id nich richtig finde anscheinend bitte helft mir ich bin verzweifelt ich checks einfach ned such schon seit tagen in foren und checks ned oder finde nichts


Danke für eure Hilfe

Achja ihr könnt das gerne testen mit dem test account den ich mit eingefügt habe


und ich entschuldige mich für keine komma setzung punkt oder fehler SORRY

aber ich kanns nich anders

[Kraizy​]

Versuch mal was hier von

<div id="loginForm_default_loginButton_container">
<input type="submit" value="Login" id="loginForm_default_loginButton" class="loginForm_default_button" name="loginForm_default_login_submit" onclick="Login.doLogin(); return false;; return false;" />
</div>

[Sebi201195]

kannst du mir das evtl in meinen code schon miteinbinden und den code dann nochmal posten wäre sehr nett kann damit leider gerade nichts anfangen sry bin anfänger in vb

[Kraizy​]

Versuch mal diesen Button anzuklicken

loginForm_default_loginButton

anstatt

instan ceLink_605

[Sebi201195]

der code geht leider nich denn bei button 3 mach ich ja login aber dann kommt eine große server auswahl kannst dir ja selber mal anschauen und auf seafight.de gehn und die login daten eingeben ich wollte mich dann auf den server einloggen den ich bestimme also zb de4 und nich einfach login zu drücken denn dann bin ich ja noch immer nich auf der übersicht
danke für deine hilfe
und danke das ihr mir helft

[Diablo_]

Den Login habe ich mal gerade selbst gemacht.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        WebBrowser1.Document.GetElementById("loginForm_default_input_username").InnerText = TextBox1.Text

        WebBrowser1.Document.GetElementById("loginForm_default_input_password").InnerText = TextBox2.Text

        WebBrowser1.Document.GetElementById("loginForm_default_loginButton").Focus()

        SendKeys.SendWait(" ")

    End Sub

Das der Button fokussiert wird und per Leertaste gedrückt wird ist nicht die feine englische Art, aber macht im Endeffekt hier auch keinen Unterschied.

Wie man den Server auswählt gucke ich mal.

/Edit: Ah, so geht das. Ich hab's, allerdings ist das eine Menge Schreibarbeit. :>

[Sebi201195]

lieber diabolo würdest du mir bitte den aufschreiben ?

[Diablo_]

Sobald die Serverauswahl angezeigt wird (zum Prüfen vieleicht den Quelltext verwenden) lässt du den Browser auf den Server navigieren.

Deutschland 4 = http://de4.seafight.bigpoint.com/GameAPI.php?req=YTo1OntzOjY6ImFjdGlvbiI7czoyMToicG 9ydGFsLmxvZ2luQnlDcnlwdElkIjtzOjEyOiJsb2dpbkNyeXB0 SWQiO3M6MzI6ImYxYTQ1MjRhMWUyMzFlODg2MWYyMTM2NmMxOD hmMDY0IjtzOjY6ImdhbWVJZCI7aTo2MDU7czo2OiJsb2NhbGUi O3M6MjoiZGUiO3M6OToiYm9udXNDb2RlIjtOO30%3D&sign=48 e558e77c72d9a53aea501acc449e17

Da musst du halt gucken mit welchem Steuerelement du das verbindest.

Der Befehl lautet natürlich:

Webbrowser1.Navigate("Die Deutschland 4 Adresse oder eine andere")

[Sebi201195]

Leider geht das nich denn dann steht da das ein unerwarteter fehler aufgetreten ist ...
aber egal dann leg ich das vorerst mal auf eis
danke an alle die mir geholfen haben bzw es versucht haben
Vote for Close