Web Formular ausfüllen (Combobox)

nawiat100 · 04/10/2014, 15:14

Hey leute,

Ich habe diesen Code hier:

Spoiler

der soll bei diesem Quellcode die "Welt" setzten:

Spoiler

Da soll er die "s125" nehmen.
Ich habe schon rausgefunden das die Ausgewählte Welt so aussieht:

makiert:

Spoiler

nicht makiert:

Spoiler

Weiß jemand wie ich das mit VB verändern kann oder "selected" setzen kann ?

Mit meinen Code oben kommt diese Fehlermeldung:

Spoiler

Danke euch!

tolio · 04/10/2014, 15:35

webbrowser control entfernen, webrequests nutzen:

nawiat100 · 04/10/2014, 16:05

danke für die antwort,

gibt es da nicht noch eine einfachere Lösung ? soll wirklich nur ein kleines Tool werden.
Das mit Benutzername und Passwort habe ich so schon hinbekommen, genau so auch das er auf Login drückt, nur das mit der Combobox geht nicht

danke ^^

nanofox · 04/10/2014, 17:28

Ich denke, die einfachere Lösung ist in diesem Fall nunmal die Benutzung von HttpWebRequests. Der Header der Einlogg-Request sieht so aus:

(Live HTTP headers), bei dem Content (letzte Zeile) siehst du deine Parameter (uni = Universum, login = Login ID, pass = Password) das ganze dann einfach in eine HttpWebRequest packen und fertig.

nawiat100 · 04/11/2014, 08:30

so hab jetzt ein Bissel gesucht und Programmiert, und es geht!

Spoiler

Code:

Imports System.IO
Imports System.Net
Imports System.Text

Public Class Form1
    Dim cookieCon As New CookieContainer
    Dim request As HttpWebRequest
    Dim response As HttpWebResponse

    Public Function GetResponse(ByVal url As String) As String
        request = CType(HttpWebRequest.Create(url), HttpWebRequest)
        request.CookieContainer = cookieCon
        response = CType(request.GetResponse(), HttpWebResponse)

        Return New StreamReader(response.GetResponseStream()).ReadToEnd()
    End Function

    Public Function GetResponse(ByVal url As String, ByVal post As String) As String
        request = CType(HttpWebRequest.Create(url), HttpWebRequest)
        request.Method = "POST"
        request.CookieContainer = cookieCon
        request.UserAgent = "Mozilla/5.0 (Windows NT 6.1; WOW64; rv:28.0) Gecko/20100101 Firefox/28.0"
        request.ContentType = "application/x-www-form-urlencoded"

        Dim byteArr() As Byte = Encoding.Default.GetBytes(post)
        request.ContentLength = byteArr.Length

        Dim dataStream As Stream = request.GetRequestStream()
        dataStream.Write(byteArr, 0, byteArr.Length)

        response = CType(request.GetResponse(), HttpWebResponse)

        Return New StreamReader(response.GetResponseStream()).ReadToEnd()
    End Function

    Private Sub btAnmelden_Click(sender As System.Object, e As System.EventArgs) Handles btAnmelden.Click

        With New Form1
            'hier wird der Seitenquelltext gespeichert
            Dim html As String = String.Empty
            'Login ausführen
            Dim Uni As String = cbUni.Text
            Dim username As String = tbBenutzer.Text
            Dim password As String = tbPass.Text
            html = .GetResponse("http://de.ogame.gameforge.com/main/login", "kid=" & "&uni=" & Uni & "&login=" & username & "&pass=" & password)
            'Hauptseite aufrufen
            html = .GetResponse("http://de.ogame.gameforge.com/")
            'prüfen, ob Login erfolgreich war
            If html.Contains("Logout") Then
                MessageBox.Show("Eingeloggt")
            Else
                MessageBox.Show("nicht Eingeloggt")
            End If
        End With
    End Sub

Wenn ich das mit der Hauptseite aufrufen rausnehme geht es komischerweiße.

Danke für eure hilfe ^^

Grüße
Peter